リスト内の項目が特定の条件に一致する場合にr内の行を削除する方法

Question

私は各行内にリストを含むデータフレームを持っています。私はそれが最も一般的な番号の基準と一致する場合には行を削除したいと思います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)