>我有一个列表列表,我想用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 文件,其中每个列表在一行中的不同值。提前谢谢。
将列表转换为逗号分隔字符串的向量,然后将它们写入文件:
strings = sapply(lst1, paste, collapse = ",")
writeLines(strings, con = "myfile.csv")