- library(reshape2)
- x<-data.frame(id=1:6,
- name=c("wang","zhang","li","chen","zhao","song"),
- shuxue=c
- (89,85,68,79,96,53),
- yuwen=c
- (77,68,86,87,92,63))
- # 根据 id 和 name 两列, 把后面的 shuxue 和 yuwen 两列合成一列.
- x1<-melt(x,id=c("id","name"))
和 melt() 函数功能相反的是 cast() 函数, 可以把长型数据转换成你想要的任何宽型数据. 要输出结果为 data.frame, 则用 dcast() 函数.
x2<- dcast(x1,id~variable)
来源: http://www.bubuko.com/infodetail-3276005.html