In tcwilkinson/morphogram: Morphogram Tableaux to Compare Spatial Features Visually
knitr::opts_chunk$set(
cache= FALSE,
collapse = TRUE,
comment = "#>",
global.par = TRUE
)
par(mar=c(0,0,0,0))
Introduction
This package designed to facilitate the construction of infographics which place spatial features side-by-side, for example to compare visually the dimensions of cities, study regions or building sizes in two dimensional space. The package aims to preserve the accurate spatial dimensions of the features but translate their spatial position so that they are distributed visually. Because spatial dimensions are preserved, further spatial analysis (e.g. area calculations) or the additional of scale bars can be accurately plotted.
Functions rely on sf objects as inputs and outputs, hence the primary dependency of this package is sf. Use of sf objects provides maximum flexibility for the graphics output by leveraging base graphics or packages such as ggplot according to need or preference.
For real world publication quality graphics, it is likely that the outputs will need to be visually tweaked or adjusted.
Basics: How to Use this Package
The package should first be installed using the usual paths (install.packages) from GitHub or elsewhere; the package can then be loaded using (library(morphogram)). Note that morphogram relies on the sf package, which in turn has dependencies on the GDAL system shared libraries.
Depending on the platform, you may need to install these libraries externally to R. Take a look at the information about installing sf here if you haven't used simple features in R before: https://r-spatial.github.io/sf/ .
library(morphogram)
For this vignette, the a data example from the sf package will be used to demonstrate the functions of morphogram. This includes polygons of districts from North Carolina, and data with Sudden Infant Death Syndrome (SIDS) statistics for those counties (see sf documentation for more details, especially: https://r-spatial.github.io/spdep/articles/sids ).
Here the original data is plotted as latitude/longitude format.
library(sf)
nc_original <- sf::st_read(system.file("shape/nc.shp", package="sf"))
#plot(nc_original,axes=T)
The nc data-set has lots of fields, but for simplifying the example visualisations below, we'll just select one parameter (AREA), which is parameter [1].
nc <- nc_original[1]
plot(nc,axes=T)
1. Converge
We are going to compare the different dimensions of the North Carolina counties side-by-side. The first step is to converge the sf features (in this case the county shapes) around a central point of the feature (often a centroid) to 0,0 using a unified coordinate system.
For this we use the converge function. In some instances we might want to transform multiple features around a single centroid for the entire collection of features. The difference is not very obvious, only the x- and y-axis scales have changed because the units have changed from the original set of spatial coordinates (which show up above on degrees) to a non-specified projection using metres.
nc_converged_combined <- converge(nc,by.feature=F)
plot(nc_converged_combined,axes=T)
Since we are specifically interested in comparing the county shapes and sizes within this group, we would like to transform each county individually, by.feature should be TRUE (the default). Here you can see that all of the counties are now overlapping around 0,0.
nc_converged <- converge(nc) # which is the same as: converge(nc,by.feature=T)
# for alpha transparency
require(scales)
plot(nc_converged,axes=T,col=scales::alpha(sf.colors(5),0.1),lwd=0.5)
grid_origin <- st_sf(data.frame(name=1, geom=st_sfc(st_point(c(0.0,0.0), dim = "XY"))))
plot(grid_origin, col="red", pch=3, add=T)
Overlaying all the polygons in the same place is probably not all that meaningful in most cases. But if the number of polygons is smaller the output from converge may give a visual sense of relative sizing:
plot(nc_converged[1:3,],axes=T,col=scales::alpha(sf.colors(3),0.3),lwd=0.5)
2. Distribute: regulargrid method
The next step is to re-distribute the features across space so that they can be compared visually. The distribute function calculates where each feature should be located on the comparative graph.
Currently only one method of distribution is available, a regular grid (regulargrid) based on the maximal bounding box of all features to calculate grid size. This is the default type of distribution algorithm.
par(mar=c(0,0,0,0))
plot(distribute(nc_converged),col=nc_converged$AREA)
The regular grid algorithm has some customizations:
margin, y.mar, x.mar - These can be changed to adjust the margins between features. Note y.mar and x.mar are multiplied by margin to provide the individual x and y margin spacing. To override y.mar and x.mar manually, you must ensure margin=1. The values are in multiples of the bounding box heights or widths respectively. On the second version here, the x.margins are exaggerated which stretches out the distribution horizontally. Absolute dimensions of individual features in the dataset are preserved in both.
par(mar=c(0,0,0,0))
plot(distribute(nc_converged, margin=1.5))
plot(distribute(nc_converged, margin=1, x.mar=2))
scale - Used to adjust the global scale of features (note that this directly affects the spatial dimensions of features after the distribution, so features may begin to overlap when >1, or margins appear to growth when <1). Use the separate scale() function instead if you need to scale features before distribution.
par(mar=c(0,0,0,0))
plot(distribute(nc_converged, scale=0.3))
max.features, cols / rows, dir - These control the dimensions of the grid; max.features is set to 200 by default; the function will only distribute a maximum of these features, or the actual number of features, whichever is less. By default, the direction of the distribution is left-to-right then top-to-bottom (dir="v") and the square root of the features to distribute is used to count the number of columns; the number of columns can be manually adjust using cols. Alternatively, the direction of distribution can be top-to-bottom then left-to-right (dir="h"), in which case rows can be used to manually adjust the number of rows.
par(mar=c(0,0,0,0))
plot(distribute(nc_converged, dir="h", rows=10))
Alignment of distributions
At the outset converge() aligns shapes by their centroids around an origin. In order to align shapes within distributions, we can use the align() function. Shapes can be aligned "top", "bottom", "left", "right" by bounding box, "v[ertical]centroid", "h[orizontal]centroid" by centroid. For example, left alignment will produce this:-
par(mar=c(0,0,0,0))
plot(distribute(align(nc_converged,"left"),dir="h", rows=10))
And top alignment:
par(mar=c(0,0,0,0))
plot(distribute(align(nc_converged,"top"),dir="h", rows=10))
Ordering distributions
Often it is useful to sort the features by some attribute. This is best done before passing to converge() or distribute(). For example to order these county shapes by total area, we simply use a normal order() selection, and here just distribute the first twenty of them. Naturally they can also be coloured by the same or different parameters.
par(mar=c(0,0,0,0))
plot(distribute(nc_converged[rev(order(nc_converged$AREA)),], max.features=20, margin=2),
col = sf.colors(20), border = 'grey')
And probably we want to label the features, otherwise it may be difficult to identify them. Here we can call up the names of the counties and label them with text.
par(mar=c(0,0,0,0))
nc_n2 <- converge(nc_original,by.feature=T)
distr_nc <- distribute(nc_n2[rev(order(nc_n2$AREA)),], max.features=20, margin=2)
# Just plot
plot(st_geometry(distr_nc), col = sf.colors(20, categorical = TRUE), border = 'grey')
# Plot labels based on centroids
#points(st_coordinates(st_centroid(st_geometry(distr_nc))))
text(st_coordinates(st_centroid(st_geometry(distr_nc))),labels=distr_nc$NAME,cex=0.5)
Warning: the distribute function assumes that the input features have been normalized and treats each feature as a separate item. Don't mix them up, otherwise you'll get some really weird plots!...
par(mar=c(0,0,0,0))
plot(st_geometry(distribute(nc_converged_combined)), col = sf.colors(20, categorical = TRUE), border = 'grey')
Exporting distributed features
Naturally, the resulting sf objects can be exported as external spatial data files and the plot can be exported as PDF to allow manual fine tuning in vector graphics editors.
Note, of course, that resulting spatial exports (e.g. shapefiles) have no globally-meaningful CRS (coordinate reference system), and should instead be treated as "local" coordinates.
# Export as shapefile (without CRS)
st_write(distr_nc, "export.shp")
# Export PDF of plot for manual tweaking in other apps
pdf(file ="export.pdf", width=10, height=10)
par(mar=c(0,0,0,0))
nc_n2 <- converge(nc_original,by.feature=T)
distr_nc <- distribute(nc_n2[rev(order(nc_n2$AREA)),], max.features=100, margin=1.8)
plot(st_geometry(distr_nc), col = sf.colors(20, categorical = TRUE), border = 'grey')
text(st_coordinates(st_centroid(st_geometry(distr_nc))),labels=distr_nc$NAME,cex=0.5)
dev.off()
Example: Visualizing the relative size of countries
There are many public sources of spatial polygons with recognisable shapes, such as national boundaries. Here the boundaries of four countries are imported from rnaturalearth, re-convergeed, their geometric area calculated and then distributed as a grid in order of increasing area.
Note this vignette currently does not work due to problem with rnaturalearth
library("rnaturalearth")
uk <- st_as_sf(ne_countries(country = 'united kingdom', scale = 'medium'))["name_en"]
it <- st_as_sf(ne_countries(country = 'italy', scale = 'medium'))["name_en"]
ru <- st_as_sf(ne_countries(country = 'russia', scale = 'medium'))["name_en"]
ni <- st_as_sf(ne_countries(country = 'nigeria', scale = 'medium'))["name_en"]
compare_countries <- rbind(ru,it,uk,ni)
library("lwgeom") # for area calculations
compare_countries$area <- st_area(compare_countries)
compare_countries <- converge(compare_countries)
plot(compare_countries[1], main="Converged country shapes",
col=sf.colors(4, alpha = 0.5, categorical = TRUE), cex.main=0.4, border = 'darkgrey')
plot(distribute(compare_countries[order(compare_countries$area),])[1], main="Re-distributed country shapes (by area)",
col=sf.colors(4, alpha = 0.5, categorical = TRUE), cex.main=0.4, border = 'darkgrey')
library("rnaturalearth")
urban_areas_src <- rnaturalearth::ne_download(scale = 50, type = "urban_areas", load = TRUE, returnclass="sf")
urban_areas <- urban_areas_src[3]
populated_places_src <- rnaturalearth::ne_download(scale = 50, type = "populated_places", load = TRUE, returnclass="sf")
populated_places <- populated_places_src[c("name_en","ISO_A2")]
ua <- st_intersects(urban_areas,populated_places)
ua2 <- st_intersection(populated_places,urban_areas)
compare_urban <- converge(urban_areas)
plot(compare_urban, main="Converged global urban areas",
col=sf.colors(4, alpha = 0.1, categorical = TRUE), cex.main=0.4, border = 'darkgrey')
distr_urban <- distribute(compare_urban[rev(order(compare_urban$area_sqkm)),], max.features = 120, cols=18)
plot(distr_urban,
main="Re-distributed cities",
col=sf.colors(4, alpha = 0.5, categorical = TRUE), cex.main=0.4, border = 'darkgrey')
text(st_coordinates(st_centroid(st_geometry(distr_urban))),labels=distr_urban,cex=0.5)
tcwilkinson/morphogram documentation built on Nov. 20, 2022, 3:45 a.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
knitr::opts_chunk$set( cache= FALSE, collapse = TRUE, comment = "#>", global.par = TRUE )
par(mar=c(0,0,0,0))
Introduction
This package designed to facilitate the construction of infographics which place spatial features side-by-side, for example to compare visually the dimensions of cities, study regions or building sizes in two dimensional space. The package aims to preserve the accurate spatial dimensions of the features but translate their spatial position so that they are distributed visually. Because spatial dimensions are preserved, further spatial analysis (e.g. area calculations) or the additional of scale bars can be accurately plotted.
Functions rely on sf objects as inputs and outputs, hence the primary dependency of this package is sf. Use of sf objects provides maximum flexibility for the graphics output by leveraging base graphics or packages such as ggplot according to need or preference.
For real world publication quality graphics, it is likely that the outputs will need to be visually tweaked or adjusted.
Basics: How to Use this Package
The package should first be installed using the usual paths (install.packages) from GitHub or elsewhere; the package can then be loaded using (library(morphogram)). Note that morphogram relies on the sf package, which in turn has dependencies on the GDAL system shared libraries.
Depending on the platform, you may need to install these libraries externally to R. Take a look at the information about installing sf here if you haven't used simple features in R before: https://r-spatial.github.io/sf/ .
library(morphogram)
For this vignette, the a data example from the sf package will be used to demonstrate the functions of morphogram. This includes polygons of districts from North Carolina, and data with Sudden Infant Death Syndrome (SIDS) statistics for those counties (see sf documentation for more details, especially: https://r-spatial.github.io/spdep/articles/sids ).
Here the original data is plotted as latitude/longitude format.
library(sf) nc_original <- sf::st_read(system.file("shape/nc.shp", package="sf")) #plot(nc_original,axes=T)
The nc data-set has lots of fields, but for simplifying the example visualisations below, we'll just select one parameter (AREA), which is parameter [1].
nc <- nc_original[1] plot(nc,axes=T)
1. Converge
We are going to compare the different dimensions of the North Carolina counties side-by-side. The first step is to converge the sf features (in this case the county shapes) around a central point of the feature (often a centroid) to 0,0 using a unified coordinate system.
For this we use the converge function. In some instances we might want to transform multiple features around a single centroid for the entire collection of features. The difference is not very obvious, only the x- and y-axis scales have changed because the units have changed from the original set of spatial coordinates (which show up above on degrees) to a non-specified projection using metres.
nc_converged_combined <- converge(nc,by.feature=F) plot(nc_converged_combined,axes=T)
Since we are specifically interested in comparing the county shapes and sizes within this group, we would like to transform each county individually, by.feature should be TRUE (the default). Here you can see that all of the counties are now overlapping around 0,0.
nc_converged <- converge(nc) # which is the same as: converge(nc,by.feature=T)
# for alpha transparency require(scales) plot(nc_converged,axes=T,col=scales::alpha(sf.colors(5),0.1),lwd=0.5) grid_origin <- st_sf(data.frame(name=1, geom=st_sfc(st_point(c(0.0,0.0), dim = "XY")))) plot(grid_origin, col="red", pch=3, add=T)
Overlaying all the polygons in the same place is probably not all that meaningful in most cases. But if the number of polygons is smaller the output from converge may give a visual sense of relative sizing:
plot(nc_converged[1:3,],axes=T,col=scales::alpha(sf.colors(3),0.3),lwd=0.5)
2. Distribute: regulargrid method
The next step is to re-distribute the features across space so that they can be compared visually. The distribute function calculates where each feature should be located on the comparative graph.
Currently only one method of distribution is available, a regular grid (regulargrid) based on the maximal bounding box of all features to calculate grid size. This is the default type of distribution algorithm.
par(mar=c(0,0,0,0)) plot(distribute(nc_converged),col=nc_converged$AREA)
The regular grid algorithm has some customizations:
margin,y.mar,x.mar- These can be changed to adjust the margins between features. Notey.marandx.marare multiplied bymarginto provide the individual x and y margin spacing. To overridey.marandx.marmanually, you must ensuremargin=1. The values are in multiples of the bounding box heights or widths respectively. On the second version here, the x.margins are exaggerated which stretches out the distribution horizontally. Absolute dimensions of individual features in the dataset are preserved in both.
par(mar=c(0,0,0,0)) plot(distribute(nc_converged, margin=1.5)) plot(distribute(nc_converged, margin=1, x.mar=2))
scale- Used to adjust the global scale of features (note that this directly affects the spatial dimensions of features after the distribution, so features may begin to overlap when >1, or margins appear to growth when <1). Use the separatescale()function instead if you need to scale features before distribution.
par(mar=c(0,0,0,0)) plot(distribute(nc_converged, scale=0.3))
max.features,cols/rows,dir- These control the dimensions of the grid;max.featuresis set to 200 by default; the function will only distribute a maximum of these features, or the actual number of features, whichever is less. By default, the direction of the distribution is left-to-right then top-to-bottom (dir="v") and the square root of the features to distribute is used to count the number of columns; the number of columns can be manually adjust usingcols. Alternatively, the direction of distribution can be top-to-bottom then left-to-right (dir="h"), in which caserowscan be used to manually adjust the number of rows.
par(mar=c(0,0,0,0)) plot(distribute(nc_converged, dir="h", rows=10))
Alignment of distributions
At the outset converge() aligns shapes by their centroids around an origin. In order to align shapes within distributions, we can use the align() function. Shapes can be aligned "top", "bottom", "left", "right" by bounding box, "v[ertical]centroid", "h[orizontal]centroid" by centroid. For example, left alignment will produce this:-
par(mar=c(0,0,0,0)) plot(distribute(align(nc_converged,"left"),dir="h", rows=10))
And top alignment:
par(mar=c(0,0,0,0)) plot(distribute(align(nc_converged,"top"),dir="h", rows=10))
Ordering distributions
Often it is useful to sort the features by some attribute. This is best done before passing to converge() or distribute(). For example to order these county shapes by total area, we simply use a normal order() selection, and here just distribute the first twenty of them. Naturally they can also be coloured by the same or different parameters.
par(mar=c(0,0,0,0)) plot(distribute(nc_converged[rev(order(nc_converged$AREA)),], max.features=20, margin=2), col = sf.colors(20), border = 'grey')
And probably we want to label the features, otherwise it may be difficult to identify them. Here we can call up the names of the counties and label them with text.
par(mar=c(0,0,0,0)) nc_n2 <- converge(nc_original,by.feature=T) distr_nc <- distribute(nc_n2[rev(order(nc_n2$AREA)),], max.features=20, margin=2) # Just plot plot(st_geometry(distr_nc), col = sf.colors(20, categorical = TRUE), border = 'grey') # Plot labels based on centroids #points(st_coordinates(st_centroid(st_geometry(distr_nc)))) text(st_coordinates(st_centroid(st_geometry(distr_nc))),labels=distr_nc$NAME,cex=0.5)
Warning: the distribute function assumes that the input features have been normalized and treats each feature as a separate item. Don't mix them up, otherwise you'll get some really weird plots!...
par(mar=c(0,0,0,0)) plot(st_geometry(distribute(nc_converged_combined)), col = sf.colors(20, categorical = TRUE), border = 'grey')
Exporting distributed features
Naturally, the resulting sf objects can be exported as external spatial data files and the plot can be exported as PDF to allow manual fine tuning in vector graphics editors.
Note, of course, that resulting spatial exports (e.g. shapefiles) have no globally-meaningful CRS (coordinate reference system), and should instead be treated as "local" coordinates.
# Export as shapefile (without CRS) st_write(distr_nc, "export.shp") # Export PDF of plot for manual tweaking in other apps pdf(file ="export.pdf", width=10, height=10) par(mar=c(0,0,0,0)) nc_n2 <- converge(nc_original,by.feature=T) distr_nc <- distribute(nc_n2[rev(order(nc_n2$AREA)),], max.features=100, margin=1.8) plot(st_geometry(distr_nc), col = sf.colors(20, categorical = TRUE), border = 'grey') text(st_coordinates(st_centroid(st_geometry(distr_nc))),labels=distr_nc$NAME,cex=0.5) dev.off()
Example: Visualizing the relative size of countries
There are many public sources of spatial polygons with recognisable shapes, such as national boundaries. Here the boundaries of four countries are imported from rnaturalearth, re-convergeed, their geometric area calculated and then distributed as a grid in order of increasing area.
Note this vignette currently does not work due to problem with rnaturalearth
library("rnaturalearth") uk <- st_as_sf(ne_countries(country = 'united kingdom', scale = 'medium'))["name_en"] it <- st_as_sf(ne_countries(country = 'italy', scale = 'medium'))["name_en"] ru <- st_as_sf(ne_countries(country = 'russia', scale = 'medium'))["name_en"] ni <- st_as_sf(ne_countries(country = 'nigeria', scale = 'medium'))["name_en"] compare_countries <- rbind(ru,it,uk,ni) library("lwgeom") # for area calculations compare_countries$area <- st_area(compare_countries) compare_countries <- converge(compare_countries) plot(compare_countries[1], main="Converged country shapes", col=sf.colors(4, alpha = 0.5, categorical = TRUE), cex.main=0.4, border = 'darkgrey') plot(distribute(compare_countries[order(compare_countries$area),])[1], main="Re-distributed country shapes (by area)", col=sf.colors(4, alpha = 0.5, categorical = TRUE), cex.main=0.4, border = 'darkgrey')
library("rnaturalearth") urban_areas_src <- rnaturalearth::ne_download(scale = 50, type = "urban_areas", load = TRUE, returnclass="sf") urban_areas <- urban_areas_src[3] populated_places_src <- rnaturalearth::ne_download(scale = 50, type = "populated_places", load = TRUE, returnclass="sf") populated_places <- populated_places_src[c("name_en","ISO_A2")] ua <- st_intersects(urban_areas,populated_places) ua2 <- st_intersection(populated_places,urban_areas) compare_urban <- converge(urban_areas) plot(compare_urban, main="Converged global urban areas", col=sf.colors(4, alpha = 0.1, categorical = TRUE), cex.main=0.4, border = 'darkgrey') distr_urban <- distribute(compare_urban[rev(order(compare_urban$area_sqkm)),], max.features = 120, cols=18) plot(distr_urban, main="Re-distributed cities", col=sf.colors(4, alpha = 0.5, categorical = TRUE), cex.main=0.4, border = 'darkgrey') text(st_coordinates(st_centroid(st_geometry(distr_urban))),labels=distr_urban,cex=0.5)
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.