计数行＆gt; x对于许多x和许多列？

Question

G'day All，

我有一个包含多个列的data.frame，其计数对应于每个列和行。数据如下所示：

  d <- data.frame(replicate(10,sample(0:15,10,rep=TRUE)))

我想要计算值大于1的行数，然后我想重复一遍到15.然后我想对data.frame中的每一列做同样的事情。所以我最终得到的数据告诉我，每列数据的行数大于0:14（迭代）。

我可以使用以下代码一次执行此操作：

  length(which(d[,1]>0))
  length(which(d[,1]>1))
  length(which(d[,1]>2))
  .
  .
  .
  length(which(d[,10]>14))

这真的很慢，而且我的真实数据集比这要大得多，所以我不想这样做。我想我可以做到如下：

  lrows <- data.frame('cnt' = rep(0:14, 10), 'column' = rep(1:10, each = 15),
               't' = 0)
  lrows$t <- length(which(d[,lrows[,2]]>lrows[,1]))

但它没有迭代地做到这一点。我尝试了其他一些不成功的事情，希望有人能指出我正确的方向。

我知道一旦被指出这将是显而易见的但是我无法弄清楚，抱歉。感谢您的时间和帮助！

一切顺利