R Как расширить горизонтальный диапазон ggmap

Question

Я пытаюсь отобразить данные о местоположении на карте с помощью ggmap. Точки определяются широтой и долготой и расположены в широком диапазоне долготы. Тем не менее, ggmap допускает только квадратное поле.

Вы можете скачать данные о местоположении здесь: https://www.dropbox.com/s/2s33ccpu4m3vsl9/data.csv?dl=0

Код, который я использовал для создания карты, выглядит следующим образом:

 geoCodes <- geocode("Kazan, Russia")

 map = get_googlemap(
    center=c(geoCodes$lon,geoCodes$lat), #Long/lat of centre
    zoom=3, 
    maptype='roadmap', #also hybrid/terrain/roadmap
    scale = 2)
data = data.frame (testTrain$lon_1, testTrain$lat_1,testTrain$isDuplicate)

ggmap(map, extent='normal', size = c(900, 900)) + geom_point (data = data,
    aes (
        x = testTrain$lon_1, 
        y = testTrain$lat_1,
        fill = factor (testTrain$isDuplicate)
        ), 
    pch = 21, 
    colour = "white", 
    size = 2,
    alpha = 0.4
    ) +
  scale_fill_brewer (palette = "Set1", name = "Duplicates") +
  theme ( 
    legend.position = c(0.05, 0.05), # put the legend INSIDE the plot area
 legend.justification = c(0, 0),
    legend.background = element_rect(colour = F, fill = "white"),
    legend.key = element_rect (fill = F, colour = F),
    panel.grid.major = element_blank (), # remove major grid
 panel.grid.minor = element_blank (),  # remove minor grid
 axis.text = element_blank (), 
    axis.title = element_blank (),
    axis.ticks = element_blank ()
    )

Есть ли способ расширить диапазон ggmap, чтобы он охватывал более широкую область?

Answer 1

Опция

scale_y_continuous() позволит вам обрезать график так, чтобы он выглядел прямоугольным

ggmap( get_googlemap(
  center = c(lon = 37.6173, lat = 55.7558), #Long/lat of centre
  zoom=3, 
  size=c(600,600),
  maptype='roadmap', #also hybrid/terrain/roadmap
  scale = 2)
)+ scale_y_continuous(limits=c(30, 60))