library(tmap) library(tmaptools) library(sf) us_shp <- st_read("<enter_path>/ne_110m_admin_1_states_provinces_shp.shp")