有条件地删除R中的重复项

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

I have a dataset in which I need to conditionally remove duplicated rows based on values in another column.

具体来说，只有在SampleID是重复的 时，我才需要删除size = 0的任何行.

Specifically, I need to delete any row where size = 0 only if SampleID is duplicated.

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)

我要使用以下内容删除行:

I want to delete rows with:

Sample ID   size
a           0
d           0

并保留:

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

注意.实际的数据集非常大，因此我不寻求一种仅按行号删除已知行的方法.

Note. actual dataset it very large, so I am not looking for a way to just remove a known row by row number.