时间序列和拟合值在一个时间序列/数据框/图表中并排答案

【问题标题】：Time series and fitted values side by side in one time series / data frame / graph时间序列和拟合值在一个时间序列/数据框/图表中并排
【发布时间】：2016-03-09 14:41:16
【问题描述】：

我正在使用dlnm 和lm 来拟合多个时间序列的线性模型。我想直观地将拟合值与实际值进行比较，因此我想将两者都导出到一个 csv 文件中。但是，我似乎无法使用ts.intersect 绑定它们，因为模型的$fitted.values 不是时间序列。如果na.action = NULL 传递给lm，lmsuggests 的文档$fitted.values 将是一个时间序列。但是，这只有在用作输入的值在任何地方都定义时才有可能，如果crossbasis 应用了非平凡的延迟，则情况并非如此。

有没有一种方便的方法可以并排获取实际和拟合的时间序列？

【问题讨论】：

有什么理由不直接在 R 中绘制值，因为您在那里进行了估计？
我发现电子表格图表更容易使用，但我很乐意相信，否则，特别是如果在一个图表中直接在 R 中绘制值更容易实现。
R 中有很多绘图方法。我想说这是几乎每个月都在不断发展的主要领域之一。 ggplot2 是在基础之外绘制的主要包 - ggplot2.org

标签： r time-series zoo lm

【解决方案1】：

我找到了一个合理的解决方法，将fitted.values 重构为时间序列。 ts.intersect 不适用于zoo 系列，merge 是合适的函数：

actual <- actual.values
fit <- read.zoo(data.frame(names(model$fitted.values),model$fitted.values))
result <- merge(actual,fit,all=FALSE) #default all=TRUE gives union

【讨论】：