如何删除名称仅出现一次的行？

Question

您好，我想删除名称仅出现一次的行。 我简化了问题： 在“名称”列中，“ ananas”，“ bike”，“ lemon”仅出现一次，我想删除这些行。

我的数据如下：

Answer 1

有许多解决此问题的方法。如果您想以tidy的方式解决它，我建议这样做：

library(dplyr)
library(tibble)
df = tribble(~name, ~value,
        "ananas", 42,
        "apple", 4,
        "apple", 69,
        "bike", 70)

df %>% 
  add_count(name) %>% 
  filter(n!=1) %>%
  select(-n)

# A tibble: 2 x 2
  name  value
  <chr> <dbl>
1 apple     4
2 apple    69