如何使用r purrr：map创建多个相同的对象（如数据框）

Question

我想知道在多大程度上可以使用purrr的映射函数来创建一般的对象，尽管目前我正在查看数据框。

A<-seq(1:5)
B<-seq(6:10)
C<-c("x","y","x","y","x")
dat<data.frame(A,B,C)
cols<-names(dat)

create_df<-function(x) {
    x<- dat[x]
    return(x)
}
A<-create_df("A")

这将创建一个名为A的数据框，其中包含来自dat的列A. 我想创建数据框A / B / C，每个都有一列。 我尝试了不同的方法来指定.f参数以及不同的map函数（map，map2，map_dfc等）。 我最初的猜测是：

map(.x=cols,~create_df(.x))    

澄清：我正在寻求帮助，因为我尝试过的所有地图规格都给出了错误。

有效的代码：

map(names(dat), ~assign(.x, dat[.x], envir = .GlobalEnv))

这会创建A / B / C作为数据框并打印到控制台（我不需要但现在不打扰我）。

Answer 1

我们可以使用从base R split来获得一列data.frame s的list

lst <- split.default(dat, names(dat))

最好将它保存在list ，但是如果打算在全局环境中拥有多个对象

list2env(lst, envir = .GlobalEnv)

Answer 2

使用purrr包，我认为您的自定义功能不是必需的。 该函数包括对数据的引用，这不是最佳的（特别是如果它在环境中不存在）。

作为单列数据帧列表返回：

cols<-names(dat)
map(cols, ~dat[.x])

或者： map(names(dat), ~dat[.x])

收益：

[[1]]
# A tibble: 5 x 1
      A
  <int>
1     1
2     2
3     3
4     4
5     5

[[2]]
# A tibble: 5 x 1
      B
  <int>
1     1
2     2
3     3
4     4
5     5

[[3]]
# A tibble: 5 x 1
  C    
  <chr>
1 x    
2 y    
3 x    
4 y    
5 x    

如果您想坚持使用tidyverse原则，可以将它们作为列表列存储在数据框中。

dfs <-
  data_frame(column = cols) %>% 
    mutate(data = map(cols, ~dat[.x]))

# A tibble: 3 x 2
  column data            
  <chr>  <list>          
1 A      <tibble [5 x 1]>
2 B      <tibble [5 x 1]>
3 C      <tibble [5 x 1]>

您可以根据需要提取单个数据：

B <- dfs$data[[2]]  

# A tibble: 5 x 1
      B
  <int>
1     1
2     2
3     3
4     4
5     5

根据您的原始建议，这里是一个使用purrr:map的替代函数。 我不确定这是一个多么好的想法，但它可能有用：

create_objects_from_df <- function(dat) {
  map(names(dat), ~assign(.x, dat[.x], envir = .GlobalEnv))
  }
create_objects_from_df(dat)

这将在全局环境中创建对象，作为具有列名称的单个对象。