搜索
人大经济论坛 › 附件下载

附件下载

所在主题：
文件名:  data.zip
资料下载链接地址: https://bbs.pinggu.org/a-3288950.html
本附件包括：
  • data.csv
  • china.json
附件大小:
不同的省份用数值填充，颜色深浅表示数值大小，其实是一个很现实和常见的问题，但是我感觉网上的教程语焉不详，关键就在于如何将自己的数据和地图融合，程序代码如下，用的GDP数据和地图数据在附件中，供参考，也欢迎各位同学提供更好的解决方案。
  1. library(leaflet)
  2. library(geojsonio)
  3. library(dplyr)

  5. # 地图数据，来源：
  6. # https://github.com/longwosion/geojson-map-china/blob/master/china.json
  7. china <- geojson_read("china.json", what = "sp")

  9. # 需要填充数据自己修改即可
  10. df <- read.csv("data.csv")

  12. china@data <- china@data %>%
  13. left_join(df)

  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)
复制代码


    熟悉论坛请点击新手指南
下载说明
1、论坛支持迅雷和网际快车等p2p多线程软件下载，请在上面选择下载通道单击右健下载即可。
2、论坛会定期自动批量更新下载地址,所以请不要浪费时间盗链论坛资源,盗链地址会很快失效。
3、本站为非盈利性质的学术交流网站,鼓励和保护原创作品，拒绝未经版权人许可的上传行为。本站如接到版权人发出的合格侵权通知，将积极的采取必要措施；同时，本站也将在技术手段和能力范围内，履行版权保护的注意义务。
(如有侵权，欢迎举报)
二维码

扫码加我 拉你入群

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

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

京ICP备16021002号-2 京B2-20170662号 京公网安备 11010802022788号 论坛法律顾问：王进律师 知识产权保护声明   免责及隐私声明

GMT+8, 2026-1-9 11:04