根据未知名称的列的值和列数对行进行子集

Question

我确定我有一个非常基本的问题，但是在寻找关于如何完成某些数据帧/矩阵的子集（获取行号）的想法之后，我感到沮丧，该数据帧/矩阵可以具有任意数量的列，并且列名一直在变化。 我只想查找数据框的任何列大于0的行（索引）。由于未知的列名和列数，我不知道该怎么做...

一个例子：

# these are the terms I am looking in
terms <- c("beats", "revs", "revenue", "earnings")
# dict <- Dictionary(terms)
# dictStudy <- inspect(DocumentTermMatrix(mydata.corpus.tmp, list(dictionary = dict)))

dictStudy <- data.frame(beats=c(0, 0, 0, 1, 0, 2), revs=c(0, 0, 0, 1, 0, 1), revenue=c(0, 0, 0, 0, 0, 0), earnings=c(1, 0, 0, 1, 0, 1)) 
ss <- expression(terms > 0)
dictStudy.matching <- subset(dictStudy, eval(ss))

我希望这种表达和评估可以挽救我，但我无法弄清楚。

如何仅在数据框中查找任何列> 0的行？

Answer 1

我假设您的意思是您想要该行中至少一个元素大于零（即，任何列均大于零）的行。

> which(apply(dictStudy,1,function(x) any(x > 0)))
[1] 1 4 6

正如Tommy在下面指出的那样，这假定您的所有列实际上都是数字。 您可以通过对数据框架进行子集化以仅拉出那些数字列来回避此问题：

> which(apply(dictStudy[,sapply(dictStudy,is.numeric)],1,function(x) any(x > 0)))
[1] 1 4 6