ggmap için bir daire ekleyin:en Paketi ggmap kullanarak Londra'da bir haritasını oluşturmak varsayalım
library(ggmap)
library(mapproj)
map <- get_map(location = "London", zoom = 11, maptype = "satellite")
p <- ggmap(map)+
theme(legend.position = "none")
print(p)
Şimdi bazı merkez koordinatları ile bu arsa için çevre eklemek istiyorum (diyelim ki: boylam = -0.1 , lat = 52.23) ve örneğin ifade edilen yarıçap kilometrelerce Ben aynen bu işleve bir açıklama ekleyebileceğiniz benzer soru (Draw a circle with ggplot2), bir çözüm kullanmaya çalıştı: Çalışır
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)))
ama daire nedeniyle farklı ölçek gerçekten bir çember değildir. Doğru çizmek mümkün mü? Herhangi bir yardım mutluluk duyacaktır!
EDIT: Farklı paket kullanan ve çıktı doğru olan (https://gis.stackexchange.com/questions/119736/ggmap-create-circle-symbol-where-radius-represents-distance-miles-or-km) bir çözüm buldum. Yine de, eğer herkes ggmap kullanarak nasıl yapılacağını bilirse lütfen paylaşın.
> m = get_map(location="london", zoom=11, maptype="satellite")
> corners = attributes(m)$bb
> delta.x = corners["ur.lon"] - corners["ll.lon"]
> delta.y = corners["ur.lat"] - corners["ll.lat"]
Sonra buna göre yolunu ayarlayın:
Eğer '+ coord_equal()' haritanızın arsa sonuna ekleyerek denediniz mi? – Phil
Evet, ama o zaman bu mesafe –
Plus açısından güvenilir değil, çıktı bu örnekteki web sitesinden elde edilen çıktıdan farklıdır: http://www.freemaptools.com/radius-around-point.htm –