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

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

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() моя карта выглядит так: введите здесь описание изображения

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


r ggplot2 r-plotly ggplotly
person Mr369    schedule 10.07.2018    source источник
comment
возможно, листовка - это более простой способ, поскольку он принимает sf-объекты. Затем вы можете создать (поли)линейный объект со всеми линиями. подробнее здесь: stackoverflow.com/questions/50867215/   -  person Wimpel    schedule 10.07.2018
comment
Я думаю, что он хочет очки вместо строк в сюжете @Wimpel   -  person ReKx    schedule 10.07.2018
comment
@ Риши, ты прав .. я неправильно понял :)   -  person Wimpel    schedule 10.07.2018
comment
Ваш код дает мне то, что вы хотите. Я использую ggmap_2.6.1, plotly_4.7.1.9000, and ggplot2_2.2.1.9000.   -  person MLavoie    schedule 11.07.2018

Ответы (1)


arrow_upward
1
arrow_downward

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

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")

введите здесь описание изображения

person ReKx    schedule 10.07.2018
comment
Спасибо за помощь! и да, я решил сменить пакет. :( - person Mr369; 11.07.2018