Closest observation method

plot(vor)
points(vect(d), cex = 0.3, col = "red")