从公司列表中，将推文流式传输到 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')

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

From a list of companies, stream tweets into df's?

loops

for-loop

r

list

tweetr