使用dplyr，您可以

library(dplyr)
dd %>% 
  mutate(c = as.numeric(n_distinct(b)!=1), .by=a)

字符串
哪里

dd <- data.frame(
  a = c(1, 1, 1, 2, 3, 3, 4, 5, 5, 5, 6, 6),
  b = c("-", "-", "R", "-", "R", "R", "-", "-", "-", "-", "R", "-")
)

型
我们的想法是，我们计算每组“a”值的不同值的数量，如果它不正好是1，就标记它。

a b c
1  1 - 1
2  1 - 1
3  1 R 1
4  2 - 0
5  3 R 0
6  3 R 0
7  4 - 0
8  5 - 0
9  5 - 0
10 5 - 0
11 6 R 1
12 6 - 1

型

我们可以使用ave：

within(dd, c <- ave(b, a, FUN = \(x) +(length(unique(x)) > 1)))

#>    a b c
#> 1  1 - 1
#> 2  1 - 1
#> 3  1 R 1
#> 4  2 - 0
#> 5  3 R 0
#> 6  3 R 0
#> 7  4 - 0
#> 8  5 - 0
#> 9  5 - 0
#> 10 5 - 0
#> 11 6 R 1
#> 12 6 - 1

字符串

**数据：**摘自弗里克先生的回答：

dd <- data.frame(
  a = c(1, 1, 1, 2, 3, 3, 4, 5, 5, 5, 6, 6),
  b = c("-", "-", "R", "-", "R", "R", "-", "-", "-", "-", "R", "-")
)

型
创建于2023-12-11使用reprex v2.0.2