反转`tidyverse`功能

Question

我有以下df：

set.seed(126)

df <- data.frame(
  x = replicate(2, sample(1:25, 25, replace = TRUE))
)

对于返回不同的值：

library(tidyverse)
library(magrittr)

df %>% distinct(x.1) %>% count()

# A tibble: 1 x 1
      n
  <int>
1    17

但是，我想返回重复的值，而不是不同的值。我尝试：

df %>% !distinct(x.1) %>% count()

  

distinct（x.1）中的错误：找不到对象'x.1'

df %>% negate(distinct(x.1)) %>% count()

  

错误：无法将data.frame对象转换为函数

df_1 %>% not(distinct(x.1)) %>% count()

  

distinct（x.1）中的错误：找不到对象'x.1'

• 我需要一个可反转tidyverse函数的函数。

Answer 1

您可以尝试：

df %>%
 filter(duplicated(x.1)) %>%
 count()

      n
  <int>
1    10