x1 <- c(1:9)
   for (i in 1:3)
   {
     name = paste("Pic_", i, ".png", sep="")
     png(name)
     x2 <- rnorm(9,2,2)
     plot(x1,x2)
     df <- data.frame(x1,x2)
     dev.off()
    }