2021年全球人口自然增长率热力图（R语言）（附图）（附数据）

library('maps')
library('ggplot2')
library('RColorBrewer')
library('tidyverse')
library('readxl')
library('xlsx')
world_map <- map_data('world')
setwd('C:/Users/dell/Desktop')
Country_List <- read_excel('Country_list.xlsx')
world_map %>%
  left_join(Country_List, by = c('region' = 'Country')) -> Negative_map

mp <- ggplot(Negative_map, aes(x = long, y = lat, group = group)) +
  geom_polygon(aes(fill = Rate), colour = 'white') +
  scale_x_continuous(breaks = seq(-180, 210, 45), labels = function(x){paste0(x, '°')}) +
  scale_y_continuous(breaks = seq(-60, 100, 30), labels = function(x){paste0(x, '°')}) +
  scale_fill_gradient2(low = 'darkblue', high = 'orange', mid = 'lightblue', midpoint = 0) +
  labs(title = ' ', y = ' ', x = ' ') + 
  theme_bw() +
  theme(panel.grid.major = element_line(colour = NA),
        panel.background = element_rect(fill = 'transparent', colour = NA),
        plot.background = element_rect(fill = 'transparent', colour = NA),
        panel.grid.minor = element_blank(),
        legend.position = 'bottom',
        panel.grid.major.x = element_blank(),
        panel.grid.minor.x = element_blank(),
        legend.title = element_blank(),
        panel.border = element_blank(),
        axis.text.y = element_blank(),
        axis.text.x = element_blank())
        
mp

输出的图片是1500：900输出的，比较美观，做这个图麻烦的点在于直接找到的国家英文名和maps包里面的国家名好多对不上，而且有的缺失，要自己一个一个改）
想自己改配色的话仔细看看代码就知道改哪里

因为图片中含有地图，可能不太规范，所以显示违规放不进来了

数据网盘链接：
链接：https://pan.baidu.com/s/1VUoGyjk3D1jo5PQ0zzEuig?pwd=9alb
提取码：9alb
–来自百度网盘超级会员V1的分享