按列总和过滤数据框

Question

我的数据框设置如下（绘图与物种出现数据）。

df=data.frame(plot=c(1, 2, 3, 4, 5, 6, 7, 8, 9), speciesA=c(5, 0, 10, 0, 8, 45, 0, 0, 17), speciesB = c(0, 0, 0, 0, 0, 0, 0, 0, 0), speciesC = c(0.7, 0, 17, 0, 0, 8, 0, 9, 0), species D = c(1, 0, 0, 3, 0, 0, 0, 9, 1))

我需要能够创建第二个数据框（或此子集），其中仅包含出现在4个以上图中的物种。我使用colSums来计算出现次数＆gt;每列0，但不能应用于过滤数据框 colSums(df != 0) df2 <- df[,which(apply(df,2,colSums)> 4)]

有什么建议吗？

Answer 1

这个怎么样......

df2 <- df[,colSums(df>0)>4]

df2
  plot speciesA
1    1        5
2    2        0
3    3       10
4    4        0
5    5        8
6    6       45
7    7        0
8    8        0
9    9       17