【独家发布】以2018年人口数据绘制分省图的R代码

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

分省人口数据： pop.rar (812 Bytes) 本附件包括：

• pop.csv

2020-8-26 20:00:49 上传

2018年分省人口数据

分省矢量数据，不在本论坛上传。请同学自己想办法。

1. library(ggplot2)
   
2. library(dplyr)
   
3. library(maptools)
   
4. library(sf)
   
5. 
   
6. 
   
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") #合并数据
   
10. 
    
11. 
    
12. #绘制分省人口
    
13. 
    
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())
    
26. 
    
27. ggsave("chinapop.png",width=15,height=20,unit="cm",dpi=300) #生成300dpi的png，可用，但不如pdf文件好用

复制代码

结果如图：

扫码加我 拉你入群

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

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

分享0 收藏3 回帖

关键词：人口数据 人口数 R代码 Library ggplot2 人口 分省

CN-sheng-A.shp 数据呢

一、示例的补充说明：
1、上例仅为代码参考，生成的图片符合中国标准地图要求，但不作为公开图片使用。
2、上例所采用的版图、国境、省级行政边界数据，来源于中国科学院地理科学与资源研究所，为合法数据。

二、关于标准地图的说明：
自然资源部地图技术审查中心提供标准地图服务，包括标准地图下载、自助制图。
社会公众直接使用标准地图时需要标注审图号。
对地图内容编辑（包括放大、缩小和裁切）改动的，公开使用前需要送自然资源主管部门审核。

三、标准地图和错误地图的示例，各位同学论文使用地图时须注意

中国科学院地理科学与资源研究所网站 http://www.resdc.cn/Default.aspx

sheng.rar (13.84 MB) 本附件包括：

• CN-sheng-A.dbf
• CN-sheng-A.prj
• CN-sheng-A.sbn
• CN-sheng-A.sbx
• CN-sheng-A.shp
• CN-sheng-A.shx

2020-8-29 17:19:17 上传

首先感谢分享代码，不过我遇到一个问题，我从http://www.resdc.cn/Default.aspx下载了2015年省级区划的数据后，运行ggplot绘图的代码时停在那里超过5分钟，请问这个情况正常吗，还是说电脑配置不行，还要等更长时间，谢谢！

sanjie27 发表于 2020-8-29 17:22
首先感谢分享代码，不过我遇到一个问题，我从http://www.resdc.cn/Default.aspx下载了2015年省级区划的 ...

这个数据解压后大概是24M多，加载后数据有4461条，其中32条是省、自治区、直辖市的，其余4429条大部分是岛屿，还有内陆一些补充数据。我用的是32位的R，处理裸图大概要半分钟，但是如果处理示例代码，我的电脑大概需要一根烟的时间。可能与内存消耗有关吧

谢谢 楼上的素材 我来慢慢学习
另外建议大家保存为emf格式 在AI或CDR中进行细节的编辑 微调
我在本科阶段学习有平面设计的课程 所以我还比较顺手

学会后再过来改写一次

sanjie27 发表于 2020-8-29 17:22
首先感谢分享代码，不过我遇到一个问题，我从http://www.resdc.cn/Default.aspx下载了2015年省级区划的 ...

我下午用别的代码画图了不卡 但是这次真的卡，难道是因为少加载了某些包吗

sanjie27 发表于 2020-8-29 17:22
首先感谢分享代码，不过我遇到一个问题，我从http://www.resdc.cn/Default.aspx下载了2015年省级区划的 ...

下载的数据很多省份字段缺失