柱評估數據幀列，並根據符合條件

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