if (require("ggplot2")) {
ggplot() +
fmesher::geom_fm(data = toypoints$mesh, alpha = 0) +
geom_sf(data = toypoints$boundary, fill = "blue", alpha = 0.1) +
geom_sf(data = toypoints$points, aes(color = z)) +
scale_color_viridis_c()
}
Run the code above in your browser using DataLab