如何在 tidyverse 中的列表列上使用 pull 后设置名称

Question

鉴于以下情况：

library(tidyverse)
my_tibble <- tibble(
  var_1 = c("label_a", "label_b", "label_c"),
  var_2 = c("another_x", "another_y", "another_z"),
  result = list(
    data.frame(x = 1, y = 2, z = 3),
    data.frame(x = 4, y = 5, z = 6),
    data.frame(x = 5, y = 10, z = 11)
  )
)

my_tibble
# # A tibble: 3 x 3
#   var_1   var_2     result          
#   <chr>   <chr>     <list>          
# 1 label_a another_x <df[,3] [1 x 3]>
# 2 label_b another_y <df[,3] [1 x 3]>
# 3 label_c another_z <df[,3] [1 x 3]>

如果我们得到pull结果列表列，我们得到：

my_tibble %>% pull(result)

# [[1]]
#   x y z
# 1 1 2 3
# 
# [[2]]
#   x y z
# 1 4 5 6
# 
# [[3]]
#   x  y  z
# 1 5 10 11

如何set_names()通过引用原始标题中的多列来设置此拉取结果的名称（例如）？也就是说，我希望该列表具有引用小标题的名称，例如：

# $`label_a | another_x`
#   x y z
# 1 1 2 3
# 
# $`label_b | another_y`
#   x y z
# 1 4 5 6
# 
# $`label_c | another z`
#   x  y  z
# 1 5 10 11

Answer 1

按其他顺序做吗？

> my_tibble %>%
    mutate(result = set_names(result,paste(var_1,var_2,sep = " | "))) %>%
    pull(result)

$`label_a | another_x`
  x y z
1 1 2 3

$`label_b | another_y`
  x y z
1 4 5 6

$`label_c | another_z`
  x  y  z
1 5 10 11