我正在尝试生成一个标记变量。下面是我的示例数据集的样子:
data <- data.frame(
  ids = c(1,1,1, 2,2,2, 3,3,3),
  cat = c("A","B","B", "C","B","C", "A","B","A"))
> data
  ids cat
1   1   A
2   1   B
3   1   B
4   2   C
5   2   B
6   2   C
7   3   A
8   3   B
9   3   A如果没有观察到每个ids的C,我需要一个标记变量来标记id。
 > data
      ids cat  flag
    1   1   A    0
    2   1   B    0
    3   1   B    0
    4   2   C    1
    5   2   B    1
    6   2   C    1
    7   3   A    0
    8   3   B    0
    9   3   A    0有什么想法吗?谢谢!
发布于 2020-02-12 06:05:53
按“if”分组后,通过检查“C”是否为“%in%”来创建“标志”,返回逻辑值TRUE/FALSE,并使用as.integer或+将其强制为1/0
library(dplyr)
data %>%
     group_by(ids) %>%
     mutate(flag = +('C' %in% cat))
# A tibble: 9 x 3
# Groups:   ids [3]
#    ids cat    flag
#  <dbl> <fct> <int>
#1     1 A         0
#2     1 B         0
#3     1 B         0
#4     2 C         1
#5     2 B         1
#6     2 C         1
#7     3 A         0
#8     3 B         0
#9     3 A         0或者使用any进行包装
  ... %>%
  mutate(flag = as.integer(any(cat %in% 'C')))https://stackoverflow.com/questions/60178042
复制相似问题