ggmap harita boyutunu değiştiriyor

Question

Mükemmel kare değil, dikdörtgen biçiminde ve dikte ettiğim bir harita oluşturmak istiyorum.

require(ggmap) 
tenmile <- get_map(location = c(lon = -122.486328, lat = 48.862813), 
    color = "color", 
    source = "google", 
    maptype = "roadmap", 
    zoom = 12) 
tenmile.map <- ggmap(tenmile, 
    extent = "device", 
    ylab = "Latitude", 
    xlab = "Longitude")+ggtitle("GEOMean for Data from Oct 2013-Nov 2014") 
tenmile.map + geom_point(data=pp, aes(x=lon, y=lat, size=geomean), color="red", alpha=0.5) +  
geom_text(data=pp, aes(x=lon, y=lat, label = site), size=3, vjust = 1.25, hjust = -0.1) 

ne olsun resimlerini ve ne istediğim göndermek ama Resim gönderebilir için yeterli itibar puanı yok. = - (

Answer 1

Sınırlayıcı kutunun orijinal sınırlarını korumak, ancak şeklini değiştirmek istiyorsanız, en boy oranını ayarlayabilirsiniz. Sınırlama kutusunun sınırlarını değiştirmek isterseniz, haritayı aşağıdaki gibi alın. önce ama coord_fixed() (veya coord_cartesian()) kullanarak sınırlar belirleyin. Yoksa en boy oranı ve sınırlayıcı kutunun sınırlarını hem ayarlayabilirsiniz.

tenmile <- get_map(location = c(lon = -122.486328, lat = 48.862813), 
    color = "color", 
    source = "google", 
    maptype = "roadmap", 
    zoom = 12) 
tenmile.map <- ggmap(tenmile, 
    ylab = "Latitude", 
    xlab = "Longitude")+ggtitle("GEOMean for Data from Oct 2013-Nov 2014") + 
    coord_fixed(xlim = c(-122.55, -122.40), ratio = 2/1) 

Answer 2

Sandy Muspratt cevabı dikdörtgen harita üretir, ama bu gergin olur. alabilmek için Uzatılmamış bir harita, oran, haritadaki paralelliklerin ve meridyenlerin arasındaki orana göre ayarlanmalıdır, yani:

oranı = 1/cos (enlem) enlem derece olarak verilmiş ise

, bu gibi olur:

oranı = 1/cos (p * enlem/180)

Burada Barselona haritası kullanarak bir örnek vereyim (Barselona caddelerin çoğunun kare bir ızgara oluşturduğundan ve deformasyonun kolayca fark edilebildiğinden, gerginliği kontrol etmek için iyi bir örnek oluşturuyor).

Böylesi haritanın alanı hesabı Dünya'nın eğrilik almak için yeterli küçükse (örneğin haritaya noktalar eklemek için) Bütün harita için çalışmaya devam koordinatları belirtmek gerekir

library(ggmap) library(mapproj) mapbcn <- get_map(location = 
    'Barcelona, Catalonia', zoom = 13) 

# square map (default) ggmap(mapbcn) 

# map cropped by latitude 
ggmap(mapbcn) +     
    coord_fixed(ylim=c(41.36,41.41), 
       ratio=1/cos(pi*41.39/180)) 

# map cropped by longitude 
ggmap(mapbcn) +  
    coord_fixed(xlim=c(2.14, 2.18), 
       ratio=1/cos(pi*41.39/180)) 

- yani meridyenlerin harita ile gösterilen alanda paralel olduklarını varsaymak için. Kıta ölçekli bir haritada yüzlerce kilometre uzunluğunda ve çok yanlış bir haritada yanlış olabilir.