我有一个数据集，有点像这样:
df <- tibble(group = c(1,1,1,2,2,3,3),
type = c("HOME", "MAIL", "HOME", "HOME", "HOME",
"MAIL", "MAIL"),
count = c(3,4,4,3,3,2,2))
在我的dplyr管道中，我想做一个条件筛选器，这样对于每个组，如果有任何type == "HOME"，它将从该组中筛选出任何TYPE == "MAIL"，如果没有"Home"，则保留"Mail".正如我最后总结的那样，我希望它的输出是
组1=7，组2=6，组3=4.
如有任何帮助，我们将不胜感激
我们可以转换成ordered个因子，然后过滤掉第一个level
library(dplyr)
df %>%
mutate(type = ordered(type, c("HOME", "MAIL"))) %>%
group_by(group) %>%
summarise(count = sum(count[type %in%
first(levels(droplevels(type)))]))
-输出
# A tibble: 3 × 2
group count
<dbl> <dbl>
1 1 7
2 2 6
3 3 4
或者也可以使用min
df %>%
group_by(group) %>%
summarise(count = sum(count[type ==min(ordered(type, c("HOME", "MAIL")))]))