如何使用R中的循环构建子集查询？

Question

我正在尝试跨越多个列对一个大表进行子集化，因此State_2009 ， State_2010 ， State_2011等的所有行都不等于“Unknown”。

我的直觉是做这样的事情（来自JS背景），我要么在循环中构建查询，要么在循环中不断地对数据进行子集化，将年份作为变量引用。

mysubset <- data
for(i in 2009:2016){
  mysubset <- subset(mysubset, paste("State_",i," != Unknown",sep=""))
}

但这不起作用，至少因为paste返回一个字符串，给我错误'subset' must be logical 。

有一个更好的方法吗？

Answer 1

使用带有filter_函数的dplyr可以获得正确的输出

library(dplyr)

mysubset <- data

for(i in 2009:2016)
{
  mysubset <- mysubset %>%
              filter_(paste("State_",i," != \"Unknown\"", sep = ""))
}

Answer 2

要添加到Matt的答案，你也可以这样做：

cols     <- paste0( "State_", 2009:2016)
inds     <- which( mysubset[ ,cols] == "Unknown", arr.ind = T)[,1]
mysubset <- mysubset[-(unique(inds), ]