gpt4 book ai didi

r - purrr::pluck - 如何获取列表的最后一个元素

转载 作者:行者123 更新时间:2023-12-05 08:16:50 26 4
gpt4 key购买 nike

我正在尝试提取嵌套列表的最后一个元素。我如何用 purrr 做到这一点?在下面的示例中,结果应该是所有值为“c”的元素。我看过this ,但我对使用 purrr 的解决方案特别感兴趣。

非常感谢

x <- list(list(1,2,"c"), list(3,"c"), list("c"))
x
#> [[1]]
#> [[1]][[1]]
#> [1] 1
#>
#> [[1]][[2]]
#> [1] 2
#>
#> [[1]][[3]]
#> [1] "c"
#>
#>
#> [[2]]
#> [[2]][[1]]
#> [1] 3
#>
#> [[2]][[2]]
#> [1] "c"
#>
#>
#> [[3]]
#> [[3]][[1]]
#> [1] "c"

map(x, purrr::pluck, tail)
#> Error in map(x, purrr::pluck, tail): could not find function "map"
map(x, purrr::pluck, length(x))
#> Error in map(x, purrr::pluck, length(x)): could not find function "map"

reprex package 创建于 2021-05-21 (v2.0.0)

最佳答案

简单地使用purrr::pluck:

library(purrr)

map(x, ~ pluck(.x, length(.x)))

或者更容易使用dplyr::last:

library(purrr)
library(dplyr)

map(x, last)

在基 R 中,反转每个列表元素并取第一项:

lapply(x, function(y) rev(y)[[1]])

lapply(x, \(y) rev(y)[[1]]) # R >= 4.1.0

或者

mapply(`[[`, x, sapply(x, length), SIMPLIFY = F)

如果删除参数 SIMPLIFY = F 将返回单个向量,因为默认值为 TRUE

这是通过并行遍历列表 xsapply(x, length) 的输出并将其应用于函数 `[[` 这是一个提取运算符。

关于r - purrr::pluck - 如何获取列表的最后一个元素,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/67633132/

26 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com