R 기초; 집단 요약

R 기초; 집단 요약

 

split()

unstack()

 

head(mtcars)

 

mtcars <- within(mtcars, am <- factor(am, levels=c(0,1), labels=c("Automatic", "Manual")))

 

head(mtcars)

                  cyl disp  hp drat    wt  qsec vs        am gear carb
Mazda RX4           6  160 110 3.90 2.620 16.46  0    Manual    4    4
Mazda RX4 Wag       6  160 110 3.90 2.875 17.02  0    Manual    4    4
Datsun 710          4  108  93 3.85 2.320 18.61  1    Manual    4    1

 

 

g <- split(x=mtcars$mpg, f=mtcars$am)

g

 

mean(g[[1]])

mean(g([["Manual"]])

sapply(g, mean)