Question

我有一个数据框，我想选择满足特定条件的所有行，例如！= 0。我可以为每一列做到这一点，但它确实很长。

df.Individual  <-  df.category[df.category[,10]!=0 & df.category[,9]!=0 ........ & df.category[,2]!=0, ][,1]

我想选择一组像这样的列，但我无法弄清楚如何！

df.category[df.category[,c(10:5)]!=0 & c(6:2)]>0 ][,1]

谢谢！

structure(list(Individual = structure(1L, .Label = c("aaa"), class = "factor"), `Class1` = 1L, 
`Class2` = 0L, `Class3` = 1L, `Class4 ` = 2L, `Class5` = 3L, `Class6` = 1L, Class7 = 1L, Class8 =    1L, Class9 = 1L), .Names = c("Individual", 
"Class1", "Class2", "Class3", "Class4", "Class5",  "Class6", "Class7", "Class8", "Class9"), row.names = 2L, class = "data.frame")

编辑：

我需要获得所有列组合。类似于周期的东西。我希望有一个为他们的类排序的Individual列表，用作ggplot y轴上的因子级别

作为一个例子。但这里只列出了一些组合，我想要所有可能的列组合。

df.Individual.1  <-  df.category[ df.category[,10]!=0 & 
                                df.category[,9]!=0 & 
                                df.category[,8]!=0 ,] [,1]

df.Individual.2  <-  df.category[ df.category[,10]!=0 & 
                                df.category[,9]!=0 & 
                                df.category[,8]<=0 ,] [,1]

df.Individual.3  <-  df.category[ df.category[,10]!=0 & 
                                df.category[,9]<=0 & 
                                df.category[,8]!=0 ,] [,1]

df.Individual.4  <-  df.category[ df.category[,10]!=0 & 
                                df.category[,9]<=0 & 
                                df.category[,8]<=0 ,] [,1]

unlist(list(df.Individual.1,df.Individual.2,df.Individual.3,df.Individual.4))

最后，我需要一个列表，其中列出了他们的班级状态。 First All Class positiv，比第一类是positiv而另一类是负数。

这里是3列的示例。谢谢！

Answer 1

我会使用rowSums（比apply循环快得多）。以下是行的逻辑向量，其中列5到10仅包含非零：

rowSums(df.category[,c(5:10)] != 0) == (10-5+1)

或更好：

rowSums(df.category[,c(5:10)] == 0) == 0

您可以使用&组合这些逻辑向量，然后使用它从df.category中提取：

logical1 <- rowSums(df.category[,c(5:10)] == 0) == 0
logical2 <- rowSums(df.category[,c( 2:6)] <= 0) == 0
df.category[logical1 & logical2, ]

编辑：您更新的问题更加模糊，可能会尝试这样的事情：

df <- df.category
classes.col <- grep("Class", colnames(df), value = TRUE)
df$Attended <- apply(df[classes.col] > 0, 1, paste, sep = "_")
split(df$Individual, df$Attended)

Answer 2

一种可能性：

df[apply(df[,-1]!=0,1,all),]

选择满足条件的多个列

2 个答案: