ggtsdisplay will produce the equivelant plot using ggplot graphics.
tsdisplay(x, plot.type=c("partial","scatter","spectrum"), points=TRUE, ci.type=c("white", "ma"), lag.max, na.action=na.contiguous, main=NULL, xlab="", ylab="", pch=1, cex=0.5, ...)
ggtsdisplay(x, plot.type=c("partial","scatter","spectrum"), points=TRUE, lag.max, na.action=na.contiguous, ...)acf. Should the confidence limits assume a white noise
input or for lag $k$ an MA($k-1$) input?na.contiguous. Useful alternatives are na.pass and na.interp.acf.plot.ts, Acf, spec.arggtsdisplay(USAccDeaths, plot.type="scatter")
Run the code above in your browser using DataLab