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

附件下载

所在主题：
文件名:  pop.rar
资料下载链接地址: https://bbs.pinggu.org/a-3293520.html
本附件包括：
  • pop.csv
附件大小:
812 Bytes   举报本内容
分省人口数据：
分省矢量数据，不在本论坛上传。请同学自己想办法。

  1. library(ggplot2)
  2. library(dplyr)
  3. library(maptools)
  4. library(sf)


  7. orig <- st_read("CN-sheng-A.shp", stringsAsFactors = FALSE) #矢量数据读入
  8. pop<-read.csv("pop.csv",header=T) #人口数据读入
  9. orig<-orig%>%left_join(pop, by="name") #合并数据


  12. #绘制分省人口

  14. ggplot(orig) +
  15. geom_sf(aes(fill = `人口`,geometry = `geometry`), size = 1, color = "black") +
  16. geom_sf_text(
  17. aes(label = `name`, geometry = `geometry`),
  18. color = "white",
  19. size = 2,
  20. check_overlap = FALSE,
  21. family="GB1"
  22. )+
  23. scale_fill_gradient(low = "green", high = "red",aesthetics = "fill")+
  24. guides(fill = guide_colorbar(title = "人口", title.position = "top",family="GB1"))+
  25. theme(panel.background = element_rect(fill = "white", colour = "black"),legend.position=c(0,0), legend.justification = c(0, 0), axis.title = element_blank())

  27. ggsave("chinapop.png",width=15,height=20,unit="cm",dpi=300) #生成300dpi的png，可用，但不如pdf文件好用
复制代码


结果如图：


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

扫码加我 拉你入群

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

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

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

GMT+8, 2025-12-31 14:45