r - 按非缺失值分组 Dplyr

Question

我有一个大型数据框(≈ 2M 观察值)，其中有很多重复项。我将删除这些重复项，但我需要将非重复值保留为以另一个未丢失的值 (NA) 为条件。它可以是任何可以想象的值，只要有一个非 NA。例如:

 data <- airquality
 data[4:10,3] <- rep(NA,7)
 data[1:5,4] <- NA

 library(dplyr)

 new.data <- data %>% 
    group_by(Ozone) %>% 
    filter(Wind==????))

在这里你可以看到我不确定要过滤什么，正如“Wind==?????”所注释的那样。只要 Wind 列中有任何值(数字或标称)，那么我想保留这些唯一值，同时删除非缺失值的条件值。

谢谢!

Answer 1

我们可以做到

data %>% 
     group_by(Ozone) %>%
     filter(!duplicated(Wind) & !is.na(Wind))