Дата на оси X в графе Холт-Зима R

Question

Я пытаюсь построить дату в виде оси X в графе Холт-Зитерс в R. Я искал эту тему на этом сайте и многие другие без удачи. Мне известно использование xaxt="n", а затем axis() для большинства участков. Следующий код работает для нормального графика:

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

поэтому я знаю, что функция оси работает правильно. Однако этот подход не работает с сюжетом Холт-Зитерс. Это код, у меня сейчас:

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 с помощью этого кода, и результаты показывают только фильтрующую участок 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)])