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

次のように使用lapplyします。

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

kサブセットのリストを返します。