The hardware and bandwidth for this mirror is donated by METANET, the Webhosting and Full Service-Cloud Provider.
If you wish to report a bug, or if you are interested in having us mirror your free-software or open-source project, please feel free to contact us at mirror[@]metanet.ch.
In this vignette, we are going to try to visualise the contact matrices for 9 Western Europe countries. The list of these countries is:
countries <- c("Portugal", "Spain", "Italy", "France", "Ireland", "Belgium", "Luxembourg", "Germany", "Switzerland")
We can get the contact data for all these countries in a single function call with:
For the visualisation itself, we use the graphical package ggplot2, which offers a large flexibility in terms of customisation:
library(ggplot2)
ggplot(contact_data, aes(x = age_from, y = age_to, fill = contact)) +
geom_tile() +
facet_wrap(~country) +
coord_equal()
The default colour palette and theme are not very suitable for our data but we can easily edit them with:
ggplot(contact_data, aes(x = age_from, y = age_to, fill = contact)) +
geom_tile() +
facet_wrap(~country) +
coord_equal() +
theme(axis.text.x = element_text(angle = 90, vjust = 0.5, hjust = 1)) +
scale_fill_viridis_c()
You can also visualise the contact data at a specific
location
, e.g. at school:
ggplot(contact_data, aes(x = age_from, y = age_to, fill = contact)) +
geom_tile() +
facet_wrap(~country) +
coord_equal() +
theme(axis.text.x = element_text(angle = 90, vjust = 0.5, hjust = 1)) +
scale_fill_viridis_c()
These binaries (installable software) and packages are in development.
They may not be fully stable and should be used with caution. We make no claims about them.