tsfknn:: 将自动绘图预测提取到表格中答案

【问题标题】：tsfknn:: extracting autoplot predictions into a tabletsfknn:: 将自动绘图预测提取到表格中
【发布时间】：2020-01-24 22:06:51
【问题描述】：

tsfknn 包中，有自动绘图功能。它绘制预测和预测中使用的最近邻居。预测值是红色的，来自数据的值是黑色的。有没有办法将红点提取到数据框中？

例子：

# prepping data
data <- as.data.frame(seq(as.Date('2017/04/01'), as.Date('2019/11/01'), by="day"))
data <- rlang::set_names(data, "Date")
data[, "Year"] <- format(data[,"Date"], "%Y")
data[, "Month"] <- format(data[,"Date"], "%m")
data[, "Quantity"] <- sample(100, size = nrow(data), replace = TRUE)
monthly <- dplyr::group_by(data, Year, Month)
monthly <- summarise(monthly, sum(Quantity))
monthly <- set_names(monthly, c("Year", "Month", "Quantity"))

# ts the data
ts.example <- ts(data = monthly$Quantity, start = c(2017,4), frequency = 12)
# quarterly ts 
quarterly <- aggregate(ts.example, nfrequency = 4)/3

# knn part
quarterly.knn <- knn_forecasting(quarterly, h = 4, lags = 1:4, k = 3, msas = "MIMO")

# plotting the predictions
autoplot(quarterly.knn, highlight = "none", faceting = TRUE)

我想知道这些预测值到底是什么。

感谢您的宝贵时间！

【问题讨论】：

标签： r plot rstudio

【解决方案1】：

library(tsfknn)
f <- knn_forecasting(AirPassengers, h = 10) # the function returns a list
print(f$prediction) # the prediction component contains the prediction

【讨论】：

请在答案中添加此内容，而不是作为评论。
虽然此代码可以解决 OP 的问题，但最好包含关于您的代码如何解决 OP 问题的说明。通过这种方式，未来的访问者可以从您的帖子中学习，并将其应用到他们自己的代码中。 SO 不是编码服务，而是知识资源。此外，高质量、完整的答案更有可能得到支持。这些功能，以及所有帖子都是独立的要求，是 SO 作为一个平台的一些优势，使其与论坛区分开来。您可以编辑以添加其他信息和/或使用源文档补充您的解释。