Revision 198ccf57161e022190640581a9a9fb09b78874ae authored by Deepayan Sarkar on 04 November 2018, 11:50:03 UTC, committed by cran-robot on 04 November 2018, 11:50:03 UTC
1 parent 8786f33
Raw File
dates.R

postscript("date.ps")
library(lattice)

## POSIXt handling

y <- Sys.time() + 10000 * 1:100
x <- rnorm(100)
b <- gl(3,1,100)

xyplot(y ~ x | b)
xyplot(y ~ x | b, scales = list(relation = "free", rot = 0))
xyplot(y ~ x | b, scales = "sliced")

## Date handling

dat <-
    data.frame(a = 1:10,
               b = seq(as.Date("2003/1/1"), as.Date("2003/1/10"), by="day"))
xyplot(a~b, dat)
xyplot(a~b, dat, scales=list(x=list(at=dat$b)))


dev.off()

back to top