Инвертировать `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()

Ошибка в различном (x.1): объект 'x.1' не найден

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

Ошибка: невозможно преобразовать объект data.frame в функцию

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

Ошибка в различном (x.1): объект 'x.1' не найден

• Мне нужна функция, которая инвертирует функции tidyverse.

Answer 1

Вы можете попробовать:

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

      n
  <int>
1    10