r - 如何使用 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 包在单行中简洁地完成此操作？

下面。代码可以工作，但感觉有点笨拙。

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