¿Hay alguna manera de agregar una barra de escala (para distancias lineales) a ggmap?

No es que sea crítico para mi pregunta, pero aquí está mi ejemplo de trama, sobre la cual me gustaría agregar una barra de escala.

ggmap(get_map(location = "Kinston, NC", zoom = 12, maptype = 'hybrid')) +
geom_point(x = -77.61198, y = 35.227792, colour = "red", size = 5) +
geom_point(x = -77.57306, y = 35.30288, colour = "blue", size = 3) +
geom_point(x = -77.543, y = 35.196, colour = "blue", size = 3) +
geom_text(x = -77.575, y = 35.297, label = "CRONOS Data") +
geom_text(x = -77.54, y = 35.19, label = "NOAA") +
geom_text(x = -77.61, y = 35.22, label = "PP Site")

Respuestas a la pregunta(2)

Su respuesta a la pregunta