¿Cómo puede extraer los números utilizados para etiquetar los ejes y y x en el diagrama de gg a continuación (respectivamente20, 30, 40 y10 , 15 ,20 ,25, 30, 35)?

Tram

Desde r-statistics.co

Código reproducible

# Scatterplot
theme_set(theme_bw())  # pre-set the bw theme.
g <- ggplot(mpg, aes(cty, hwy))
g + geom_count(col="tomato3", show.legend=F) +
  labs(subtitle="mpg: city vs highway mileage", 
       y="hwy", 
       x="cty", 
       title="Counts Plot")

He intentado mirar a través de la salida destr(g), pero con poco éxito.