In pttry/pttrobo: Automation of PTT data

knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)

library(robonomistClient)
library(pttrobo)
library(tidyverse)
library(lubridate)
library(pttdatahaku)
library(statfitools)


devtools::load_all()


# colnames(ennuste_data)
start_time <- "2014-01-01"

PTT Kevät 2022 ennustekuvat

Venäjän osuus

ptt_data_robo(
  "tulli/uljas_sitc",
  dl_filter = list(
    "Tavaraluokitus SITC2" = c("25", "63", "64"),
    "Maa" = c("AA", "RU"),
    "Suunta" = c("Vienti määrämaittain"),
    "Indikaattorit" = "Tilastoarvo (euro)"
  )
) |> 
  filter(time >= start_time) |> 
  filter_recode(
    suunta = c("Vieni" = "Vienti määrämaittain"),
    tavaraluokitus_sitc2 = c(
     "Massa" = "25 (2002--.) Paperimassa",
     "Puutuotteet" = "63 (2002--.) Puu- ja korkkituotteet",
     "Paperi ja kartonki" = "64 (2002--.) Paperi ja pahvi sekä tuotteet niistä"
    )
  ) |> 
  mutate(maa = statfitools::extract_code(maa)) |> 
  spread(maa, value) |> 
  mutate(value = 100 * RU / AA) |> 
  ptt_plot(
    grouping = tavaraluokitus_sitc2,
              title = "Venäjän osuus viennistä",
              subtitle = "%",
              caption = "Lähde: Tulli, PTT") |> 
   ptt_plot_create_widget()