Quality of Government instituutin 2019 data ja rqog-paketin päivitys

research
data
R
graphics
dataviz
Tekijä

Markus Kainu

Julkaistu

3. helmikuuta 2019

Göteborgin yliopiston Quality of Government instituutti julkisti kuun vaihteessa uudet datansa. Datat ovat kattavia kokoelmia erilaisista maatason indikaattoreista. Päivitin samaan syssyyn ylläpitämäni R-paketin rqog, jonka avulla voit käyttää datoja R:ssä. Paketin voit asentaan Github:sta devtools-paketin avulla komennolla devtools::install_github("ropengov/rqog").

Paketin avulla pääset käsiksi kolmeen datakokonaisuuteen basic, standard ja oecd, joista kaikista on sekä poikkileikkausaineisto (cross-sectional) että aikasarja-aineisto (time-series). Eri datoissa on eri määrä indikaattoreita.

</> 
library(rqog)
library(dplyr)
library(glue)
library(ggplot2)
library(hrbrthemes)
tribble(
~data, ~indikaattoreita,
"basic poikkileikkaus",length(unique(rqog::meta_basic_cs_2019$code)),
"basic aikasarja",length(unique(rqog::meta_basic_ts_2019$code)),

"standard poikkileikkaus",length(unique(rqog::meta_std_cs_2019$code)),
"standard aikasarja",length(unique(rqog::meta_std_ts_2019$code)),

"oecd poikkileikkaus",length(unique(rqog::meta_oecd_cs_2019$code)),
"oecd aikasarja",length(unique(rqog::meta_oecd_ts_2019$code))
) %>% knitr::kable()
data indikaattoreita
basic poikkileikkaus 409
basic aikasarja 293
standard poikkileikkaus 1983
standard aikasarja 2199
oecd poikkileikkaus 1116
oecd aikasarja 991

Datojen avulla voi tutkia monenlaisia kysymyksiä kuten vaikka bruttokansantuotteen ja taloudellisen eriarvoisuuden välistä yhteyttä.

Aluksi etsitään sopivat indikaattorit.

</> 
meta_oecd_ts_2019 %>% 
  filter(grepl("GDP", name, ignore.case = TRUE))
# A tibble: 42 × 5
   code               name                                     value label class
   <chr>              <chr>                                    <dbl> <chr> <chr>
 1 gle_cgdpc          GDP per Capita (Current Prices)             NA <NA>  nume…
 2 gle_gdp            Real GDP (2005)                             NA <NA>  nume…
 3 gle_rgdpc          Real GDP per Capita (2005)                  NA <NA>  nume…
 4 mad_gdppc          Real GDP per Capita                         NA <NA>  nume…
 5 oecd_evogdp_t1     Real GDP growth                             NA <NA>  nume…
 6 oecd_govdebt_t1    Adjusted general government debt-to-GDP…    NA <NA>  nume…
 7 oecd_govdebt_t2    Adjusted general government debt-to-GDP…    NA <NA>  nume…
 8 oecd_prodincom_g1  GDP per hour worked                         NA <NA>  nume…
 9 oecd_prodincom_g2a Levels of GDP per capita & labour produ…    NA <NA>  nume…
10 oecd_prodincom_g2b Levels of GDP per capita & labour produ…    NA <NA>  nume…
# … with 32 more rows
</> 
meta_oecd_ts_2019 %>% 
  filter(grepl("gini", name, ignore.case = TRUE))
# A tibble: 1 × 5
  code     name                             value label class  
  <chr>    <chr>                            <dbl> <chr> <chr>  
1 wdi_gini GINI index (World Bank estimate)    NA <NA>  numeric

Tehdään sitten analyysi piirtämällä “aika-hajontakuvio”, jossa vaaka-akselilla on bruttokansantuote henkilöä kohden (gle_cgdpc) ja pystyakselilla taloudellista eriarvoisuutta kuvaava gini-kerroin (wdi_gini). Valitaan kaikista OECD-maista Pohjoismaat sekä Amerikan Yhdysvallat. Rajataan tarkastelu vuodesta 1980 eteenpäin.

</> 
oecd_ts <- rqog::read_qog(which_data = "oecd", year = "2019", data_type = "time-series")
# 
oecd_ts %>% 
  select(cname,year,gle_cgdpc,wdi_gini) %>% 
  filter(year >= 1980,
         cname %in% c("Finland","Denmark","Iceland","Sweden","Norway","United States")) %>% 
  na.omit() %>% 
ggplot(., aes(x = gle_cgdpc, y = wdi_gini, label = year)) +
  geom_point(color = alpha("white", 1/3))  + 
  geom_path(color = alpha("white", 1/3)) + 
  geom_text(size = 3, family = "Roboto Condensed", nudge_y = .1) +
  theme(legend.position = "none") +
  facet_wrap(~cname, scales = "free") +
  geom_smooth(method = "lm", se = FALSE) +
  theme_ft_rc() +
  labs(title = "Bruttokansantuote ja taloudellinen eriarvoisuus \nvalituissa OECD maissa 1990 - 2011", 
       caption = "Data: Quality of Government Instititute 2019")

Jätetään tulkinta lukijalle. Todennäköisesti sekä kysymystä että analyysiä on syytä tarkentaa.

Uudelleenkäyttö

CC BY 4.0

Viittaus

BibTeX-viittaus:
@online{kainu2019,
  author = {Markus Kainu and Markus Kainu},
  title = {Quality of Government instituutin 2019 data ja rqog-paketin
    päivitys},
  date = {2019-03-02},
  url = {https://markuskainu.fi/posts/2019-02-03-rqog-paivitys},
  langid = {fi}
}
Viitatkaa tähän teokseen seuraavasti:
Markus Kainu, and Markus Kainu. 2019. “Quality of Government instituutin 2019 data ja rqog-paketin päivitys.” March 2, 2019. https://markuskainu.fi/posts/2019-02-03-rqog-paivitys.