geom_focus() marks points with numbered markers, and
the info aesthetic adds a legend that explains each number.
The optional focus aesthetic selects which observations to
number; without label, info entries are
numbered in data order.geom_sf_focus() numbers simple features from the sf
package.scale_info_discrete() and draw_key_focus()
build the legend.