打印x行数大于零的行

时间:2015-07-01 05:32:37

标签: r

我有一个非常大的data.frame,我想修剪。我想只打印超过50%的列的值大于0的行。我有这个函数可以过滤所有有0的行:

data <- data[!(apply(data, 1, function(y) any(y == 0))),]

我的数据框是

dim(df.iso)
#1] 30309852       97

其中row1 = rownames。

1 个答案:

答案 0 :(得分:3)

data[rowMeans(data > 0) > 0.5, ]