Plotting

With nb.plot(<neighbours list>, <sfc object>)

plot(map_geom, border = "lightgray")
plot.nb(nb1, map_geom, add = TRUE)