来自 http://cos.name/cn/topic/110644/

目前手上有一个4W行，30列的数据
希望可以像EXCEL一样，每列设一个值，然后筛选出符合条件的行
但是如果用EXCEL的话，没筛选一次需要操作30列，在前期探索条件的时候是在是很大的工作量。
有看到一个R的下标写法 y[y$1 >5 & y $2 <5…,] 这样的。
还有朋友提到使用SUBSET函数，但是这个似乎也不好用。

看到一个有点变态的r语言代码,关键是>和<的使用

system.time({
    d_col <- 30
    d_row <- 40000
    df <- matrix(rep(1:d_row, times = d_col), ncol = d_col)
    mm=sample(2,d_col,T)
    ind1=c(5,10)[mm]
    ind2=c( `>`,`<`)[mm]
    y=sapply(1:d_col,function(n){ind2[[n]](df[,n],ind1[n])})
    z=y[rowSums(y)==30,]
})