将矩阵的每一列写入R中的不同文本文件

Question

我有以下矩阵，我想通过仅逐列将行名和多列写入文本文件。有办法吗？

r1 <- c("0","0","0","1","0","0","0","1","0","1","1","0","0")
r2 <- c("1","0","0","1","0","0","0","1","1","0","1","0","0")
r3 <- c("0","1","0","0","1","0","0","0","1","0","0","1","0")
r4 <- c("0","0","1","0","0","1","0","0","1","0","0","0","1")
r5 <- c("0","0","1","0","0","0","1","0","1","0","0","0","1")

n.mat <- rbind(r1,r2,r3,r4,r5)

所以最后我想要 13 个纺织品，每个纺织品包含一个 rowname 列和一个包含 0 和 1 的列。

Textfile 1      Textfile 2       ................
   V1                V2
r1 0             r1  0
r2 1             r2  0
r3 0             r3  1
r4 0             r4  0
r5 0             r5  0

Answer 1

您可以使用 for 循环并使用例如cat写出来。

for(i in seq_len(ncol(n.mat))) {cat(n.mat[,i], file=paste0("Textfile", i))}

并带有标题和列：

for(i in seq_len(ncol(n.mat))) {cat(c(paste0("V",i), n.mat[,i]),
 file=paste0("Textfile", i), sep="\n")}

还有行名（但最好使用write.table - 只是为了展示它是如何完成的）：

for(i in seq_len(ncol(n.mat))) {cat(c(paste0("   V",i),
 paste(row.names(n.mat), n.mat[,i])), file=paste0("Textfile", i), sep="\n")}

Answer 2

我会使用 for 循环，例如：

for (i in 1:ncol(n.mat)) {
  write.table(x = n.mat[, i, drop = FALSE], file = paste0("n.mat.column", i, ".txt"))
}