柱评估数据帧列，并根据符合条件

Question

我有这样一个数据帧（DF）替换该列中的每个值：

0 5 5 5 5 5 
0 5 5 5 0 5 
0 5 5 5 NA 5 
5 0 0 0 NA 5 

，我要检查又和计数每列值大于0的行数。如果值大于0的行数大于3，我想用NA替换该列中的所有值。对于上面的输出应该是这样的：

0 5 5 5 5 NA 
0 5 5 5 0 NA 
0 5 5 5 NA NA 
5 0 0 0 NA NA 

这是我曾尝试

df[,(nrow(df)>0)> 3]<-NA 

Answer 1

这是解决方案：

df[, colSums(df > 0)> 3]<-NA