将数据附加到 csv 文件答案

【问题标题】：Append data to csv file将数据附加到 csv 文件
【发布时间】：2021-07-21 21:59:36
【问题描述】：

我使用 R 的“tuber”库。在这段代码 sn-p 中，我加载了一个 ID 为 YouTube 频道的文件，并将信息写入一个向量。循环中的下一步，我遍历 ID 并将数组元素（youtube 频道）作为参数粘贴到“list_channel_videos”函数。该函数的结果是一个包含频道信息的列表。如何将有关所有通道的信息按顺序写入 csv 文件？如果我使用此代码，则仅记录有关数组中最后一个通道的信息。

vtest <- read.csv2("tester.csv", header = FALSE)
arrv <- as.matrix(vtest)
arv <- as.vector(arrv)
iterator <- 1
for (iterator in 1:length(arv)) {
 nv <- list_channel_videos(channel_id = arv[iterator])
 write.csv2(nv, file="bb.csv", append = TRUE)
}

【问题讨论】：

标签： r list csv append

【解决方案1】：

我们可以使用rbindlist

library(data.table)
nv <- rbindlist(lapply(arv, list_channel_videos))

fwrite(nv, 'bb.csv')

【讨论】：

好的，也谢谢你。我有一个新问题：如何计算 lapply 中的迭代次数？

【解决方案2】：

您可以使用lapply 并将输出合并到一个数据帧中。

nv <- do.call(rbind, lapply(arv, list_channel_videos))
#You can also use `purrr`'s `map_df` function
nv <- purrr::map_df(arv, list_channel_videos)

将这些数据一起写入一个 csv 文件。

write.csv2(nv, file="bb.csv")

【讨论】：

我有一个新问题：如何计算 lapply 中的迭代次数？
@AlexeyDidorenko 你能问这个问题吗？
就在这里link