将tibble中的复杂列表对象扩展到更大的tibble

Question

library(dplyr)
library(fpp2) # for prison dataset
library(hts) # forecasting function

# prepare group time series
prison.gts <- gts(prison/1e3, characters = c(3,1,9),
                  gnames = c("State", "Gender", "Legal",
                             "State*Gender", "State*Legal",
                             "Gender*Legal"))

result_prison <- tidyr::crossing(methods = c('bu', 'comb'), 
                              fmethod = c('arima')) %>%
  mutate(forecast_result = purrr::map2(methods, fmethod, 
                                       ~forecast.gts(prison.gts,method = .x, fmethod = .y)))


result_prison
# A tibble: 2 x 3
  methods fmethod forecast_result
  <chr>   <chr>   <list>         
1 bu      arima   <gts>          
2 comb    arima   <gts> 

result_prison包含一个名为forecast_result的列，该列被定义为列表。

特别是，我感兴趣的是将以下数据从forecast_result列表中提取到一个没有任何“list”对象的大tibble中。

result_prison$forecast_result[[1]]$bts
result_prison$forecast_result[[1]]$histy
result_prison$forecast_result[[1]]$method # this is actually the same value from column methods
result_prison$forecast_result[[1]]$fmethod # this is actually the same value from column fmethods

理想情况下，我认为更好的tibble版本是当list对象扩展的时候，这样我就有了一个大的tibble，有像char，double等常见的类型，没有list对象。

我试过了

result_prison %>%
  hoist(forecast_result, 
        hoisted_method = "method",
        hoisted_fmethod = "fmethod",
        bts = "bts",
        histy = 'histy'
  )

尽管我最终还是得到了tibble中的时间序列对象的列表。

Answer 1

如果最后一篇专栏是dataframes，那么这些想法将会起作用。由于不是，我怀疑您需要一次提取一个条目：

result_prison %>% pluck("forecast_result", 1)
result_prison %>% pluck("forecast_result", 2)