Skip to content
Prev 106609 / 398525 Next

plotting time series with zoo pckg

Try this:


# test data
library(zoo)
z <- structure(c(21, 34, 33, 41, 39, 38, 37, 28, 33, 40),
     index = structure(c(8044, 8051, 8058, 8065, 8072, 8079, 8086,
     8093, 8100, 8107), class = "Date"), class = "zoo")
z

# plot without X axis
plot(z, xaxt = "n")

# unlabelled tick at each point
axis(1, time(z), lab = FALSE)

# labelled tick every third point
dd <- time(z)[seq(1, length(z), 3)]
axis(1, dd, as.character(dd), cex.axis = 0.7, tcl = -0.7)
On 12/26/06, ahmad ajakh <aajakh at yahoo.com> wrote: