你给的例子，好像只有丙C是符合条件的啊

分组之后用diff做差分可以用这个思路

df %>%
  group_by(地区, 专业) %>%
  arrange(数值, .by_group = TRUE) %>%
  mutate(flag1 = 数值 - lag(数值),
              flag2 = cumsum(flag1 != 1)) %>%
  group_by(地区, 专业, flag2) %>%
  filter(n() >= 3) %>%
  ungroup() %>%
  select(-flag1:-flag2)

谢谢，我试试

谢谢，我试试