Как наложить осмар фигуру на ggmap с помощью R?

Question

У меня проблемы с наложением осмара на ggmap с R.

Я получаю осмарский объект (в данном случае это Лейк-Парк в Милуоки, Висконсин):

lp<-get_osm(relation(6044259), full=T)

Я преобразовываю это в форму:

lpp<-as_sp(lp, "lines")

Это выглядит хорошо, и я вижу схему парка:

[plot(lpp)][1]

Затем я пытаюсь наложить это на карту:

area.points <- fortify(lpp)
mapImage <- get_map(location = c(lon = -87.89, lat = 43.05),  color = "color",           source = "google",  zoom = 13)
ggmap(mapImage) + geom_path(aes(x=long,y=lat), data=area.points, color=colors[9], alpha=0.5)+labs(x="Longitude", y="Latitude")

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

вывод ggmap

Answer 1

Добавление group=group в разделе aes geom_path решена проблема:

ggmap(mapImage) + geom_path(aes(x=long,y=lat,group=group), data=area.points, 
                            color=colors[9], alpha=0.5)+
                  labs(x="Longitude", y="Latitude")