我想指望有多少天列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
由于您有两个列表作为输入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"))
)
本文收集自互联网，转载请注明来源。
如有侵权，请联系 [email protected] 删除。
我来说两句