In pttry/statfitools: Helper Functions for Working with the Data from Statistics Finland

Aggregate municipality data

Load packages

library(statfitools)
library(dplyr)
library(ggplot2)
library(forcats)

Get data from the Statistics Finland and clean variable names and time variable.

# 115b -- Väestö alueen, pääasiallisen toiminnan, sukupuolen, iän ja vuoden mukaan, 1987-2017


dat_ku <- pxweb::pxweb_get_data(
    url = "https://pxdata.stat.fi/PxWeb/api/v1/fi/StatFin/tyokay/statfin_tyokay_pxt_115b.px",
    query = 
      list("Alue"=c("*"),
       "Pääasiallinen toiminta"=c("11"),
       "Sukupuoli"=c("SSS"),
       "Ikä"=c("SSS"),
       "Vuosi"=c("*"),
       "Tiedot"=c("vaesto"))) %>% 
  clean_times() |> 
  clean_names(rename_values = TRUE, to_lower = FALSE) 

Aggregate data using classification "Keskuskuntaryhma" included in the package.

dat_keskuskunta <- dat_ku %>% 
  # Remove whole country group
  filter(Alue != "KOKO MAA") %>%
  # Join with codes. Codes are not included in the data.
  mutate(ku_code = sf_name2code(Alue, class = "kunta", year = 2019)) %>%  
  left_join(keskuskuntaryhma_key, by = c(ku_code = "Knro")) %>%
  # Aggregate
  group_by(Keskusryhma, time, Paaasiallinen_toiminta) %>% 
  summarise(values = sum(values, na.rm = TRUE)) %>% 
  ungroup()

Plot the data. Groups are ordered based on last value.

ggplot(dat_keskuskunta, 
       aes(time, values/1000, 
           colour = fct_reorder2(Keskusryhma, time, values))) +
  geom_line(size = 1.5) +
  guides(colour = guide_legend("")) +
  ylab("1000 työllistä") + xlab("") +
  theme_light()

pttry/statfitools documentation built on Feb. 2, 2025, 1:50 a.m.