世界热力地图 R语言

library(maps)

library(ggplot2)

library(tidyverse)

 

可能出现的报错情况:

f0a4e0370c274458b35875ff1e441dd4.png

解决方法   

install.packages("vctrs")

 

利用世界地图数据包

world_map<-map_data("world")

 

 结果如下

7b7975a0fb10481dbd2987f6ad896e17.png

利用世界地图数据绘图

ggplot(world_map, aes(x = long, y = lat, group = group)) +

  geom_polygon(fill="white", colour = "gray50") +

  theme_classic()

 

2eaf1350ec46477eb615992d76f33d2a.png

 

需要可视化的数据展示,方便起见,这里只展示部分国家:

9aed928ed0844f4d8ccc47a9185dbc97.png

 

将excel数据导入

install.packages("xlsx")

library(xlsx)

 a<-read.xlsx("C:/Users/Administrator/Desktop/example.xlsx",1)

 

导入的数据集a如下图

05c0d95e90a249dd97d764c647c9392f.png

将world_map的经纬度等数据按照相同的国家拼接补充到数据集a

left_join(a,world_map,by="region")->a

数据拼接结果如下:

9b9616b4e37d43a1865aa5970c8ceb79.png

ba22bc0e1c904917874a2bb410d67eba.png

用拼接后的数据a绘制热力地图

ggplot(a, aes(x = long, y = lat, group = group)) +

geom_polygon(aes(fill= f), colour = "white")

 

绘图结果如下:

9515e4d3b59b4118a3e9338339589cdd.png

 

调整图颜色

ggplot(a, aes(x = long, y = lat, group = group))+theme_linedraw()+geom_polygon(aes(fill=f), colour = "white")+scale_fill_gradient(low = "lightblue", high="steel blue")

dec6b53d7ff34cef930484a4cbff9d0f.png

 

调整线条颜色为黑色

ggplot(a, aes(x = long, y = lat, group = group))+theme_linedraw()+geom_polygon(aes(fill=f), colour = "black")+scale_fill_gradient(low = "lightblue", high="steel blue")

0ccc1c02eb1e4dd9842239df7db72304.png

调整背景

 

ggplot(a, aes(x = long, y = lat, group = group))+theme_minimal()+geom_polygon(aes(fill=f), colour = "white")+scale_fill_gradient(low = "lightblue", high="steel blue")

 

bc2c31c8aadd43dd9e5ceb547ad94a97.png

 改变颜色

ggplot(a, aes(x = long, y = lat, group = group))+theme_minimal()+geom_polygon(aes(fill=f), colour = "white")+scale_fill_gradient(low = "aquamarine", high="aquamarine4")

2361e145730f4a2a96e6190b0b5a296d.png

 

 

  • 5
    点赞
  • 20
    收藏
    觉得还不错? 一键收藏
  • 打赏
    打赏
  • 0
    评论
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

江希垣

你的鼓励将是我创作的最大动力

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付:¥1
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值