r - 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

Use lapply as follows:

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

It will return a list of k subsets.

Answer 2

使用apply并假设您的数据框是 fdistm（未测试）

fdistm[apply(fdistm[, -1], MARGIN = 1, function(x) all(x <=5)), ]

注：适用于除第一个以外的所有