如何在X轴上显示R中预测值的日期标签？

我们使用

forecast

功能预测未来值，如下所示：

library("zoo")
library("forecast")
Lines = "20/03/2014,9996792524
21/04/2014,8479115468
21/09/2014,11394750532
16/10/2014,9594869828
18/11/2014,10850291677
08/12/2014,10475635302
22/01/2015,10116010939
26/02/2015,11206949341
20/03/2015,11975140317
09/04/2015,11526960332
29/04/2015,9986194500
16/09/2015,11501088256
13/10/2015,11833183163
10/11/2015,13246940910
16/12/2015,13255698568
27/01/2016,13775653990
23/02/2016,13567323648
22/03/2016,14607415705
11/04/2016,13835444224
04/04/2016,14118970743"
z <- read.zoo(text = Lines, sep = ",", header = TRUE, index = 1:1, tz = "", format = "%d/%m/%Y")
x <- ts(z,f=4)
fit <- ts(rowSums(tsSmooth(StructTS(x))[,-2]))
tsp(fit) <- tsp(x)
plot(x)
lines(fit,col=2)
fit
fcst <- forecast(fit)
plot(fcst)

library（“zoo”）
图书馆（“预测”）
Lines=“20/03/20149996792524
21/04/2014,8479115468
21/09/2014,11394750532
16/10/2014,9594869828
18/11/2014,10850291677
08/12/2014,10475635302
22/01/2015,10116010939
26/02/2015,11206949341
20/03/2015,11975140317
09/04/2015,11526960332
29/04/2015,9986194500
16/09/2015,11501088256
13/10/2015,11833183163
10/11/2015,13246940910
16/12/2015,13255698568
27/01/2016,13775653990
23/02/2016,13567323648
22/03/2016,14607415705
11/04/2016,13835444224
04/04/2016,14118970743"
z这不是轴上通用日期问题的重复。
read.zoo
将值正确导入为
POSIXct
值。大多数时间序列函数保留正确的日期值。或者至少找到一个
ts（）
特定的副本。@MrFlick谢谢。我发现这里的一些人很快就把一些东西标记为“复制品”，而不花时间去理解这个问题。我的数据中有不规则间隔的日期戳，我需要根据未来日期标记预测值。如果您的数据不规则，为什么要执行
ts（z，f=4）
？你想转换成季度？如果是这样的话，最好看看
xts:：to.period
@Robert我考虑过这一点，最近我只是在原始数据上进行了拟合：
>fit-tsp（fit）plot（z）>line（fit，col=2）>fit
，但是x轴上的时间标签仍然是一个问题，当你有了正确的时间序列时就不那么困难了。看这里。但在您的情况下，您不能应用为常规数据设计的函数，如
structs
。