У меня есть датафрейм с идентичным столбцом, который повторяется, с количеством сайтов. Я хочу знать, как я могу удалить дубликаты ID записей только тогда, когда запись Site_Count больше 0.

Создать DF:

DF <- data.frame(
    'ID' = sample(100:300, 100, replace=T),
    'Site_count' = sample(0:1, 100, replace=T)
)

Моя попытка подмножества:

subset(DF[!duplicated(DF$ID),], site_count > 0)

Но в этом случае он удалит все 0 сайтов - я хочу установить подмножество, чтобы удалить запись только при наличии дублирующейся записи с более чем 0 сайтами.

Желаемые результаты будут выглядеть примерно так (обратите внимание на идентификаторы сайтов с 0 сайтами, но без дубликатов с 0 и других сайтов):

ID    site count
--    ----------
1        0
2        1
3        1
4        0
5        5