Aside: This should also enable consistent tinyplot support for spatial objects, since polypath is what sf, geos, and co. use under the hood for their plot methods.
pkgload::load_all("~/Documents/Projects/tinyplot/") library(sf) nc_shapefile = system.file("shape/nc.shp", package = "sf") nc = st_read(nc_shapefile) get_geom = function(x) { m = Map(as.data.frame, Map(`[[`, Map(`[[`, nc$geometry, 1), 1)) for (i in seq_along(m)) m[[i]][["idx"]] = i m = do.call("rbind", m) names(m) = c("lon", "lat", "idx") m } ncg = get_geom(nc) plt( lat ~ lon | factor(idx), ncg, type = "polypath", fill = 0.8, col = "white", legend = FALSE )
Created on 2024-07-06 with reprex v2.1.0