Предположим, что я создаю карту Лондона, используя пакет ggmap:
library(ggmap)
library(mapproj)
map <- get_map(location = "London", zoom = 11, maptype = "satellite")
p <- ggmap(map)+
theme(legend.position = "none")
print(p)
Теперь я хотел бы добавить к этому графику круг с некоторыми координатами центра (скажем: lon = -0.1, lat = 52.23) и радиус, выраженный, например. в километрах. Я попытался использовать решение из аналогичного вопроса (Рисовать круг с ggplot2), где вы можете просто добавить к функции инструкцию вроде этого:
p <- p + annotate("path",
x = xc+r*cos(seq(0,2*pi,length.out=100)),
y = yc+r*sin(seq(0,2*pi,length.out=100)))
Это работает, но круг не является кругом из-за разного масштаба. Можно ли правильно это сделать? Любая помощь будет оценена!
EDIT: Я нашел решение (https://gis.stackexchange.com/info/119736/ggmap-create-circle-symbol-where-radius-represents-distance-miles-or-km), в котором используется другой пакет, и вывод правильный. Тем не менее, если кто-нибудь знает, как это сделать, используя ggmap, пожалуйста, поделитесь им.