r - 从公司列表中，将推文流式传输到 df 中？

Question

从一个 txt 文档中，我将有一个公司列表，比如 Telstra、Optus 和三星。

将此列表导入 R 后，我需要一个循环来执行与下面的代码等效的操作。该列表可以是任意数量的公司，所以我的主要问题是它需要自动化。

df1 <- search_tweets2("Telstra", retryonratelimit = TRUE,include_rts=FALSE)
df2 <- search_tweets2("Optus", retryonratelimit = TRUE,include_rts=FALSE)
df3 <- search_tweets2("Samsung", retryonratelimit = TRUE,include_rts=FALSE)

谢谢。

Answer 1

我们可以使用lapply或 purrr 的map函数来遍历每个公司名称。如果有很多公司要搜索使用Sys.sleep以避免达到限制。

df <- data.frame(companies = c("Telstra", "Optus", "Samsung"))

result <- purrr::map_df(df$companies, ~{
  search_tweets2(.x, retryonratelimit = TRUE,include_rts=FALSE)
  #Sys.sleep(5)
}, .id = 'id')