含碱基R

> subset(df, duplicated(df$x)| duplicated(df$x, fromLast = TRUE))
  x y
1 1 A
2 1 B
3 2 C

可以按组使用n()：

library(dplyr) #1.1.0 needed or above
df %>% 
  filter(n() > 1, .by = x)

  x y
1 1 A
2 1 B
3 2 C
4 2 D

或者，在base R中：

subset(df, ave(x, x, FUN = length) > 1)

在data.table中：

setDT(df)[, if(.N > 1) .SD, x]

如果我们按单个列分组，则n（）〉1的所有组都具有该列的“重复”值

library(dplyr)

df %>%
    group_by(x) %>%
    filter(n()>1) %>%
    ungroup()

# A tibble: 4 × 2
      x y    
  <dbl> <chr>
1     1 A    
2     1 B    
3     2 C    
4     2 D