将数据追加到csv文件

Question

我为R使用了"tuber“库。在这段代码中，我加载了一个带有YouTube-channels In的文件，并将信息写入到一个向量中。在循环中的下一步，我遍历ID并粘贴一个数组元素(youtube channel)作为"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)
}

Answer 1

您可以使用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")

Answer 2

我们可以使用rbindlist

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

fwrite(nv, 'bb.csv')