Как я могу остановить ggploty(), добавляя линии между точками карты?

Question

Я использую plotly пакет для преобразования моего ggmap в HTML. Однако после того, как я подам заявку ggplotly()между точками карты есть линии. Мой DF выглядит так:

df <- data.frame("Name" = c("A", "A", "A", "B","B"), "lat" = c(42.04614, 40.14664, 37.63910, 29.73602, 33.97907), "lng" = c(-88.03842, -82.98982, -122.41923, -95.58586, -84.21856))

И мой код:

map <- get_map(location = 'united states', zoom = 4, source = "google", color = "bw")
p <- ggmap(map) 
p <- p + geom_point(data = df, aes(x=lng, y=lat, group = Name, colour = Name))
plotly <- ggplotly(p)

С вне ggplotly()Моя карта:

И после применения ggplotly() моя карта выглядит так:

Как я могу это остановить? Любая помощь будет оценена!

Answer 1

Если вы открыты для других библиотек.
Вот подход с использованием листовки. Leaflet - это интерактивный подход к просмотру карт, вы также можете добавить на карту всплывающие окна, к которым можно перейти, щелкнув по кружочкам.

library(leaflet)
library(RColorBrewer)

mapper1 <- leaflet(df) %>%  
    addTiles() %>% 
    setView(lng=-95.7129, lat=37.0902, zoom=4)

pal = colorFactor(c("red","blue"), domain = df$Name)
color_incident = pal(df$Name) 

mpop <- mapper1 %>% addCircles(data = df, lat=~lat, lng= ~lng, color=color_incident)  %>% addLegend(pal=pal, values=~df$Name, title="Names")