Plot zoo Objects with ggplot2

# plot zoo objects with ggplot2;
# reference:
qplot.zoo <- function(x) {
if(all(class(x) != “zoo”)) stop(“x must be a zoo object”)
x.df <- data.frame(Date=index(x), Value=as.numeric(coredata(x)))
ggplot(x.df, aes(x=Date, y=Value)) + geom_line()+xlab(“Date”)+ylab(colnames(x))

Example: US Civilian Participation Rate

IMSL® Fortran Numerical Stat Library

“The IMSL STAT LIBRARY is a collection of FORTRAN subroutines and functions useful in research and statistical analysis. Each routine is designed and documented to be used in research activities as well as by technical specialists..”