Example in the book

ggplot() + 
  geom_sf(data = map, fill = "grey30") +
  geom_sf(data = d, colour = "pink", shape = 21) + 
  coord_sf(datum = projUTM) +
  theme_linedraw()