一种更快速的列表提取方法

Question

  mutate(bookings_gts = map(.x = data, ~pluck(.x,"bookings_gts",1))) %>%

这是我目前正在使用的代码，但它需要一段时间。我正在努力访问这个表中的“data”列：

​

​

并使用map函数提取和映射bookings_gts。我已经在使用pluck()了，所以可能没有更快的方法了。

​

​

Answer 1

我们可以使用速度更快的[[来代替pluck

library(dplyr)
library(purrr)
... %>%
    mutate(bookings_gts = map(.x = data, ~ .x[["bookings_gts"]][[1]]))