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