## ----setup, include = FALSE---------------------------------------------------
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)

## ----load---------------------------------------------------------------------
library(pressfreedom.data)

data(rwb_standardized)
dplyr::glimpse(rwb_standardized)

## ----availability-------------------------------------------------------------
# Years available
unique(sort(rwb_standardized$year_n))

# Number of countries per year
rwb_standardized |>
  dplyr::group_by(year_n) |>
  dplyr::summarise(
    n_countries = dplyr::n_distinct(country_en),
    .groups = "drop"
  )