如何在列表中的项目符合特定条件时删除r中的行

Question

我有一个数据框，其中包含每行中的列表。我想删除一行，如果它匹配最常见数字的标准，列表中的0为0 /列表的平均值为0.然后保存新数据帧。

非常感谢

col| list.val | total
-------------------------
 1 | c(0.148573085665703, 0.149999290704727)| 5
 2 | c(0, 0)| 3
 3 | c(-0.0181932244449854, -0.026567880064249)| 2
 4 | c(-0.0181932235749854, -0.556567880064249)| 1
 5 | c(0, 0)| 5

Answer 1

        checker <- function(v){
            if(mean(v) == 0 | ){
                return(NA)
            }else {
                return(v)
            }
    }

df$filtered <- lapply(df$list.val, checker)