Невозможно проложить маршрут с помощью ggmap.route () не возвращает правильные координаты? - PullRequest
Новая
       26

Невозможно проложить маршрут с помощью ggmap.route () не возвращает правильные координаты?

0 голосов
/ 27 мая 2018

Я пытаюсь построить маршруты в ggmap, но они не отображаются на карте.Мне кажется, что маршруты получают неправильные координаты.Я пробовал оба с geom_leg и geom_path.Вот пример: 

mainroute2 <- route(from = c("39.951", "-75.173"),  # I tried with point and
               to = c("39.954","-75.195"),            # comma separator
               alternatives = FALSE, structure = "route")

 map2 <- get_map(
    location = c(lon=-75.16662, lat=39.95258), # painfully picked by hand
       source = "google", zoom = 13, maptype = "roadmap")


ggmap(map2) + geom_path(
       aes(x = lon, y = lat ),
       alpha = 3/4, size = 1, color = "black", data = mainroute2
      )

Я пробовал много альтернатив и комбинаций ggmap, qmap, geom_path, geom_leg.Все не удается.На прошлой неделе я сделал это, но теперь я не могу!

Дополнительно, когда вы строите mainroute2 с помощью ggplot (или если вы просматриваете его визуально), вы видите координаты долготы 105, что не имеет смысла, так как маршрутдолжно быть от "39,951", "-75,173" до "39,954", "- 75,195".

Пожалуйста, помогите!

Редактировать: Проблема решена.Координаты должны быть одним свернутым символом char, а не вектором c (lat, lon).(Я также отредактировал свои координаты, чтобы разделить точки, а не через запятую, что также было сразу указано)

Спасибо

1 Ответ

0 голосов
/ 27 мая 2018

Я вижу 2 проблемы в вашем коде.

Проба # 1: From/to аргумент функции route должен содержать широту и долготу, разделенные именем или запятой.

Проба № 2: Использование , в качестве десятичного разделителя.Возможно, это не соответствует настройкам локали вашей системы.

Исправленный код: 

library(ggmap)
mainroute2 <- route(from = "39.951,-75.173",  # lat,lon
                    to = "39.954,-75.195",      
                    alternatives = FALSE, structure = "route")

map2 <- get_map(
  location = c(lon=-75.16662, lat=39.95258), # painfully picked by hand
  source = "google", zoom = 13, maptype = "roadmap")

# color is changed to Red to make it visible clearly 
ggmap(map2) + geom_path(
  aes(x = lon, y = lat ),
  alpha = 3/4, size = 1.5, color = "red", data = mainroute2
)

enter image description here

...