S12.R

In fredfeng/MorpheusData: Data sets for Morpheus

# making table data sets
library(dplyr)
library(tidyr)
library(MorpheusData)

#############benchmark 43
student <- read.table(text=
"S_key age level
S1 19 SO
S2 19 JR
S3 19 JR
S4 20 SO
S5 20 JR
S6 20 SO
S7 21 SO
S8 21 SO
S9 21 SR
S10 22 SR", header=T)

# write.csv(student, "sql/student.csv", row.names=FALSE)

# student <- read.csv("sql/student.csv", check.names = FALSE)
# fctr.cols <- sapply(student, is.factor)
# int.cols <- sapply(student, is.integer)
# student[, fctr.cols] <- sapply(student[, fctr.cols], as.character)
# student[, int.cols] <- sapply(student[, int.cols], as.numeric)
# save(student, file = "sql/student.rdata")

# 5.1.12
#df1=student %>% group_by(age,level) %>% summarise(n = n()) %>% group_by(age) %>% summarise(n = max(n))
#df2=student %>% group_by(age,level) %>% summarise(n = n())
#inner_join(df1,df2) %>% select(-`n`)


input=student
write.csv(input, "data-raw/s12_input1.csv", row.names=FALSE)
s12_input1 <- read.csv("data-raw/s12_input1.csv", check.names = FALSE)
fctr.cols <- sapply(s12_input1, is.factor)
int.cols <- sapply(s12_input1, is.integer)
s12_input1[, fctr.cols] <- sapply(s12_input1[, fctr.cols], as.character)
s12_input1[, int.cols] <- sapply(s12_input1[, int.cols], as.numeric)
save(s12_input1, file = "data/s12_input1.rdata")

output=input %>% group_by(age,level) %>% summarise(n = n()) %>% filter(n==max(n)) %>% select(-n)
write.csv(output, "data-raw/s12_output1.csv", row.names=FALSE)
s12_output1 <- read.csv("data-raw/s12_output1.csv", check.names = FALSE)
fctr.cols <- sapply(s12_output1, is.factor)
int.cols <- sapply(s12_output1, is.integer)
s12_output1[, fctr.cols] <- sapply(s12_output1[, fctr.cols], as.character)
s12_output1[, int.cols] <- sapply(s12_output1[, int.cols], as.numeric)
save(s12_output1, file = "data/s12_output1.rdata")

#simplier solution that it works since we never ungroup
student %>% 
group_by(age,level) %>% 
summarise(n = n()) %>% 
filter(n==max(n)) %>% 
select(-n)