Nothing
knitr::opts_chunk$set( collapse = TRUE, comment = "#>", fig.height = 10, fig.width = 10 )
library(contactdata)
In this vignette, we are going to try to visualise the age pyramid 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:
age_data <- age_df_countries(countries)
For the visualisation itself, we use the graphical package ggplot2, which offers a large flexibility in terms of customisation:
library(ggplot2) ggplot(age_data, aes(x = population, y = age)) + geom_bar(stat = "identity") + facet_wrap(~country, scales = "free")
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.