Correct plot fonts

library(ggplot2)

# theme set command
theme_set(theme_classic())

g <- ggplot(mpg, aes(cty, hwy)) + 
	geom_count(col="tomato3", show.legend=F) +
  labs(subtitle="mpg: city vs highway mileage", 
       y="hwy", 
       x="cty", 
       title="Counts Plot")