在 r 中，如何在没有 for 循环的情况下获得相同的结果？

Question

我正在寻找另一种方法来实现相同的结果，因为 for 语句太慢了。

我有以下数据框。

'data.frame':   50000 obs. of  2 variables:
$ user_id: chr  "user1@test.com" "user2@test.com" ......
$ result : logi  NA NA ......

Function f 采用用户 ID 并返回特定结果。

f <- function(user_id){
 ......
 return(json_result)
}

我想要的结果如下。

'data.frame':   50000 obs. of  2 variables:
$ user_id: chr  "user1@test.com" "user2@test.com" ......
$ result : chr  "{....}" "{....}" ......

我正在像下面的代码一样运行一个循环，但是速度太慢了。

for (t in df$user_id) {
 print(t)
 df$result[df$user_id==t] <- f(t) 
}

每个用户大约需要 3 秒，3*50000 秒总共获得 50,000 个用户。

有没有其他方法可以更快地获得结果？

Answer 1

您正在寻找lapply function：

df$result <- lapply(df$user_id, f)

Answer 2

或者，您可以使用 purrr 的 map 函数。

library(tidyverse)
purrr::map(df$user_id, f)

这将 output 一个列表，其中每个元素是 function 调用的 output 。 根据您的 function 的 output，您可以使用map变体到一些向量类型的 Z78E6221F6393D14CED6Z86。 您可以在以下文档中阅读： https://purrr.tidyverse.org/reference/map.html