search

pttry / pttrobo

Automation of PTT data
https://pttry.github.io/pttrobo/
Other
1 stars 0 forks source link

aplot_trends() -trendiplottaus ei toimi rangesliderilla #20

Closed pskinnun closed 1 year ago

pskinnun commented 2 years ago

Jos käyttää rangeslideria tai zerolinea aplot_trends -funktiossa niin trendin laskeminen epäonnistuu. Trendi lasketaan statfitools-paketilla, mutta näyttää että X13-funktio ei toimi koska annetaan ylimääräisiä nimi-arvo pareja.

#Trend with X13 fails with rangeslider,zeroline

# working
ptt_data_robo("StatFin/kan/ntp/statfin_ntp_pxt_132h.px") |>
  filter_recode(
    taloustoimi = c("BKT" = "B1GMH Bruttokansantuote markkinahintaan",
                    "Yksityinen kulutus" = "P3KS14_S15 Yksityiset kulutusmenot, menona"),
    tiedot = c("Alkuperäinen sarja, viitevuosi 2015, miljoonaa euroa")) |>
  aplot_trends(colour = taloustoimi,
              title = "Vienti ja tuonti",
              subtitle = "%, volyymin muutos",
              source = "Tilastokeskus")
# X13 fails
ptt_data_robo("StatFin/kan/ntp/statfin_ntp_pxt_132h.px") |>
  filter_recode(
    taloustoimi = c("BKT" = "B1GMH Bruttokansantuote markkinahintaan",
                    "Yksityinen kulutus" = "P3KS14_S15 Yksityiset kulutusmenot, menona"),
    tiedot = c("Alkuperäinen sarja, viitevuosi 2015, miljoonaa euroa")) |>
  aplot_trends(colour = taloustoimi,
               title = "Vienti ja tuonti",
               subtitle = "%, volyymin muutos",
               source = "Tilastokeskus",
               rangeslider = T,
               start_time = as.Date("2010-1-1"))

# X13 fails
ptt_data_robo("StatFin/kan/ntp/statfin_ntp_pxt_132h.px") |>
  filter_recode(
    taloustoimi = c("BKT" = "B1GMH Bruttokansantuote markkinahintaan",
                    "Yksityinen kulutus" = "P3KS14_S15 Yksityiset kulutusmenot, menona"),
    tiedot = c("Alkuperäinen sarja, viitevuosi 2015, miljoonaa euroa")) |>
  aplot_trends(colour = taloustoimi,
               title = "Vienti ja tuonti",
               subtitle = "%, volyymin muutos",
               source = "Tilastokeskus",
              zeroline =T)

# Warning messages:
# 1: Problem while computing `value = statfitools::trend_series(value, time, ...)`.
# i X-13 failed
# i The warning occurred in group 1: taloustoimi = BKT. 
# 2: Problem while computing `value = statfitools::trend_series(value, time, ...)`.
# i X-13 failed
# i The warning occurred in group 2: taloustoimi = Yksityinen kulutus.
jhuovari commented 2 years ago

Joo, se mun huonoa suunnittelua. ... laittaa parametrejä trend_series:lle ja jos tulee uusia parametrejä ne menee sinne. Täytyy laittaa se zeroline explisiittisesti ptt_plot:lle, mutta parempi olisi ollut antaa trend_seriesin parametrit listana tai jotain. Mutta koitan korjata.