r - 确定一组变量中的任何值是否与另一个变量中的值匹配

Question

对于我数据集中的每个人(每人 1 行)，我正在尝试搜索一组变量(月份，因此在我的示例 Jan - Jul 中)以查看它们中的任何一个是否与不同变量(后续月份)中的值匹配)。我想创建一个新变量，该变量表示是或否，变量集中的值与 1 变量匹配。
基本上，我正在尝试为后续访问创建时间表。我在下面有“拥有”和“想要”数据集。
谢谢!
有:


ID
简
二月
三月
四月
可能
六月
七月
随访月


1
不适用
2
3
4
不适用
不适用
不适用
4

2
不适用
不适用
不适用
4
不适用
不适用
不适用
6

3
1
不适用
3
4
5
不适用
不适用
5

4
不适用
不适用
不适用
不适用
不适用
6
7
9


想:


ID
简
二月
三月
四月
可能
六月
七月
随访月
Follow_up_Status


1
不适用
2
3
4
不适用
不适用
不适用
4
是的

2
不适用
不适用
不适用
4
不适用
不适用
不适用
6
不

3
1
不适用
3
4
5
不适用
不适用
5
是的

4
不适用
不适用
不适用
不适用
不适用
6
7
9
不

Answer 1

这是一个带有旋转的版本:

library(dplyr)
library(tidyr)

df %>% 
  pivot_longer(
    -c(ID, Follow.up_month)
  ) %>% 
  group_by(ID) %>% 
  mutate(Follow_up_status = ifelse(Follow.up_month %in% value, "Yes", "No")) %>% 
  pivot_wider(
    names_from = name,
    values_from = value
  )

输出:

     ID Follow.up_month Follow_up_status   Jan   Feb   Mar   Apr   May  June   Jul
  <int>           <int> <chr>            <int> <int> <int> <int> <int> <int> <int>
1     1               4 Yes                 NA     2     3     4    NA    NA    NA
2     2               6 No                  NA    NA    NA     4    NA    NA    NA
3     3               5 Yes                  1    NA     3     4     5    NA    NA
4     4               9 No                  NA    NA    NA    NA    NA     6     7