zbiór X-oś terminach podczas drukowania szeregów czasowych

Question

x=read.table(text=" Qtr1 Qtr2 Qtr3 Qtr4 
2010 1.8 8.0 6.0 3.0 
2011 2.0 11.0 7.0 3.5 
2012 2.5 14.0 8.0 4.2 
2013 3.0 15.2 9.5 5.0", 
    sep="",header=TRUE) 
y<-ts(as.vector(as.matrix(x)),frequency=4,start=c(2010,1)) 
plot.ts(y) 
time<-seq(as.Date("2010/1/1"),length.out=20,by="3 months") 
axis(1, at = time) 

kiedy narysować wykres, chcę dodać datę w osi x, dlaczego mój axis(1, at = time) nie może dodać dane date w osi x?

Answer 1

Po wywołaniu axis(1, at=time) mówisz R, aby narysować oś X z etykietami w punktach podanych przez time. Jednak time to wektor znaków, a nie liczb.

Generalnie wywołuje się axis(1, at=..., labels=...) wskazując rzeczywiste etykiety i miejsce ich umieszczenia wzdłuż osi. W twoim przypadku twoje połączenie z plot.ts niejawnie ustawia ograniczenia osi X na 2010 i 2013.75, więc twój parametr at powinien odzwierciedlać te ograniczenia.

Więc chcesz zadzwonić pod numer axis, informując, że etykiety to time, a pozycje to 2010, 2010.25, 2010.50 ..., czyli seq(from=2010, to=2013.25, by=0.25). Ogólnym rozwiązaniem jest to:

plot.ts(y,axes=F) # don't plot the axes yet 
axis(2) # plot the y axis 
axis(1, labels=time, at=seq(from=2010, by=0.25, length.out=length(time))) 
box() # and the box around the plot