vignettes/Introduction.md

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

title: "Introduction to statfitools" author: "Janne Huovari" date: "2025-01-24" output: rmarkdown::html_vignette: keep_md: true vignette: > %\VignetteIndexEntry{Vignette Title} %\VignetteEngine{knitr::rmarkdown} %\VignetteEncoding{UTF-8}

Aggregate municipality data

Load packages

library(statfitools)
library(dplyr)

## 
## Attaching package: 'dplyr'

## The following objects are masked from 'package:stats':
## 
##     filter, lag

## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union

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.