[英]Map Australian cities - R spatial
我想画一张澳大利亚的地图,并将每个城市表示为一个点。 然后突出显示人口众多(> 1M)的城市
library(sp)
library(maps)
data(canada.cities)
head(canada.cities)
我已经检查了可以为加拿大和其他一些国家/地区完成的 sp 包。 但澳大利亚的细节不存在。 有没有一种特殊的方法来获取我们喜欢的国家的数据(城市名称、长、纬度、流行)?
现在你有了使用world.cities
的数据,你可以用几种方式绘制它们
library(maps)
df <- world.cities[world.cities$country.etc == "Australia",]
点的基本图
plot(df[, c("long", "lat")])
在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))
在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)
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.