Neighbours list based on \(k\) nearest neighbours

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