Carte Villes australiennes - R spatial

Question

Je veux dessiner une carte de l'Australie et représenter chaque ville comme un point. Sélectionnez ensuite les villes avec une population élevée (> 1M)

library(sp) 
library(maps) 
data(canada.cities) 
head(canada.cities) 

J'ai vérifié le paquet sp où cela peut être fait pour le Canada et d'autres pays. Mais les détails de l'Australie ne sont pas là. Existe-t-il un moyen spécial d'obtenir les données pour un pays que nous aimons (nom des villes, long, lat, pop)?

Answer 1

Maintenant, vous avez les données à l'aide world.cities, vous pouvez les tracer quelques façons

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

terrain de base de points

plot(df[, c("long", "lat")]) 

sur un ggmap

library(ggmap) 

myMap <- get_map(location = "Australia", zoom = 4) 

ggmap(myMap) + 
geom_point(data = df[, c("long","lat", "pop")], aes(x=long, y = lat, colour = pop > 1000000)) 

Sur une carte leaflet

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)