Reshape 샘플

actor <- c("kim", "lee", "hyun")

gender <- c("M", "F", "M")

boxoffice2012 <- c(100, 110, 120)

boxoffice2014 <- c(100, 80, 160)

actordf <- data.frame(actor, gender,boxoffice2012, boxoffice2014) 

actordft <- t(actordf)

actordft 

str(actordft )

require(reshape)

# gender 가없었을때 돌아가던 것

actordf_m1 <- melt(actordf, id=c("actor"))

actordf_m1

# gender 가 추가된 후 ... 

actordf_m2 <- melt(actordf, id=c("gender", "actor"))

actordf_m2

actordf_m2$variable <- substr(actordf_m2$variable, 10, 13)

names(actordf_m2)[3] <- "boyear"

names(actordf_m2)[4] <- "boxoffice"

cast(actordf_m2, boyear ~ actor, mean, value = 'boxoffice')

cast(actordf_m2, actor ~ boyear, mean, value = 'boxoffice')

cast(actordf_m2, actor ~ boyear, sum, value = 'boxoffice')

cast(actordf_m2, actor ~ boyear, sum, value = 'boxoffice')

cast(actordf_m2, gender ~ boyear, mean, value = 'boxoffice')