library(ggplot2)

plot <- ggplot(diamonds, aes(carat, price)) + geom_point()
for (i in 1:160) {
  print(plot)
}