Displaying 1 result from an estimated 1 matches for "keyf".
Did you mean:
key
2013 Jan 26
2
different legends in lattice panels
...ataf <- data.frame(lbt,de,type,sta) # the dataframe
# key creation
keyA <- list(border = FALSE, text =
list(levels(dataf$sta)[1:2]),lines=TRUE,points=TRUE,lty=c(1:2),pch=c(1:2))
keyC <- list(border = FALSE, text =
list(levels(dataf$sta)[3:5]),lines=TRUE,points=TRUE,lty=c(3:5),pch=c(3:5))
keyF <- list(border = FALSE, text =
list(levels(dataf$sta)[6:9]),lines=TRUE,points=TRUE,lty=c(6:9),pch=c(6:9))
keyS <- list(border = FALSE, text =
list(levels(dataf$sta)[10]),lines=TRUE,points=TRUE,lty=c(10),pch=c(10))
# the plot
xyplot(lbt ~ de | type, data=dataf, groups =
sta,type=c("p&...