如何停止 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")

如何停止 ggploty() 在地图点之间添加线条？

how can I stop ggploty() adding lines between map points?

r

ggplot2

r-plotly

ggplotly