Карта Австралии - нет маршрута - PullRequest
Новая
       27

Карта Австралии - нет маршрута

1 голос
/ 20 апреля 2020

Получил код отсюда:

Карта австралийских городов - R пространственная

Но когда я ее запускаю, выдается карта, показанная: 

library(maps)
df <- world.cities[world.cities$country.etc == "Australia",]

library(leaflet)

## define a palette for hte colour
pal <- colorNumeric(palette = "YlOrRd",
                    domain = df$pop)



library(leaflet)

## define a palette for hte colour
pal <- colorNumeric(palette = "YlOrRd",
                    domain = df$pop)

leaflet(data = df) %>%
    addTiles() %>%
    addCircleMarkers(lat = ~lat, lng = ~long, popup = ~name, 
                     color = ~pal(pop), stroke = FALSE, fillOpacity = 0.6) %>%
    addLegend(position = "bottomleft", pal = pal, values = ~pop)

enter image description here

Что мне здесь не хватает?

...