# List of included countries

#### Hugo Gruson

#### 2021-02-18

    library(contactdata)

The data included in this package comes from the article

> 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 as indicated by the title, not all countries were included.

The full list is available with the `list_countries()` function:

    (all_contacts <- list_countries())
    #>   [1] "Albania"              "Algeria"              "Andorra"
    #>   [4] "Antigua & Barbuda"    "Argentina"            "Armenia"
    #>   [7] "Australia"            "Austria"              "Azerbaijan"
    #>  [10] "Bahamas"              "Bahrain"              "Bangladesh"
    #>  [13] "Belarus"              "Belgium"              "Belize"
    #>  [16] "Benin"                "Bhutan"               "Bolivia"
    #>  [19] "Bosnia"               "Botswana"             "Brazil"
    #>  [22] "Brunei"               "Bulgaria"             "Burkina Faso"
    #>  [25] "Cape Verde"           "Cambodia"             "Cameroon"
    #>  [28] "Canada"               "Chile"                "China"
    #>  [31] "Colombia"             "Congo - Brazzaville"  "Costa Rica"
    #>  [34] "Croatia"              "Cyprus"               "Czechia"
    #>  [37] "Denmark"              "Dominican Republic"   "Ecuador"
    #>  [40] "Egypt"                "El Salvador"          "Estonia"
    #>  [43] "Ethiopia"             "Fiji"                 "Finland"
    #>  [46] "France"               "Georgia"              "Germany"
    #>  [49] "Ghana"                "Greece"               "Guatemala"
    #>  [52] "Guinea"               "Guyana"               "Haiti"
    #>  [55] "Honduras"             "Hong Kong"            "Hungary"
    #>  [58] "Iceland"              "India"                "Indonesia"
    #>  [61] "Iran"                 "Iraq"                 "Ireland"
    #>  [64] "Israel"               "Italy"                "Jamaica"
    #>  [67] "Japan"                "Jordan"               "Kazakhstan"
    #>  [70] "Kenya"                "Kiribati"             "Kuwait"
    #>  [73] "Kyrgyzstan"           "Laos"                 "Latvia"
    #>  [76] "Lebanon"              "Lesotho"              "Liberia"
    #>  [79] "Lithuania"            "Luxembourg"           "Malaysia"
    #>  [82] "Maldives"             "Malta"                "Mauritania"
    #>  [85] "Mauritius"            "Mexico"               "Monaco"
    #>  [88] "Mongolia"             "Montenegro"           "Morocco"
    #>  [91] "Mozambique"           "Namibia"              "Nepal"
    #>  [94] "Netherlands"          "New Zealand"          "Nicaragua"
    #>  [97] "Niger"                "Nigeria"              "Oman"
    #> [100] "Pakistan"             "Panama"               "Paraguay"
    #> [103] "Peru"                 "Philippines"          "Poland"
    #> [106] "Portugal"             "Qatar"                "South Korea"
    #> [109] "Romania"              "Russia"               "Rwanda"
    #> [112] "St. Lucia"            "Samoa"                "São Tomé & Príncipe"
    #> [115] "Saudi Arabia"         "Senegal"              "Serbia"
    #> [118] "Seychelles"           "Sierra Leone"         "Singapore"
    #> [121] "Slovakia"             "Slovenia"             "Solomon Islands"
    #> [124] "South Africa"         "Spain"                "Sri Lanka"
    #> [127] "Suriname"             "Sweden"               "Switzerland"
    #> [130] "Syria"                "Taiwan"               "Tajikistan"
    #> [133] "North Macedonia"      "Thailand"             "Timor-Leste"
    #> [136] "Tonga"                "Tunisia"              "Turkey"
    #> [139] "Uganda"               "Ukraine"              "United Arab Emirates"
    #> [142] "UK"                   "Tanzania"             "US"
    #> [145] "Uruguay"              "Uzbekistan"           "Vanuatu"
    #> [148] "Venezuela"            "Vietnam"              "Yemen"
    #> [151] "Zambia"               "Zimbabwe"

Below is a map that may help you find out which countries are absent from the dataset:

    library(ggplot2)

    wlrd <- map_data("world")
    wlrd$region <- countrycode::countryname(wlrd$region)

    wlrd$included <- wlrd$region %in% all_contacts

    ggplot(wlrd, aes(long, lat, group = group, fill = included)) +
      geom_polygon() +
      coord_equal() +
      theme_bw()

Note that this package does not make any geopolitical statement and only provides the data as it has been published.