[R] How to get bubbles on times series plot

Hi; lissage<-function(variable) { library(pastecs) ENTREE.ts <- ts(projet$ENTREE) ENTREE.dec <- decaverage(ENTREE.ts, order=variable, sides=2, ends="fill") plot(ENTREE.dec, col=c(1, 4), xlab="temps",ylab="Nombre d'entrées",main=paste("Moyenne mobile d'ordre ",variable," sous R"),

[R] Plot graph

Hi; I want to obtain this graphic. http://n4.nabble.com/file/n998283/plot.gif Instead whith my code : par(mfrow=c(1,7),mar=c(0,0,0,0)) plot(EntreesMoyennesMensuelles2003, type="l",main="2003",col="yellow") plot(EntreesMoyennesMensuelles2004, type="l",main="2004",col="red") plot(EntreesMoyennesMen