(R)如何将一项清单的每一项附加到CSV，并在列表项目的前面加上该项目的名称？

Question

我有一个列表，其中包含一些自动生成的对从TripAdvisor中删除的一些数据的写。清单上每一项的名称都是酒店的名称。因此，示例列表项如下所示：

$“假日快捷套房代顿南富兰克林” “假日酒店快捷套房代顿南富兰克林位于851商业中心博士，.”

然后，我有一个lapply函数，它从列表中获取每个写集，并将其附加到CSV文件中。

lapply(writeups, function(x) write.table( data.frame(x), 'writeups.csv', append= T, sep=',', row.names = F ))

问题是，当它将每个列表项附加到CSV时，它会在写的上面的行上打印出一个"x“。

X writeup1 X writeup2 X

我不太清楚如何将x更改为列表项的名称。有人有什么想法吗？谢谢。

Answer 1

因为循环看起来不太好，但我认为在这种情况下它可以帮助你。

for(i in 1:length(your.list)){
  d<-paste0('\n\n',names(your.list)[i],'\n\n')
  capture.output(cat(d),file='writeups.csv',append=T)
  write.table(your.list[i],file='writeups.csv',append= T, sep=',', row.names = F)
}

循环中的第一个命令行在列表中获取itemi的名称，并将其存储在开头。

希望它能帮到你，

致以问候。

Answer 2

在col.names = F中设置write.table()

lapply(writeups, function(x) write.table( data.frame(x), 'writeups.csv', append= T, sep=',', row.names = F, col.names = F ))