将数据附加到 csv 文件

Question

我使用 R 的“tuber”库。在此代码片段中，我加载了一个 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)
}

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')

将数据附加到 csv 文件

Append data to csv file

csv

r

list

append