How to make area saved with ggsave smaller

Question

Say that I use the following code to create the following plot, saved with ggsave:

library(tidycensus)
library(tidyverse)
library(RColorBrewer)
o