r - R输出相异矩阵

Question

我是 R 的新手，我想从 R 中导出一个具有相异矩阵的文件。到那时我已经写了：

  x<-read.table("C:\\Users\\A\\Documents\\R\\new all.csv",
              header=T,sep=";",row.names=1)
  library(betapart)
  beta<-beta.pair(x[,1:192], index.family="sorensen")

我应该使用哪个函数来导出它？干杯

Answer 1

如果您检查str(beta)，您会注意到这beta是以下三个元素的列表，每个元素都是 class dist: beta.sim、beta.sne和beta.sor。您可以按照@pogonomyrmex 的建议导出beta使用write.csv()或write.table()函数的每个元素，但首先您需要首先将每个元素指定beta为 amatrix而不是 a dist：

m.sim <- as.matrix(beta$beta.sim)
m.sne <- as.matrix(beta$beta.sne)
m.sor <- as.matrix(beta$beta.sor)

然后您可以单独导出每个矩阵：

write.csv(m.sim, "sim.csv")
write.csv(m.sne, "sne.csv")
write.csv(m.sor, "sor.csv")

Answer 2

您可以使用该write.table(beta, "file.txt")函数输出文本文件。如果您想要一个 csv 文件，请使用write.csv()或将sep=","参数添加到 write.table 函数。