R:如何根据应用于 k 列的条件创建 k 个子集？

Question

例子:

fdistr[ which(fdistm[,4]<=5),]
        zip      long      lat 1   2     3  4   5
32403 72756 -94.07141 36.34224 3 122 19401 51 704
32404 72757 -94.11565 36.37198 2 141 19546 45 740
32405 72758 -94.14622 36.30662 1 149 19578 30 724

fdistr[ which(fdistm[,5]<=5),]
        zip      long      lat   1 2     3   4   5
32312 72601 -93.09345 36.23698 181 1 16548 328 354


fdistr[ which(fdistm[,6]<=5),]
        zip      long      lat     1     2 3     4     5
13271 30529 -83.46842 34.21042 16867 15514 1 17241 12593

如何遍历 k 列以创建 k 个子集？

谢谢!

Answer 1

使用lapply如下:

k <- 5
subsets <- lapply(3 + 1:k, function(x, i, m) x[x[, i] <= m, ], x = fdistm, m = 5)

它将返回 k 子集的列表。