Example data

# we won't need attributes:
map_geom <- st_geometry(map)
ggplot(map_geom) + geom_sf() + theme_bw()