Tidyr: 개별 목록 열과 데이터 프레임 목록에 중첩하는 방법은 무엇입니까?

지시에 따라(https://github.com/hadley/dplyr/issues/1800) 이 질문을 여기에 게시합니다.

데이터 프레임을 중첩할 때 이 변형을 수행하는 가장 좋은 방법은 무엇입니까? 다른 변수가 데이터 프레임에 묻히는 것을 원하지 않았기 때문에 tidyr::nest() 를 사용하고 싶지 않았습니다. 개별 목록 열로 사용하고 싶었습니다. 이런 식으로:

library(dplyr)
mtcars %>%
  group_by(cyl) %>%
  summarize(gear = split(gear, cyl),
            wt = split(wt, cyl))
#> Source: local data frame [3 x 3]
#> 
#>     cyl       gear         wt
#>   <dbl>     <list>     <list>
#> 1     4 <dbl [11]> <dbl [11]>
#> 2     6  <dbl [7]>  <dbl [7]>
#> 3     8 <dbl [14]> <dbl [14]>

그 이후로 purrr::transpose() 사용하여 다른 방법을 찾았습니다.

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

mtcars %>% 
  group_by(cyl) %>% 
  nest(gear, wt) %>% 
  bind_cols(transpose(.$data)) %>% 
  select(-data)
#> Source: local data frame [3 x 3]
#> 
#>     cyl       gear         wt
#>   <dbl>     <list>     <list>
#> 1     6  <dbl [7]>  <dbl [7]>
#> 2     4 <dbl [11]> <dbl [11]>
#> 3     8 <dbl [14]> <dbl [14]>