如何加快 for Loop 中的 API 调用

Question

我最近编写了一个脚本，以便通过 API 调用查找搜索量。

这是我使用的脚本：

install.packages("SEMrushR")
library(SEMrushR)

#Data frame to append data

final_result_useo_rumbo <- data.frame()
mes_keywords_to_check <- readLines("useo_rumbo_es.txt") 
mes_keywords_to_check <- as.character(mes_keywords_to_check)

#Loop in order to look for each keyword that is in my list, then return Search volume thanks to the API call and finally store it in a new database.

for (i in 1:length(mes_keywords_to_check)) {
  test_keyword <- as.character(mes_keywords_to_check[i])
    df_test_2 <- keyword_overview_all(test_keyword, "es","API KEY")  
  final_result_useo_rumbo <- rbind(final_result_useo_rumbo,df_test_2)
}

脚本运行良好，但问题是我有很多关键字要检查 (800 000)。 当我为 60 000 个关键字做这件事时，花了将近 4 个小时才完成......

你知道我可以如何加快这个过程吗？有没有更好的方法来编写脚本？

Answer 1

您可以尝试用apply 函数替换for 循环：

result <- sapply(mes_keywords_to_check, function(x) {
    keyword_overview_all(x, "es", "API KEY")
})

那么，你可以data.frame上面的，如果你想要一个数据框而不是一个矩阵：

result <- data.frame(result)

或者可以转置：

result <- data.frame(t(result))

您不需要对mes_keywords_to_check 中的每个条目调用as.character，因为您已经在循环之前将整个向量转换为字符（或apply 调用，在上述情况下）。此外，您可能也不需要在循环的每次迭代中调用rbind。相反，让 R 为您汇总数据，然后担心循环/应用完成后要做什么。