R purrr映射在输出中显示列名称

Question

我试图跨向量输入运行purrr map ，在输出中我希望输出列具有有意义的名称。

x <- c("a", "b")
y <- "end."

map_dfc(x, function(x) paste("pre ", x, y))

names(x) <- x
map_dfc(x, function(x) paste(x, y))

这是我期望的输出，它具有列名a和b ：

# A tibble: 1 x 2
# a      b     
# <chr>  <chr> 
# pre  a end. pre  b end.

有没有办法避免运行的需要

names(x) <- x

即

x <- c("a", "b")
y <- "end."

map_dfc(x, function(x) paste("pre ", x, y))
# A tibble: 1 x 2
# a      b     
# <chr>  <chr> 

产生具有已附加列名的data.frame / tibble吗？

我经常使用地图，并且经常忘记输入向量是否具有名称。

Answer 1

一种简单的方法是命名输入元素。 这通常会导致代码更加一致。

library(purrr)
x <- setNames(c("a", "b"), nm = c("a", "b"))
# x <- setNames(nm = c("a", "b")) # this is short cut of above
y <- "end."
map_dfc(x, function(x) paste("pre ", x, y))

Answer 2

除了@RonakShah的建议setNames()的注释之外，您也可以不使用purrr::map()处理此问题：

paste("pre ", x, y) %>% 
  as.list() %>%
  as.data.frame(col.names = x, stringsAsFactors = F)

Answer 3

purrr方式是在注释中使用set_names （尽管正确的setNames似乎被purrr的set_names purrr ）：

map_dfc(set_names(x), function(x) paste("pre ", x, y))

使用set_names ，如果使用默认参数，则无需指定新名称。