library(dplyr)
library(readr)
library(forcats)
cols(
etuus = col_character(),
vuosi = col_integer(),
aikatyyppi = col_character(),
kuukausi = col_integer(),
viikko = col_integer(),
paiva = col_date(),
viikonpaiva = col_character(),
alue = col_character(),
ikaluokka = col_character(),
sukupuoli = col_character(),
saapuneet_hakemukset = col_double(),
data = col_character(),
saajat_kaikki = col_double(),
saajat_uudet = col_double(),
saajakotitaloudet_kaikki = col_double(),
saajakotitaloudet_uudet = col_double(),
saajaruokakunnat_kaikki = col_double(),
saajaruokakunnat_uudet = col_double(),
updated = col_datetime()
) -> data_cols
dat <- readr::read_csv("https://raw.githubusercontent.com/kelaresearchandanalytics/koronamittarit/master/docs/data/data_etuudet.csv",
col_types = data_cols) %>%
# releveloidaan ikäluokka
mutate(ikaluokka = factor(ikaluokka),
ikaluokka = fct_relevel(ikaluokka, c("kaikki","alle 25"))) %>%
# Etuuksien järjestys
mutate(etuus = factor(etuus, levels = c("Työttömyysturva",
"Yleinen asumistuki",
"Perustoimeentulotuki",
"Sairauspäiväraha",
"Tartuntatautipäiväraha",
"Epidemiatuki")),
vuosi = factor(vuosi)) %>%
arrange(etuus,viikko,paiva)
head(dat)
# A tibble: 6 × 19
etuus vuosi aikat…¹ kuuka…² viikko paiva viiko…³ alue ikalu…⁴ sukup…⁵
<fct> <fct> <chr> <int> <int> <date> <chr> <chr> <fct> <chr>
1 Työttöm… 2020 paiva 1 1 2020-01-01 keskiv… Koko… kaikki kaikki
2 Työttöm… 2020 paiva 1 1 2020-01-02 torstai Koko… kaikki kaikki
3 Työttöm… 2020 paiva 1 1 2020-01-03 perjan… Koko… kaikki kaikki
4 Työttöm… 2020 paiva 1 1 2020-01-04 lauant… Koko… kaikki kaikki
5 Työttöm… 2020 paiva 1 1 2020-01-05 sunnun… Koko… kaikki kaikki
6 Työttöm… 2021 paiva 1 1 2021-01-04 maanan… Koko… kaikki kaikki
# … with 9 more variables: saapuneet_hakemukset <dbl>, data <chr>,
# saajat_kaikki <dbl>, saajat_uudet <dbl>, saajakotitaloudet_kaikki <dbl>,
# saajakotitaloudet_uudet <dbl>, saajaruokakunnat_kaikki <dbl>,
# saajaruokakunnat_uudet <dbl>, updated <dttm>, and abbreviated variable
# names ¹aikatyyppi, ²kuukausi, ³viikonpaiva, ⁴ikaluokka, ⁵sukupuoli