如何按组排除行？

Question

说我有tbl这样的var1分组：

var1 var2
A    2
A    3
A    0
B    0
B    2
B    1
C    0
C    0
C    0

我想知道是否有办法摆脱var2中全部为零的群组，例如在此数据集中应移除群组c，如下所示：< / p>

var1 var2
A    2
A    3
A    0
B    0
B    2
B    1

使用dplyr有一种简单的方法吗？我希望仅使用dplyr和tidyr中由%>%连接的函数给出答案。

Answer 1

尝试类似：

{{1}}

Answer 2

怎么样？

 tbl %>%
   group_by(var1) %>%
   mutate(var3 = ifelse(mean(var2) == 0, 1, 0))
   filter(var3 != 1)

Answer 3

tbl %>%
   group_by(var1) %>%
   filter(sum(var2)!= 0)