Plot zoo Objects with ggplot2 

  1. plot zoo objects with ggplot2;
  2. reference: http://stackoverflow.com/questions/3321489/r-ggplot-plotting-irregular-time-series/3321532#3321532
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
plot_zoom_png