如何使用purrr包

Question

有條件子集列表，我有以下列表：

x <- list(1:5, 1:10) 
x 
#> [[1]] 
#> [1] 1 2 3 4 5 

#> [[2]] 
#> [1] 1 2 3 4 5 6 7 8 9 10 

，並希望只選擇含有10

預期結果的元素：

#> [[1]] 
#> [1] 1 2 3 4 5 6 7 8 9 10 

我怎樣才能做到這一點，並在單生產線使用管道運營商和purrr包？

該foll。代碼有效，但感覺有點笨拙。

x %>% map_lgl(~contains(.,10L)) %>% subset(x,.) 

有沒有更好的方法使用x和管道運算符每一次？

Answer 1

您可以使用purrr::keep

library(purrr) 

x <- list(1:5, 1:10) 

x 

#> [[1]] 
#> [1] 1 2 3 4 5 
#> 
#> [[2]] 
#> [1] 1 2 3 4 5 6 7 8 9 10 

x %>% keep(~ 10 %in% .x) 

#> [[1]] 
#> [1] 1 2 3 4 5 6 7 8 9 10 

Answer 2

x[sapply(x, function(x) any(x == 10))] 

Answer 3

我們可以使用Filter

Filter(function(x) 10 %in% x, x) 
#[[1]] 
#[1] 1 2 3 4 5 6 7 8 9 10 

---

或用purrr

x %>% 
    purrr::map_lgl(~10 %in% .) %>% 
    x[.] 

我們可以把這個功能

filterL <- function(lst, val){ 
     lst %>% 
     purrr::map_lgl(~val %in% .) %>% 
     lst[.] 
} 

filterL(x, 10) 
#[[1]] 
# [1] 1 2 3 4 5 6 7 8 9 10