R操作合并数据等
library(data.table)setwd("/mnt/10t/mzy/48samples/16s/salmon/")fread("DNAabd138.csv")->DNAas.data.frame(DNA)->DNArow.names(DNA)<-DNA[,1]unique(DNA[,1])->namelistx<-c("")for (i in namelist){t(data.frame(colSums(DNA[which(DNA$Name==i),3
原创
2020-06-09 20:03:25 ·
229 阅读 ·
0 评论