R语言-视觉化- 世界地图( map in r.studio )

废话不多说，直接附上code
影片含有程序码详细解说，若有误再烦请告知，谢谢

资料下载处

library(ggplot2)
library(dplyr)
library(maps) #世界各地地图
library(sf) 
world <- st_as_sf(map("world", plot = FALSE, fill = TRUE))
world %>% 
  ggplot(aes(geometry = geom)) + 
  geom_sf(fill = 'brown', color = 'black')+
  #coord_sf(xlim = c(-130,-90), ylim = c(30,40))+
  #geom_text annotate
  theme_void() #去除格线

#地图实作--美国各州总统选举
usa <- st_as_sf(map("state", plot = FALSE, fill = TRUE))
usa %>% 
  ggplot(aes(geometry = geom)) + 
  geom_sf(fill = 'brown', color = 'black')

library(data.table)
election <- fread(file="D:\\美国历年总统选举.csv",header=TRUE,stringsAsFactors = FALSE)
final <- left_join(election,usa,by="ID")#共和党0 民主党1
final %>% 
  subset(year=2016) %>% 
  ggplot(aes(geometry = geom)) + 
  geom_sf(aes(fill = win))