r - 在 for 循环中写入多个文件

Question

我有这样的样本数据

df <- data.frame(name = rep(letters[1:7], each = 24), salary = runif(24*7, 100, 200))

我想把每个名字和他们的薪水分开

lst <- tapply(df$salary, df$name, matrix, nrow = 4, byrow = TRUE)

现在我想将所有这 7 个矩阵写入 7 个不同的文本文件，它一次仅适用于一个矩阵。我试图放入一个 for 循环但不起作用

for (i in 1:7)
{
write.table(lst[i], ".txt", col.names = FALSE, row.names = FALSE, sep = "\t", quote = FALSE)
}

任何人都可以建议在 for 循环中进行修改吗？

Answer 1

鉴于您的 lst ，下面将把它写到一系列名称等于 lst 的 TXT 文件中。 , 加 .txt :

lapply(names(lst),
       function(x, lst) write.table(lst[[x]], paste(x, ".txt", sep = ""),
                                    col.names=FALSE, row.names=FALSE, sep="\t", 
                                    quote=FALSE),
       lst)

修改您的 for()循环，尝试:

for(i in seq_along(lst)) {
    write.table(lst[[i]], paste(names(lst)[i], ".txt", sep = ""), 
                col.names = FALSE, row.names = FALSE, sep = "\t", quote = FALSE)
}

问题是试图或假设 R 会为您粘贴文件名。