取消嵌套数据框中的几个列表列之一答案

【问题标题】：Unnest one of several list columns in dataframe取消嵌套数据框中的几个列表列之一
【发布时间】：2018-07-10 08:17:15
【问题描述】：

我有一个包含几个列表列的小标题，我只想取消其中一个。

示例

library(dplyr)
library(purrr)
library(tidyr)
library(stringr)

iris %>% 
  group_by(Species) %>% 
  nest() %>% 
  mutate(sum_data = map(data,
                        ~.x %>% 
                          summarize_all(mean) %>% 
                          rename_all(funs(str_c("Mean.", .))))) 

# A tibble: 3 x 3
#      Species              data         sum_data
#       <fctr>            <list>           <list>
# 1     setosa <tibble [50 x 4]> <tibble [1 x 4]>
# 2 versicolor <tibble [50 x 4]> <tibble [1 x 4]>
# 3  virginica <tibble [50 x 4]> <tibble [1 x 4]>

现在我想保留嵌套的 data 列，但取消嵌套 sum_data 列，而不具体指定 sum_data 中的每个列名，也不需要取消嵌套整个数据集，然后重新嵌套数据列。

期望的结果

# A tibble: 3 x 6
#      Species              data Mean.Sepal.Length Mean.Sepal.Width Mean.Petal.Length Mean.Petal.Width
#       <fctr>            <list>             <dbl>            <dbl>             <dbl>            <dbl>
# 1     setosa <tibble [50 x 4]>             5.006            3.428             1.462            0.246
# 2 versicolor <tibble [50 x 4]>             5.936            2.770             4.260            1.326
# 3  virginica <tibble [50 x 4]>             6.588            2.974             5.552            2.026

【问题讨论】：

你试过%>% unnest(sum_data)
...就这么简单....我总是尝试unnest(-data)，它会抛出错误...谢谢！！

标签： r tidyr

【解决方案1】：

根据unnest，参数...

要嵌套的列的规范。使用裸变量名或变量的函数。如果省略，则默认为所有列表列。

因此，我们可以将列名指定为unnested 在rename_all 之后

iris %>
  ... #op's code
  ...

  rename_all(funs(str_c("Mean.", .))))) %>%
  unnest(sum_data)
# A tibble: 3 x 6
#  Species    data              Mean.Sepal.Length Mean.Sepal.Width Mean.Petal.Length Mean.Petal.Width
#  <fctr>     <list>                        <dbl>            <dbl>             <dbl>            <dbl>
#1 setosa     <tibble [50 x 4]>              5.01             3.43              1.46            0.246
#2 versicolor <tibble [50 x 4]>              5.94             2.77              4.26            1.33 
#3 virginica  <tibble [50 x 4]>              6.59             2.97              5.55            2.03

【讨论】：