r - 将 tibbles 存储在 tibbles 中

Question

我想创建一个存储其他任意小标题的小标题列。

我通过以下代码设法做到了这一点，首先使用 nest()在每个内部 tibble 上然后使用 unnest()在外层

library(tibble)
library(tidyr)

df_outer <- tribble(
  ~x, ~y,
  1,  2,
  4,  6,
  5,  7
)

df_nested <- tribble(
  ~a, ~b,
  1,  2,
  4,  6
)

df_outer[["data"]][1] <- nest(df_nested)               # Insert first tibble
df_outer[["data"]][2] <- nest(as_tibble(2*df_nested))  # Insert arbitrary other tibbles
df_outer[["data"]][3] <- nest(as_tibble(3*df_nested))

df_outer <- df_outer %>% unnest()

虽然这种方法有效，但我觉得这是错误的方法，因为我需要调用 unnest()结果上。有没有更清洁的方法来实现这一目标？请注意，我想一次插入一个内部小标题。

Answer 1

我们可以使用 map创建一个新列

library(dplyr)
library(purrr)
df_outer %>%
      mutate(data =  map(row_number(), ~ .x * df_nested))