Holt-Winters 图 R 中 x 轴上的日期

Question

我正在尝试在 R 的 Holt-Winters 图中将日期绘制为 x 轴。我已经在此站点和许多其他站点上搜索过此主题，但没有成功。我知道对大多数地块使用 xaxt="n" 然后 axis() 。以下代码适用于普通图：

plot(date,sold, xaxt="n", main="Quantity Widgets Sold")
axis(1,date,format(date,"%d %b", cex.axis=0.7))

所以我知道轴功能正常工作。但是，此方法不适用于 Holt-Winters 图。这是我现在的代码：

date<-df$Date
date<-as.Date(date, "%m/%d/%Y")
sold<-df$Quantity.Sold
sold<-ts(sold)

hwsold<-HoltWinters(sold,beta=FALSE,gamma=FALSE)
plot(hwsold, xaxt="n", xlab=NULL)
axis(1,date,format(date,"%d %b", cex.axis=0.7))

使用此代码未将轴添加到 Holt-Winters 图中，结果仅显示没有 x 轴的 Holt-Winters 过滤图。

如何设置 Holt-Winters 图的格式以便 x 轴显示日期？

这是示例数据：

Date    Quantity.Sold
10/1/2014   14
10/2/2014   44
10/3/2014   23
10/4/2014   12
10/5/2014   9
10/6/2014   17
10/7/2014   18
10/8/2014   24
10/9/2014   35
10/10/2014  13
10/11/2014  23
10/12/2014  17
10/13/2014  19
10/14/2014  25
10/15/2014  29
10/16/2014  41
10/17/2014  37
10/18/2014  13
10/19/2014  16
10/20/2014  12

Answer 1

我们可以指定刻度线位置：

plot(hwsold, xaxt="n", xlab=NULL)
axis(1,c(5,10,15,20),format(date,"%d %b", cex.axis=0.7)[c(5,10,15,20)])

Holt-Winters 图 R 中 x 轴上的日期

Date on the x-axis in Holt-Winters graph R

r

plot

holtwinters