knitr::opts_chunk$set( collapse = TRUE, comment = "#>" )
library(contactdata)
Note that this package does not make any geopolitical statement and only provides the data as it has been published.
The data included in this package comes from two articles
Kiesha Prem, Alex R. Cook, Mark Jit, Projecting social contact matrices in 152 countries using contact surveys and demographic data, PLoS Comp. Biol. (2017), https://doi.org/10.1371/journal.pcbi.1005697.
and
Kiesha Prem, Kevin van Zandvoort, Petra Klepac, Rosalind M. Eggo, Nicholas G. Davies, CMMID COVID-19 Working Group, Alex R. Cook, Mark Jit, Projecting contact matrices in 177 geographical regions: An update and comparison with empirical data for the COVID-19 era, PLoS Comp. Biol. (2021), https://doi.org/10.1371/journal.pcbi.1009098.
and as indicated by the titles, not all regions were included.
The full list is available with the list_countries()
function:
(all_countries_2017 <- list_countries(data_source = 2017)) (all_countries_2020 <- list_countries(data_source = 2020))
Below is a map that may help you find out which countries are absent from the dataset:
library(ggplot2) wrld <- map_data("world") wrld$region <- countrycode::countryname(wrld$region) wrld$included <- "Not included" wrld$included[wrld$region %in% all_countries_2020] <- "2020" wrld$included[wrld$region %in% all_countries_2017] <- "2017 & 2020" ggplot(wrld, aes(long, lat, group = group, fill = included)) + geom_polygon() + coord_equal() + theme_bw()
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.