library(ggplot2)
fig <- ggplot(mtcars, aes(y = mpg, x = disp)) +
geom_point(aes(colour = factor(cyl)))
## For demo, a temp. file path is created with the file extension .png
png_file <- tempfile(fileext = ".png")
ggsave_elsevier(png_file, plot = fig, width = "full_page", height = 120)
Run the code above in your browser using DataLab