从rolling_origin R嵌套列表中提取元素

Question

我想提取，.metrics (RMSE)从滚动起源预测重采样(tibble: 52x5)由"id“列，其中包括切片。

复制代码如下所示。这是我的尝试。

metric <- resamples_fitted$.resample_results
metric

​

​

all <- metric[[1]][[".metrics"]]
res <- unlist(all)
estimate <- res[ grepl(".estimate", names(res))]

我想通过数据帧中的“片”来获取".estimate“。对于每个切片，将有一个RMSE。这些是完整的代码

library(tidymodels)
library(modeltime)
library(modeltime.resample)
library(tidyverse)
library(timetk)
library(resample)

resample_spec <- rolling_origin(
  data        = m750,
  initial    = 200,
  assess     = 3,
  cumulative = TRUE,
  skip       = 1,
  overlap    = 0 )



resamples_fitted <- m750_models %>%
  modeltime_fit_resamples(
    resamples = resample_spec,
    control   = control_resamples(verbose = FALSE)
  )

resamples_fitted

metric <- resamples_fitted$.resample_results
metric
all <- metric[[1]][[".metrics"]]

res <- unlist(all)
estimate <- res[ grepl(".estimate", names(res))]

Answer 1

花了一段时间后，我找到了一个解决方案，虽然可能不是很优雅，但它解决了这个问题。

metric <- resamples_fitted$.resample_results
metric
all <- metric[[1]][[ ".metrics"]]

res <- unlist(all)
estimate <- res[ grepl(".estimate", names(res))]
typeof(estimate)

dat <- as.data.frame(sapply(estimate, as.numeric)) 

data <- dat[complete.cases(dat), ]

all_id <- data.frame(metric[[1]]$id)
al <- cbind(all_id,data)