在 purrr::map 中重新创建小标题

Question

我想使用 map 将函数应用于 tibble 的每一列。 但是，我不希望简化 tibble 列。 我可以通过使用imap 用一列重新创建小标题来解决这个问题。 但是，我该怎么做呢？

让我们使用一个名为test 的超简单函数来看看它是否有效。

默认行为：列简化为向量：

test<-function(data){
  data
}

tibble(v1=1:20,v2=100:119) %>% map(test)
$v1
 [1]  1  2  3  4  5  6  7  8  9 10 11 12 13 14 15 16 17 18 19 20

$v2
 [1] 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119

这行不通，因为需要引用名称：

tibble(v1=1:20,v2=100:119) %>% imap(~test(tibble(.y=.x))) %>% str
List of 2
 $ v1: tibble [20 x 1] (S3: tbl_df/tbl/data.frame)
  ..$ .y: int [1:20] 1 2 3 4 5 6 7 8 9 10 ...
 $ v2: tibble [20 x 1] (S3: tbl_df/tbl/data.frame)
  ..$ .y: int [1:20] 100 101 102 103 104 105 106 107 108 109 ...

那么为什么这不起作用呢？

tibble(v1=1:20,v2=100:119) %>% imap(~test(tibble(!!!(.y)=.x)))
Error: unexpected '=' in "tibble(v1=1:20,v2=100:119) %>% imap(~test(tibble(!!!(.y)="

Answer 1

我们可以将 = 更改为赋值运算符 (:=) 并在 := 的 lhs 上评估 (!!) .y

library(tibble)
library(purrr)
out <- tibble(v1=1:20,v2=100:119) %>% 
        imap( ~ test(tibble(!!.y := .x)))

-输出

str(out)
#List of 2
# $ v1: tibble [20 × 1] (S3: tbl_df/tbl/data.frame)
#  ..$ v1: int [1:20] 1 2 3 4 5 6 7 8 9 10 ...
# $ v2: tibble [20 × 1] (S3: tbl_df/tbl/data.frame)
#  ..$ v2: int [1:20] 100 101 102 103 104 105 106 107 108 109 ...

Answer 2

你可以使用setNames：

tibble::tibble(v1=1:20,v2=100:119) %>% purrr::imap(~test(.x) %>% setNames(.y))

#$v1
# A tibble: 20 x 1
#      v1
#   <int>
# 1     1
# 2     2
# 3     3
# 4     4
# 5     5
#...
#...

#$v2
# A tibble: 20 x 1
#      v2
#   <int>
# 1   100
# 2   101
# 3   102
# 4   103
# 5   104
# 6   105
#...
#...