来自 http://blog.sina.com.cn/s/blog_670445240102v2pr.html
library(reshape2);
arc_genus_2<-read.table((“arc_otu.csv”,header=TRUE,sep=”\t”);
arc_otu.csv 数据存放位置http://pan.baidu.com/s/1mgFofuK
nn<-4;
aa<-arc_genus_2[,c(2:(nn+1),(nn+7))];
md<-melt(aa,id=”genus”);
ab<-dcast(md,genus~variable,sum);
md数据:
ab数据:
melt(data, id.vars,measure.vars,variable.name = “variable”, …, na.rm = FALSE,value.name = “value”)
dcast(data, formula, fun.aggregate = NULL, …, margins = NULL,
acast(data, formula, fun.aggregate = NULL, …, margins = NULL,
参考资料:
R语言实战
有兴趣的同学也可以看看陈丽云的博文:http://www.loyhome.com/探索R包reshape2:揉数据的最佳伴侣/