r - 对嵌套 tibble 进行分组/汇总以附加列列表

Question

我有一个带有列表列表的小标题。在下面的案例中，列表是每个 carb-gear 组合的独特模型。

my_df <- mtcars %>%
  rownames_to_column('model') %>%
  as_tibble() %>%
  select(model, gear, carb) %>%
  group_by(carb, gear) %>%
  summarise(models = list(unique(model)))

# A tibble: 11 × 3
# Groups:   carb [6]
    carb  gear models   
   <dbl> <dbl> <list>   
 1     1     3 <chr [3]>
 2     1     4 <chr [4]>
 3     2     3 <chr [4]>
 4     2     4 <chr [4]>
 5     2     5 <chr [2]>
 6     3     3 <chr [3]>
 7     4     3 <chr [5]>
 8     4     4 <chr [4]>
 9     4     5 <chr [1]>
10     6     5 <chr [1]>
11     8     5 <chr [1]>

现在说我想将独特的模型汇总为每个齿轮的独特模型。我希望做类似下面的事情，但它似乎并没有尊重这些团体。

my_df %>%
  group_by(gear) %>%
  summarise(models = map(models, c))

我希望结果如下所示：

# A tibble: 3 × 2
# Groups:   gear [3]
    gear models    
   <dbl> <list>   
 1     3 <chr [15]>
 2     4 <chr [12]>
 3     5 <chr [5]>

Answer 1

您可以unlist将models它们放入一个向量中并list再次搅拌。

library(dplyr)
my_df %>% group_by(gear) %>% summarise(models = list(unlist(models)))

#   gear models    
#  <dbl> <list>    
#1     3 <chr [15]>
#2     4 <chr [12]>
#3     5 <chr [5]>