Neighbours list based on distance bounds

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