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]>