snowMap()
voronoiPolygons(pumps, output = "polygons")
snowMap()
voronoiPolygons(pumps, roads, output = "polygons")
snowMap()
voronoiPolygons(pumps, roads, type = "triangles", output = "polygons")
vertices <- voronoiPolygons(pumps, roads)
snow.colors <- grDevices::adjustcolor(snowColors(), alpha.f = 1/3)
snowMap(add.cases = FALSE)
invisible(lapply(seq_along(vertices), function(i) {
polygon(vertices[[i]], col = snow.colors[[i]])
}))
Run the code above in your browser using DataLab