Displaying 1 result from an estimated 1 matches for "formatlabel".
Did you mean:
formatlabels
2003 Jun 04
4
Strip location and grid colour in Lattice
...127 127 127 127 127 127 127 127 127 128 ...
Thinking that I needed a date I promptly put
rbd$Year <- as.POSIXct(ISOdate(rbd$Year,6,30))
then onwards and forwards
for (h in levels(rbd$HR)){
HRData <- subset(rbd,HR==h)
HRData$CommnDesc <- HRData$CommnDesc[,drop=T]
temp <-c((FormatLabels(levels(HRData$CommnDesc)[1],20)))
for (j in 2:length(levels(HRData$CommnDesc))){
temp <- c(temp,FormatLabels(levels(HRData$CommnDesc)[j],20))
}
levels(HRData$CommnDesc) <- temp
p1 <- bwplot(Beddays~Year |CommnDesc,HRData,
panel = "panel.linejoin",
horizon...