從 mable 中提取模型描述

Question

我有一個像這樣的 mable 對象：

models
# A mable: 1 x 3
  ets           arima                     nnetar             
  <model>       <model>                   <model>            
1 <ETS(M,Ad,M)> <ARIMA(2,1,2)(0,0,2)[12]> <NNAR(14,1,10)[12]>

我只想要模型描述，以便我可以將它們放在圖中。 所以我運行了以下代碼：

model_desc <- models %>% 
  gather() %>% 
  select(key, value) %>% 
  set_names("model","model_desc") %>%
  mutate(model_desc_char = model_desc %>% as.character())
  as_tibble() %>%
  select(model, model_desc)

這仍然給了我一個小標題，其中 model_desc 仍然是一個列表對象。 我認為這是因為 mable 的構造方式以及它的結構應該如何。

** 更新 ** 我通過執行以下操作解決了這個問題：

model_desc <- models %>% 
  as_tibble() %>%
  gather() %>%
  mutate(model_desc = print(value)) %>%
  select(key, model_desc) %>%
  set_names("model", "model_desc")

Answer 1

對於將來會遇到這種情況的任何其他人，我已經粘貼了一個適用於我最新版本的寓言/寓言工具的解決方案。

library(fable)
#> Loading required package: fabletools
library(tsibble)
library(tsibbledata)
library(lubridate)
#> 
#> Attaching package: 'lubridate'
#> The following object is masked from 'package:tsibble':
#> 
#>     interval
#> The following objects are masked from 'package:base':
#> 
#>     date, intersect, setdiff, union
library(dplyr)
#> 
#> Attaching package: 'dplyr'
#> The following objects are masked from 'package:stats':
#> 
#>     filter, lag
#> The following objects are masked from 'package:base':
#> 
#>     intersect, setdiff, setequal, union
library(tidyr)

aus_retail %>%
  filter(
    State %in% c("New South Wales", "Victoria"),
    Industry == "Department stores"
  ) %>% 
  model(
    ets = ETS(box_cox(Turnover, 0.3)),
    arima = ARIMA(log(Turnover)),
    snaive = SNAIVE(Turnover)
  ) %>%
  pivot_longer(cols = -c(State, Industry),
               names_to = "model_type",
               values_to = "model_specifics_mdl") %>%
  mutate(model_specifics = format(model_specifics_mdl)) %>%
  select(-model_specifics_mdl)
#> # A tibble: 6 x 4
#>   State           Industry          model_type model_specifics          
#>   <chr>           <chr>             <chr>      <chr>                    
#> 1 New South Wales Department stores ets        <ETS(A,Ad,A)>            
#> 2 New South Wales Department stores arima      <ARIMA(2,1,1)(2,1,1)[12]>
#> 3 New South Wales Department stores snaive     <SNAIVE>                 
#> 4 Victoria        Department stores ets        <ETS(A,A,A)>             
#> 5 Victoria        Department stores arima      <ARIMA(2,1,1)(1,1,2)[12]>
#> 6 Victoria        Department stores snaive     <SNAIVE>

^{由reprex 包(v0.3.0) 於 2020 年 9 月 7 日創建}

Answer 2

這最終解決了我的問題：

model_desc <- models %>% 
  as_tibble() %>%
  gather() %>%
  mutate(model_desc = print(value)) %>%
  select(key, model_desc) %>%
  set_names("model", "model_desc")