当因子的所有级别上都显示零时,删除列上具有零值的行

假设初始数据帧为 df ,如果有,请过滤 error 在里面 team 组为非零:

library(dplyr)
df %>% group_by(team) %>% 
       filter(any(error!=0))

按“团队”分组后,我们可以检查 sum 逻辑向量法( error != 0 )大于0,即至少有一个非零元素

library(dplyr)
df %>% 
   group_by(team) %>% 
   filter(sum(error !=0 ) > 0)

==

df %>%
   group_by(team) %>%
   filter(sum(error == 0) < n())

数据

df <- structure(list(id = 1:9, team = c("One", "Two", "Three", "One", 
 "Two", "Three", "One", "Two", "Three"), error = c(0, 5.7, 0, 
 0, 0, 0, 0, 0, 6.7), method = c("alpha", "alpha", "alpha", "beta", 
 "beta", "beta", "gamma", "gamma", "gamma")), class = "data.frame", 
 row.names = c(NA, -9L))

subset(df, ave(error, team)!=0)

这过滤掉了所有的水分 team s的平均误差等于零。。。并且可能会有问题,例如,如果 error (比如, c(-1, -2, 3) ).

因此,更一般的情况是

subset(df, !ave(error, team, FUN=function(x) all(x==0)))

.. 或者使用akrun回答中的想法:

subset(df, ave(error %in% 0, team) < 1)