r语言 - 为什么tidyverse::map不能在一个目录中使用两个列表?

Question

我正在计算dias_trabajo列中dias_evaluar中有多少天。

library(tidyverse)
library(lubridate)

这是最小表示:

tibble(
dias_trabajo = list(seq(ymd("2021-01-01"), ymd("2021-01-22"), by = "day"), seq(ymd("2021-01-04"), ymd("2021-01-22"), by = "day")),
dias_evaluar = list(seq(ymd("2021-01-01"), ymd("2021-01-07"), by = "day"))
) %>% 
mutate(
trabajo = map(dias_trabajo, function(x) x %in% dias_evaluar) %>% map_int(sum)
)

以上代码在trabajo处为零。

# A tibble: 2 x 3
dias_trabajo dias_evaluar trabajo
<list>       <list>         <int>
1 <date [22]>  <date [7]>         0
2 <date [19]>  <date [7]>         0

我期望列trabajo为:第一行:7，第二行:4。

我尝试只用一行，它工作:

seq(ymd("2021-01-01"), ymd("2021-01-22"), by = "day") %in% seq(ymd("2021-01-01"), ymd("2021-01-07"), by = "day") %>% sum()

。这是第一行的预期结果。

[1] 7

Answer 1

由于您有两个列表作为输入dias_trabajo和dias_evaluar，您需要使用map2

library(tidyverse)
library(lubridate)

tb %>% 
mutate(
trabajo = map2_dbl(.x = dias_trabajo, .y = dias_evaluar, ~sum(.x %in% .y))
)
# A tibble: 2 x 3
dias_trabajo dias_evaluar trabajo
<list>       <list>         <int>
1 <date [22]>  <date [7]>         7
2 <date [19]>  <date [7]>         4

数据:

tb <- tibble(
dias_trabajo = list(seq(ymd("2021-01-01"), ymd("2021-01-22"), by = "day"), seq(ymd("2021-01-04"), ymd("2021-01-22"), by = "day")),
dias_evaluar = list(seq(ymd("2021-01-01"), ymd("2021-01-07"), by = "day"))
)