mydata<-read.table("clipboard",sep="\t",header=T,row.names = 1)
trans<-t(t(mydata)/colSums(mydata))*1E6
write.table(trans,file="out.xls",sep="\t") #导出数据行名会错一个
OTU表或微生物组成表数据归一化到100万
于 2021-08-18 14:47:55 首次发布
mydata<-read.table("clipboard",sep="\t",header=T,row.names = 1)
trans<-t(t(mydata)/colSums(mydata))*1E6
write.table(trans,file="out.xls",sep="\t") #导出数据行名会错一个