``` library(sf) nc <- sf::st_read(system.file("shape/nc.shp", package="sf")) library(ggplot2) map <- ggplot() + geom_sf(data = nc) ragg::agg_png(width = 900, height = 450) map invisible(dev.off()) ```  ``` png(width = 900, height = 450) map invisible(dev.off()) ``` 