数据框列中的 R 计数值大于零

Question

我有数据框:

mat=data.frame(A=c(12,10,0,14,0,60),B=c(0,0,0,0,13,65))

问题是:如何过滤掉含有过多零的列 [例如> 50%]？例如。 B 列必须删除。

最好用 nrow(mat) * 0.5 设置一个阈值，然后删除零计数高于该阈值的列。

Answer 1

这是一种方法:

> mat <- data.frame(A=c(12,10,0,14,0,60),B=c(0,0,0,0,13,65))
> 
> keep <- (colSums(mat > 0) / nrow(mat)) > 0.5
> keep
    A     B 
 TRUE FALSE 
> 
> mat[, keep, drop = FALSE]
   A
1 12
2 10
3  0
4 14
5  0
6 60