library(owidR)    #- devtools::install_github("piersyork/owidR")
owid_search("human rights")
rights <- owidR::owid("Human rights index vs. electoral democracy index")
rights <- owidR::owid(1)
rights <- owid("human-rights-protection")
owid_plot(rights)


owid_search()
owidR::owid_plot()
owid_search("emissions")
emissions <- owid("per-capita-ghg-emissions")


human_rights <- owid("human-rights-scores")

# use ggplot2 instead
library(ggplot2)
library(dplyr)

human_rights |>
  filter(entity == "United Kingdom") |>
  ggplot(aes(year, `Human rights protection`)) +
  geom_line()