如何将tibble中的向量分组到单个向量中？

Question

tibble(x = rep(1:3, 2),
       y = list(1:5, 1:10, 10:20, 20:40, 1:50, 5:10)) -> df

df
#> # A tibble: 6 × 2
#>       x y         
#>   <int> <list>    
#> 1     1 <int [5]> 
#> 2     2 <int [10]>
#> 3     3 <int [11]>
#> 4     1 <int [21]>
#> 5     2 <int [50]>
#> 6     3 <int [6]>

我想分组'x'，然后将每个组的向量总结成一个向量。我尝试使用C（），但没有帮助。

df %>% 
  group_by(x) %>% 
  summarise(z = c(y))
#> `summarise()` has grouped output by 'x'. You can override using the `.groups`
#> argument.
#> # A tibble: 6 × 2
#> # Groups:   x [3]
#>       x z         
#>   <int> <list>    
#> 1     1 <int [5]> 
#> 2     1 <int [21]>
#> 3     2 <int [10]>
#> 4     2 <int [50]>
#> 5     3 <int [11]>
#> 6     3 <int [6]>

我还希望在一个组或任何其他类似功能中应用于这些类型的数据集中的元素结合。

df %>% 
  group_by(x) %>% 
  summarise(z = union(y))
#> Error in `summarise()`:
#> ! Problem while computing `z = union(y)`.
#> ℹ The error occurred in group 1: x = 1.
#> Caused by error in `base::union()`:
#> ! argument "y" is missing, with no default

Answer 1

如果您希望数据保持嵌套，则可以执行

df %>% 
  group_by(x) %>% 
  summarise(z = list(unlist(y)))

c（）函数无法正常工作，因为它不会命名。例如，比较

c(list(1:3, 4:5))
unlist(list(1:3, 4:5))

c函数不会返回一个向量。但是UNLIST确实如此。这很重要，因为当您使用总结时，您的功能将收到匹配行值列表。

另请注意，如果您删除list（），则不再嵌套值

df %>% 
  group_by(x) %>% 
  summarise(z = unlist(y))
#        x     z
#    <int> <int>
#  1     1     1
#  2     1     2
#  3     1     3
#  4     1     4
#  5     1     5
#  6     1    20
#  7     1    21
#  ...