R 语言地图可视化 美国2016大选

rm(list=ls())
load(file = "/Users/n.w./Documents/countypres_2000-2016.rdata")
library(tidyverse)
library(here)
library(janitor)
library(albersusa)
library(sf)
library(sp)
library(rgeos)
library(maptools)
library(ggthemes)
library(viridis)
library(scales)
library(glue)
library(jkmisc)

Package不是每个都用上的，准确说是大多数都没用的，习惯性全加上了
Data 是MIT election的，数据库为2000-2016年美国总统大选，以country为最小单位，具体link
https://dataverse.harvard.edu/dataset.xhtml?persistentId=doi:10.7910/DVN/VOQCHQ
这里只选取2016年的做例子

data_2016_remove <- x %>% filter(year == 2016