有条件地删除重复项

我有一个数据集，需要根据另一列中的值有条件地删除重复的行。

具体来说，我需要删除其中的任何行size = 0除非SampleID is 重复的.

SampleID<-c("a", "a", "b", "b", "b", "c", "d", "d", "e")
size<-c(0, 1, 1, 2, 3, 0, 0, 1, 0)
data<-data.frame(SampleID, size)

我想删除行：

Sample ID   size
a           0
d           0

并保留：

SampleID   size
a          1
b          1
b          2
b          3
c          0
d          1
e          0

笔记。实际数据集非常大，所以我不是在寻找一种方法来仅删除已知的行号。

In dplyr我们可以使用group_by and filter:

library(dplyr)

data %>% 
  group_by(SampleID) %>% 
  filter(!(size==0 & n() > 1)) # filter(size!=0 | n() == 1)) 

#> # A tibble: 7 x 2
#> # Groups:   SampleID [5]
#>   SampleID  size
#>   <fct>    <dbl>
#> 1 a            1
#> 2 b            1
#> 3 b            2
#> 4 b            3
#> 5 c            0
#> 6 d            1
#> 7 e            0