leaflet 中国地图 填充GDP

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

不同的省份用数值填充，颜色深浅表示数值大小，其实是一个很现实和常见的问题，但是我感觉网上的教程语焉不详，关键就在于如何将自己的数据和地图融合，程序代码如下，用的GDP数据和地图数据在附件中，供参考，也欢迎各位同学提供更好的解决方案。

1. library(leaflet)
   
2. library(geojsonio)
   
3. library(dplyr)
   
4. 
   
5. # 地图数据，来源：
   
6. # https://github.com/longwosion/geojson-map-china/blob/master/china.json
   
7. china <- geojson_read("china.json", what = "sp")
   
8. 
   
9. # 需要填充数据自己修改即可
   
10. df <- read.csv("data.csv")
    
11. 
    
12. china@data <- china@data %>%
    
13.   left_join(df)
    
14. 
    
15. pal <- colorNumeric("OrRd", china$gdp)
    
16. leaflet(china) %>%
    
17.   addTiles() %>%
    
18.   addPolygons(fillColor = ~pal(gdp),
    
19.               popup = ~paste(name, "<br>GDP:", gdp)) %>%
    
20.   addLegend(pal = pal,
    
21.             values = ~gdp)

复制代码

data.zip (14.2 KB) 本附件包括：

• data.csv
• china.json

2020-8-19 14:55:46 上传

数据和地图文件

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏1 回帖

关键词：leaflet 中国地图 let Lea GDP