使用purrr的map函数输入在R中创建一个命名列表作为输出

Question

我在R中使用purrr包的map函数,它给出了一个列表作为输出.现在我希望输出是基于输入的命名列表.下面给出一个例子.

input <- c("a", "b", "c")
output <- purrr::map(input, function(x) {paste0("test-", x)})

从这里我想使用以下方法访问列表的元素:

output$a

要么

output$b

Answer 1

我们只需要命名 list

names(output) <- input

然后根据名称提取元素

output$a
#[1] "test-a"

如果这需要使用 tidyverse

library(tidyverse)
output <- map(input, ~paste0('test-', .)) %>% 
                                setNames(input)

Answer 2

推荐的解决方案：

c("a", "b", "c") %>% 
    purrr::set_names() %>% 
    purrr::map(~paste0('test-', .))

Answer 3

可接受的解决方案有效，但存在重复的参数（input）的问题，当使用带有的管道时，该参数可能会导致错误并中断流程%>%。

一种替代解决方案是使用更多的%>%操作员力量

1:5 %>% { set_names(map(., ~ .x + 3), .) } %>% print # ... or something else

这从管道中引出了争议，但仍然缺乏一些美感。替代方法可以是小助手方法，例如

map_named = function(x, ...) map(x, ...) %>% set_names(x)

1:5 %>% map_named(~ .x + 1)

这看起来已经更加漂亮和优雅了。并且将是我的首选解决方案。

最后，purrr::map在自变量是字符或整数向量的情况下，甚至可以覆盖并在这种情况下生成命名列表。

map = function(x, ...){
    if (is.integer(x) | is.character(x)) {
        purrr::map(x, ...) %>% set_names(x)
    }else {
        purrr::map(x, ...) 
    }
}

1 : 5 %>% map(~ .x + 1)

但是，最佳解决方案是purrr开箱即用地实现这种行为。