data-raw/read_eta_data.R

In pttry/KT162R: Data preparation and graphs for the project KT162 Alueellinen liikkuvuus ja monipaikkaisuus

# Etäkäytöstä tuotujen tietojen lukeminen

# Työperäinen muutto

library(tidyverse)

tyo_muutto_atyyppi <- read.csv2("data-raw/muutto_atyyppi_ulos.csv") %>%
  mutate(aluetyyppi = factor(atyyppi,
                             c("pk", "yokaup", "tkakeskus", "kaup", "kaupms", "ydinms", "ms"),
                             c("PK-seutu", "Muut yliopistokaupungit", "Muut työssäkäyntialueiden keskukset",
                               "Muut kaupungit", "Kaupunkien läh. maaseutu",
                               "Ydinmaaseutu", "Harvaan asuttu maaseutu"))) %>%
  mutate(tyo_muutto_netto = tyo_muutto_tulo - tyo_muutto_lahto,
         tyopaikki_muutto_netto = tyopaikka_muutto_tulo - tyopaikka_muutto_lahto,
         tyollistyy_muutto_netto = tyollistyy_muutto_tulo - tyollistyy_muutto_lahto,
         tmuutto_netto = amuutto_tulo - amuutto_lahto) %>%
  rename(time = vuosi,
         tmuutto_tulo = amuutto_tulo,
         tmuutto_lahto = amuutto_lahto) %>%
  select(-atyyppi)


tyo_muutto_ku <- read.csv2("data-raw/muutto_ku_ulos.csv")


use_data(tyo_muutto_atyyppi, tyo_muutto_ku, overwrite = TRUE)



# Pendelöintitietoja ammateittain

dat_sum_amma3 <- read.csv2("data-raw/dat_sum_amma3.csv") %>%
  mutate(aluetyyppi = factor(atyyppi,
                             c("pk", "yokaup", "tkakeskus", "kaup", "kaupms", "ydinms", "ms"),
                             c("PK-seutu", "Muut yliopistokaupungit", "Muut työssäkäyntialueen keskukset",
                               "Muut kaupungit", "Kaupunkien läh. maaseutu",
                               "Ydinmaaseutu", "Harvaan asuttu maaseutu")),
         aluetyyppi_tp = factor(atyyppi_tp,
                             c("pk", "yokaup", "tkakeskus", "kaup", "kaupms", "ydinms", "ms"),
                             c("PK-seutu", "Muut yliopistokaupungit", "Muut työssäkäyntialueen keskukset",
                               "Muut kaupungit", "Kaupunkien läh. maaseutu",
                               "Ydinmaaseutu", "Harvaan asuttu maaseutu")),
         amma3 = factor(amma3, unique(amma3))) %>%
  select(-X, - atyyppi, - atyyppi_tp) %>%
  rename(time = vuosi)

use_data(dat_sum_amma3, overwrite = TRUE)

# Koko maan muuttotietoja


dat_muutto_aikasarja_km <- read.csv2("data-raw/muutto_aikasarja_km.csv") %>%
  select(-X) %>%
  rename(time = vuosi)

use_data(dat_muutto_aikasarja_km, overwrite = TRUE)