Question

我有一个列表列表，我想将每个列表写到csv中的一行，并用逗号分隔。列表列表称为Winkelmandjes。看起来像这样：

[727]]
 [1] "taart"                      "mini slagroom en marsepein" "taart"                      "taart"                     
 [5] "taart"                      "taart"                      "karrewiel"                  "pistolet"                  
 [9] "pistolet"                   "pistolet"                   "pistolet"                  

[[728]]
[1] "brood"      "marsepein"  "koffiekoek" "taart"      "hoorn"      "koffiekoek"

[[729]]
[1] "koffiekoek"          "brood"               "gv-lv tompoes (2st)"

[[730]]
[1] "brood"              "wit vierkant klein" "koffiekoek"         "koffiekoek"         "brood"             
[6] "koffiekoek"         "koffiekoek"        

[[731]]
[1] "taart"      "koffiekoek" "taart"      "taart"

我尝试在Winkelmandjes上使用lapply循环，但这没有用。我也没有成功创建Winkelmandjes数据框。我知道这与以下事实有关：行的长度不同，但是我找不到解决方案。

lapply(Winkelmandjes, function(x) write.table( data.frame(x), 'test.csv'  , append= T, sep=',' ))

我想创建一个数据框或创建一行中每个列表具有不同值的csv文件。预先感谢。

Answer 1

将您的列表转换成向量，以逗号分隔的字符串，然后将其写入文件：

strings = sapply(lst1, paste, collapse = ",")
writeLines(strings, con = "myfile.csv")

在R中将CSV写成一行

1 个答案: