其他
数据呈现 | R制图:用等高线图揭示中国文盲分布特征
引言
数据读取
首先,读取基础数据:2015年全国1%人口抽样数据和2015年全国地区人均GDP数据。
# 加载包
library(openxlsx)
library(ggplot2)
# 读取数据集1
illiteracy.GDP.gender<-read.xlsx('illiteracy_data.xlsx',1)
# 展示前6行
head(illiteracy.GDP.gender)
# Pro illiteracy GDP_PER area gender
#1 北京 0.009068759 5.027337 东部 男
#2 天津 0.014269356 5.033263 东部 男
#3 河北 0.023068412 4.604820 东部 男
#4 山西 0.019304184 4.543062 中部 男
#5 内蒙古 0.037591223 4.851876 西部 男
#6 辽宁 0.014063987 4.815272 东部 男
# 读取数据集2
illiteracy.GDP.city<-read.xlsx('illiteracy_data.xlsx',2)
# 展示前6行
head(illiteracy.GDP.city)
# Pro illiteracy GDP_PER area class
#1 北京 0.01319026 5.027337 东部 城市
#2 天津 0.01760542 5.033263 东部 城市
#3 河北 0.01757202 4.604820 东部 城市
#4 山西 0.01422646 4.543062 中部 城市
#5 内蒙古 0.02660108 4.851876 西部 城市
#6 辽宁 0.01373357 4.815272 东部 城市
注:上述代码块中,变量Pro为省份名称,illiteracy为文盲率,即文盲人口/总人口,GDP_PER是全国各地人均GDP对数,area为东中西部地区,gender为男、女分类变量,class为农村、城市分类变量。
绘制等高线图
# 利用数据集1,绘制图形1
ggplot(data=illiteracy.GDP.gender,aes(x=illiteracy,y=GDP_PER,fill=gender))+
stat_density2d(aes(alpha=..level..),geom='polygon')+
geom_jitter(aes(colour=gender),size=1.5)+
geom_rug(aes(color = gender)) +
labs(fill = "性别",
color = "性别",
x = "文盲率",
y = "人均GDP对数",
title = "2015年不同经济发展地区文盲率水平",
subtitle = "来源:2015年全国1%人口抽样数据,经企研数据整理",
caption = "") +
facet_grid(.~ area) +
theme_bw()+
scale_color_brewer(palette="Set1", na.value = "grey50") +
scale_fill_brewer(palette="Set1")
左右滑动查看更多
# 利用数据集2,绘制图形2
ggplot(data=illiteracy.GDP.city,aes(x=illiteracy,y=GDP_PER,fill=class))+
stat_density2d(aes(alpha=..level..),geom='polygon')+
geom_jitter(aes(colour=class),size=1.5)+
geom_rug(aes(color = class)) +
labs(fill = "类别",
color = "类别",
x = "文盲率",
y = "人均GDP对数",
title = "2015年不同经济发展地区文盲率水平",
subtitle = "来源:2015年全国1%人口抽样数据,经企研数据整理",
caption = "") +
facet_grid(.~ area) +
theme_bw()+
scale_color_brewer(palette="Set1", na.value = "grey50") +
scale_fill_brewer(palette="Set1")
几点结论
►往期推荐
回复【Python】👉简单有用易上手
回复【学术前沿】👉机器学习丨大数据
回复【数据资源】👉公开数据
回复【可视化】👉你心心念念的数据呈现
回复【老姚专栏】👉老姚趣谈值得一看
►一周热文
特别推荐 | “正则表达式”在工业企业数据库匹配中的运用(二)
数据Seminar
这里是大数据、分析技术与学术研究的三叉路口
审阅:杨奇明编辑:青酱
欢迎扫描👇二维码添加关注