powered by
choro_plot(sp, dem, cuts=list("quantile", seq(0, 1, 0.25)), alpha=0.5, main, sub="", legend.loc="bottomleft", legend.title="", add=TRUE, ...)