方法1
#读取wet.txt需要转换的目标矩阵，显示原行列。本例中行为sample，列为otu
otu<-read.delim('E:\\R语言网络分析\\wet.txt',sep='\t',row.names=1)
otu1<-t(otu)
write.table(otu1,file='otu9.txt',sep='\t',row.names=T)
方法2
#读取wet.xlsx需要转换的目标矩阵，显示原行列。本例中行为sample，列为otu
library(openxlsx)
otu<-read_excel("E:\\R语言网络分析\\wet.xlsx")
otu1=t(otu)
##导出已转置文件到本地储存，此处导出的文件为Excel格式文件
write.xlsx(otu1,file="otu11.xlsx",sep='\t',row.names=T)
# 将otu1保存为csv文件
write.csv(otu1,file="otu11.csv")
方法3
library(openxlsx)
otu<-read_excel("E:\\R语言网络分析\\wet.xlsx")
head(otu)
class(otu)
otu1=t(otu)
write.xlsx(otu1,file="otu2.xlsx") ##导出已转置文件到本地储存，此处导出的文件为Excel格式文件
# 将otu1保存为csv文件
write.csv(otu1,file="otu5.csv")
