library(tmap)
library(tmaptools)
library(sf)

us_shp <- st_read("<enter_path>/ne_110m_admin_1_states_provinces_shp.shp")