library(ggplot2)
require(svglite)

theme_set(theme_bw())

bench_geom_point <- ggplot(mtcars, aes(wt, mpg)) +
  geom_point(aes(colour = factor(cyl)))

for (ext in c("eps", "png", "svg", "tex")) {
  ggsave(paste0("ggplot2_geom_point.", ext), bench_geom_point,
    device = ext,
    width = 18, height = 12, units = "cm"
  )
}