Hi all:

 

I'm trying to plot two time series created in Rmetrics and label the
x-axis with dates.  I tried the following:

 

dates <- as.Date(seriesPositions(x.agg))

 

r <- as.Date(range(dates))

 

ts.plot(x.agg@Data[,c(1,5)],gpars=list(ylab="Volume",
lty=c(1:2),xaxt="n",main="Plot of Volume"))

 

axis.Date(1, at=seq(r[1], r[2], length.out=10),
format="%Y-%m-%d",cex.axis=.75)

 

legend("bottomleft",legend=c("Base Volume","Model Base
Volume"),lty=c(1,2),inset=.01,cex=.5,adj=0)

 

All this works fine, except I don't get the dates on the x-axis like I
want.  When I try to plot a single series using "plot" it works as
expected.  

 

Any advice?

 

John


	[[alternative HTML version deleted]]

