世界热力地图 R语言

library(maps)

library(ggplot2)

library(tidyverse)

 

可能出现的报错情况：

解决方法   

install.packages("vctrs")

 

利用世界地图数据包

world_map<-map_data("world")

 

 结果如下

利用世界地图数据绘图

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

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

  theme_classic()

 

 

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

 

将excel数据导入

install.packages("xlsx")

library(xlsx)

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

 

导入的数据集a如下图

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

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

数据拼接结果如下：

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

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

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

 

绘图结果如下：

 

调整图颜色

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")

 

调整线条颜色为黑色

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")

调整背景

 

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")

 

 改变颜色

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")