pts <- lawn_random(n = 30)
polys <- lawn_triangle_grid(c(-77.3876, 38.7198, -76.9482, 39.0277), 30, 'miles')
polys$features$properties <-
data.frame(fill = c("#f92", "295"), stroke = 1:2, `fill-opacity` = 2:3)
lawn_tag(pts, polys, 'fill', 'marker-color')
Run the code above in your browser using DataLab