# \donttest{
library("ggplot2")
manuf <- unique(mpg$manufacturer)
plots <- lapply(manuf, function(x){
df <- mpg[mpg$manufacturer==x,]
ggplot(df, aes(cty, hwy)) +
geom_point() +
labs(title=x)
})
save_plots_to_pdf(plots, ncol=3, nrow=2)
# }
Run the code above in your browser using DataLab