R Google Maps, добавляя более длинные пути

Question

Я только начал играть с RgoogleMaps http://cran.r-project.org/web/packages/RgoogleMaps/RgoogleMaps.pdf и это кажется действительно классным, но кажется, что есть ограничение в пути пути GetMaps(). Похоже (и я могу ошибаться) URL-адрес отправляется в API статических карт Google, а png-файл (или что-то другое) загружается, поэтому ограничение URL-адреса ограничивает размер пути, который вы можете иметь в своем "map.png ". Но мне интересно, было бы легко отредактировать png после создания или на промежуточном этапе обработки, чтобы иметь длинные пути? Кто-нибудь знает, как это сделать в г? Пакет, кажется, предоставляет функцию, которая отображает координаты XY в растре png. И если вы не заметили, что я далеко не эксперт в png-файлах, так что если есть что-то простое, что я упускаю, пожалуйста, будьте осторожны.

Answer 1

Обновить opts устарела; использование theme вместо.

Если вы готовы работать в ggplot2, ggmap Пакет позволяет легко добавлять слои на карту. get_map() Функция ниже выбирает спутниковую карту Google Национального исследовательского института в Порт-Морсби, PNG. ggmap() Функция рисует карту, затем добавляет текстовую аннотацию, аннотацию отрезка линии и заголовок. Но другие гемы могут быть добавлены так же, как и в обычный график ggplot. gglocator() функция работает аналогично locator() на базовых участках. lon а также lat являются координатами центра карты, но вектору местоположения могут быть заданы границы карты. Я играл с zoom чтобы получить правильное разрешение.

library(ggplot2)
library(ggmap)
library(grid)

nri = get_map(location = c(lon = 147.165, lat = -9.410), zoom = 18, maptype = 'satellite')

(NRImap = ggmap(nri, extent = "device") + 
  annotate('segment', x = 147.1656, xend = 147.1649, y = -9.41025, yend = -9.4096,
    colour = 'white', arrow = arrow(length = unit(0.25,"cm")), size = 1) +
  annotate('text', x = 147.1656, y = -9.41031, label = 'Conference Centre',
    colour = 'white', size = 6) +
  theme(plot.margin = unit(c(1.5, 0, 0, 0), "lines")) + 
  ggtitle                       ("National Research Institute") +
  theme(plot.title = element_text(colour = "Blue", vjust = 2, size = 20)))

# gglocator()