R保存磁盘中的列表

Question

我有一个列表var1：

var1 <- list(c("parts of a day", "time in astronomy", "star"),  c("tree tall", "pine tree"), c("environmental condition", "climate"))

我想将其保存在磁盘中。例如，磁盘中保存的文件必须在csv文件的每一行中包含以下内容：

"parts of a day" 
"time in astronomy" 
"star"
"Tree tall"
"pine tree"
"environmental condition" 
"climate"          

我试过

capture.output(unlist(var1), file="a1.csv", append=FALSE)

但是这会创建以下格式：

[1] "parts of a day"          "time in astronomy"       "star"                    "tree tall"              

[5]＆＃34;松树＆＃34; ＆＃34;环境条件＆＃34; ＆＃34;气候＆＃34;

如何解决这个问题？我们将非常感谢代码片段。

感谢。

Answer 1

你可以尝试

cat(paste0("'", unlist(var1), "'"), file='yourfile.txt', sep="\n")

或者我们可以使用paste

而不是shQuote

cat(shQuote(unlist(var1)), file='john.txt', sep="\n")