基於R中條件的子集數據

Question

我有多個輸入，例如：

a <- x  y  z
     1  2  2
     2  3  2
     3  2  4
     4  2  4
     5  2  1

b <- c(1,2)
c <- c(2,3)

我想基於a $ x包含大於等於b [i]且小於等於c [i]的條件對該數據進行子集化

輸出應如下所示：

d <- x  y  z
     1  2  2
     2  3  2
     2  3  2
     3  2  4

我已經試過了：

d = as.data.frame(matrix(ncol=3, nrow=0))
names(d) = names(a)
for (i in 1:length(b){
d <- rbind(d,a[which(a$x>=b[i] &                                        a$x<=c[i]),])
}

Answer 1

使用dplyr::filter函數：

sub_list <- lapply(1:length(b), function(i) a %>% filter(x >= b[i] & x <= c[i]))
do.call(rbind, sub_list)

  x y z
1 1 2 2
2 2 3 2
3 2 3 2
4 3 2 4

輸入數據：

a <- structure(list(x = 1:5, y = c(2L, 3L, 2L, 2L, 2L), z = c(2L, 
2L, 4L, 4L, 1L)), .Names = c("x", "y", "z"), class = "data.frame", row.names = c(NA, 
-5L))

b <- c(1,2)
c <- c(2,3)