See the last post for all the details. I just could not help creating a couple more.
Variations on Favorite Plot - Time Series Line of JGB Yields by Maturity
p2 <- xyplot(value ~ date | indexname, data = jgb.melt,
type = "l", layout = c(length(unique(jgb.melt$indexname)),
...






Zero Inflated Models and Generalized Linear Mixed Models with R.
Zuur, Saveliev, Ieno (2012).