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

我们可以使用rbindlist

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

fwrite(nv, 'bb.csv')

Answer 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")

将数据附加到 csv 文件

2 个答案: