根据另一列中的值在一个列中重复复制的行删除行

Question

提出了一个类似的问题在这里。但是，我没有设法对我的特定问题采用该解决方案，因此是一个单独的问题。

一个示例数据集：

  id group
1  1   5
2  1 998
3  2   2
4  2   3
5  3 998

我想删除在ID中重复的所有行且组具有值998的行。 在此示例中，仅应删除第2行。

我尝试了一些事情：

df1 <- df %>%
  subset((unique(by = "id") |  group != 998))

但是

ins.factor（x）中的错误（X）：参数“ x”，没有默认值

默认

Answer 1

这是一个想法，

library(dplyr)

df %>% 
 group_by(id) %>% 
 filter(!any(n() > 1 & group == 998))

# A tibble: 3 x 2
# Groups:   id [2]
     id group
  <int> <int>
1     2     2
2     2     3
3     3   998

如果您只想从组中删除998条目，

df %>% 
 group_by(id) %>% 
 filter(!(n() > 1 & group == 998))

Answer 2

一种方法可能是：

library(dplyr)

df1 <- df %>% 
  filter(duplicated(id) & group=="998") 

anti_join(df, df1)

Joining, by = c("id", "group")
  id group
1  1     5
3  2     2
4  2     3
5  3   998