.get_7triangles | R Documentation |
construct polygon mesh displayed in Figure 4a in
.get_7triangles(A = 1)
A |
defines the area of a region in the center |
a SpatialPolygons object
triangle.map <- recmap:::.get_7triangles()
z <- c(rep(4, 4), rep(1, 3))
cols <- c(rep('white', 4), rep('grey',3))
op <- par(mfrow=c(1,2), mar=c(0, 0, 0, 0))
plot(triangle.map, col=cols)
## Not run:
# requires libfft.so installed in linux
if (require(getcartr) & require(Rcartogram)){
cartogram <- quick.carto(triangle.map, z, res=64)
plot(cartogram, col=cols)
}
## End(Not run)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.