I was making a lot of similiar plots, so I made a script for making each of them and a driver program that repeatly called the script with the right parameters. The plot is made by: <code> barplot(Releases[[i]],col='gray',names.arg=as.character(Releases$Year), ylim=c(0,max),ylab=unit) box() grid(col='black',nx=NA,ny=NULL) rect(-0.5,max*0.98,-0.2+strwidth(Nuc)*1.2,max*0.92,col='white',border='white ') text(strwidth(Nuc)/2-0.2,max*0.95,Nuc,cex=1.2) </code> My first attempt was to use the recording function in the device and just call it using <code> for (i in c(1,2,5,7,8,9,10,12,14,15,16,18,19,20,23,24,25)){ source('Barplot-prog.R')} } </code> Which messed up the grid drawed on the plot, the lines were extended all the way through the margins. Saving each plot to a file, otoh, works, it also makes the recorded plots correct. After this has occured the first time, I have to close and reopen the graphics device to make it work correctly again. I can send data and complete scripts if someone needs them to investigate the problem. Morten