## Loading the SanMartino precipitation data
data(SanMartinoPPts)
x <- window(SanMartinoPPts, end=as.Date("1935-12-31"))
## Plotting the daily ts without an 'x' axis
plot(x, xaxt = "n", col="blue" )
## Draws monthly ticks in the 'x' axis, but labels only in years
drawxaxis(x, tick.tstep="months", lab.tstep="years", xlab="Time")
Run the code above in your browser using DataLab