Displaying 1 result from an estimated 1 matches for "weekhourpanel".
2010 Sep 10
1
modifying axis labels in lattice panels
...g <- reshape(Xwide, varying = c(2:3), idvar = "time", direction="long",
timevar = "PC");
#get descriptive shingle labels
Xlong[,"PC"] <- factor(Xlong[,"PC"], labels = paste("PC",1:2));
xyplot(Comp ~ time | PC ,data = Xlong, pane1l = WeekhourPanel, scales =
list(x=list(at = Hours24-4*3600,
labels=as.character(format(Hours24-4*3600,"%H")))));
WeekhourPanel <- function(x,y,...){
r <- range(x);
#print(r)
Hours8 <- seq(r[1], r[2], by=8*3600);
Hours24 <- seq(r[1]+12*3600, r[2], by=24*3600)
#axis.POSIXct(1, at= Hou...