Looping over plots with GGPLOT

plotloop.R

#Set the working directory, plots will be saved locally.
library(ggplot2)
X <- rnorm(100)
Y <- rnorm(100)
Z <- rnorm(100)
A <- rnorm(100)
B <- rnorm(100)


my.variables <- cbind(Y, Z, A, B)
  dim(my.variables)
  
  for (i in 1:dim(my.variables)[2])   {
         qplot(X, my.variables[,i], geom="point")
ggsave( filename=print(paste("plot", i, ".pdf"))   )

                             }