只在 dataframe 中留下重复的行，与 R

Question

我有一个 dataframe，看起来像这样：

col1	列2	列3
tn1	一种	b
tn1	一种	c
tn2	d	b
tn3	一种	b

我只想保留那些为 col1 和 col2 重复的行，保留两行：

col1	列2	列3
tn1	一种	b
tn1	一种	c

我一直在尝试通过使用 unique() 或 distinct() 或 anti_join() 来做到这一点，但无法弄清楚。

Answer 1

更新：解决@r2evans 的担忧（见评论）：

df[duplicated(df[,c("col1","col2")]) | duplicated(df[,c("col1","col2")], fromLast=TRUE),]

OR: 

df[ave(rep(0, nrow(df)), df[,c("col1","col2")], FUN = length) > 1,]

基地 R：

df[df$col1 %in% df$col1[duplicated(df$col1)],]

  col1 col2 col3
1  tn1    a    b
2  tn1    a    c

Answer 2

使用vctrs ：

library(tibble)
library(vctrs)

df <- tribble(
  ~col1, ~col2, ~col3,
  "tn1",   "a",   "b",
  "tn1",   "a",   "c",
  "tn2",   "d",   "b",
  "tn3",   "a",   "b"
)

cols <- df[c("col1", "col2")]

dups <- vec_duplicate_detect(cols)
dups
#> [1]  TRUE  TRUE FALSE FALSE

df[dups,]
#> # A tibble: 2 × 3
#>   col1  col2  col3 
#>   <chr> <chr> <chr>
#> 1 tn1   a     b    
#> 2 tn1   a     c

^{创建于 2023-01-27，使用reprex v2.0.2.9000}

Answer 3

找到这个并工作

df %>% group_by(col1) %>% filter((重复(col2) | 重复(col2, fromLast = T)))