r语言 - WikipediaR:如何使用contribs()自动化函数?

Question

我希望从1905篇维基百科条目列表中收集有关贡献者的信息，包括每页的贡献者数量。

目前，我可以为一页的贡献者数量制作一个工作脚本。

library(WikipediaR)
contribsWiki <- contribs(domain = "fr", page = 5916592)
contribsWiki2 <- contribsWiki[["contribs"]]
nrow(contribsWiki2)

如何自动化所有其他维基百科页面的流程？

我已经尝试过 tidyverse 的 apply((，但似乎我总是碰壁。

Answer 1

这应该可以满足您的需求：

out <- data.frame()
for (i in 1:nrow(list_of_articles)){
id <- list_of_articles[i]
contribsWiki <- contribs(domain = "fr", page = id)
contribsWiki2 <- contribsWiki[["contribs"]]
no_of_contribs <- nrow(contribsWiki2)
out <- rbind(out,data.frame(id,no_of_contribs))
}