R制作大量文本文件

Question

样本

x <- 1:10
fileConn<-file("file[x.txt")
writeLines("hello number",
           print(x), fileConn)
close(fileConn)

这里我有 x 从 1 到 10。我希望制作 10 个名为 "file1.txt" 到 "file10.txt" 的文件，上面写着

"hello number"
1

到

"hello number"
10

例如。

编辑-实际上应该是

hello number 1

而不是

hello number
1

Answer 1

我们可以在这里尝试使用 apply 函数：

sapply(x, function(y) {
    name <- paste0("file", y, ".txt")
    fileConn <- file(name)
    writeLines(c("hello number", y), fileConn)
    close(fileConn)
})

如果您不想要那些默认的换行符，那么一种选择是只用一个字符调用 writeLines：

writeLines(paste0("hello number ", y), fileConn)

R制作大量文本文件

R make lots of text files

r

text

write.table

sink