取消嵌套时，将元素名称添加到单独的列中

Question

取消嵌套一列列表时，我要使元素类别或元素名称（在下面的示例中为category1，category2）出现在单独的列中，如下所示。我尝试使用.sep和.names_sep，但似乎不起作用。

df <- tibble(x = 1:2,  apples = list(category1 = 1, category2 = 3:4))

df_un.a<-unnest(df, apples)

我想要什么：

Answer 1

这项工作：

df %>% unnest(apples) %>% mutate(`Whatever name d.n matter` = paste0('category',x))
# A tibble: 3 x 3
      x apples `Whatever name d.n matter`
  <int>  <dbl> <chr>                     
1     1      1 category1                 
2     2      3 category2                 
3     2      4 category2