y-akselin tick labelit menevät rikki aplot_lines - funktion kuvissa

[pskinnun]

Jostain syystä aplot_lines-funktiolla tehdyissä kuvissa y-akselin labelit menee rikki, ja sinne ilmestyy duplikaatti-arvoja .

# Tämä menee oikein
ptt_data_robo_l("StatFin/hin/mthi/statfin_mthi_pxt_11fp.px") |> 
  filter(str_detect( maatalouden_tuottajahintaindeksin_luokitus, 
                      "Siat|Nauta|Broilerit|Muu siipikarja|Maito|Kananmunat")) |> 
  filter(tiedot =="Maatalouden tuottajahintaindeksi (2015=100)") |> 
  aplot_lines(x = time, 
              y = value, 
              colour = maatalouden_tuottajahintaindeksin_luokitus)

# Ei toimi, y-akselin labelit menee rikki ?  
ptt_data_robo_l("StatFin/hin/mthi/statfin_mthi_pxt_11fp.px") |> 
  filter(time >= lubridate::as_date("2015-1-1")) |>  
  filter(str_detect( maatalouden_tuottajahintaindeksin_luokitus,"Siat|Nauta|Broilerit|Muu siipikarja|Maito|Kananmunat")) |> 
  filter(tiedot =="Maatalouden tuottajahintaindeksi (2015=100)") |>  
  aplot_lines(x = time, 
              y = value, 
              colour = maatalouden_tuottajahintaindeksin_luokitus)

# y-akselin labelit piirtyy oikein
ptt_data_robo_l("StatFin/hin/mthi/statfin_mthi_pxt_11fp.px") |> 
  #filter(time >= lubridate::as_date("2015-1-1")) |>  
  filter(str_detect( maatalouden_tuottajahintaindeksin_luokitus,"Siat|Nauta|Broilerit|Muu siipikarja|Maito|Kananmunat")) |> 
  filter(tiedot =="Maatalouden tuottajahintaindeksi (2015=100)") |>  
  aplot_lines(x = time, 
              y = value, 
              colour = maatalouden_tuottajahintaindeksin_luokitus)

# y-akselin labelit piirtyy oikein
ptt_data_robo_l("StatFin/hin/mthi/statfin_mthi_pxt_11fp.px") |> 
  filter(time >= lubridate::as_date("2015-1-1")) |>  
  #filter(str_detect( maatalouden_tuottajahintaindeksin_luokitus,"Siat|Nauta|Broilerit|Muu siipikarja|Maito|Kananmunat")) |> 
  filter(tiedot =="Maatalouden tuottajahintaindeksi (2015=100)") |>  
  aplot_lines(x = time, 
              y = value, 
              colour = maatalouden_tuottajahintaindeksin_luokitus)

# Ei toimi, y-akselin labelit väärin  
ptt_data_robo_l("StatFin/hin/khi/kk/statfin_khi_pxt_11xb.px") |> 
  filter(hyodyke %in%  
                  c( "01.1.2.2 Sianliha",
                     "01.1.2.1 Naudan- ja vasikanliha",
                     "01.1.2.4 Siipikarjan liha" ),
         tiedot == "Indeksipisteluku") |> 
  aplot_lines(x = time, 
              y = value, 
              colour = hyodyke)

[pskinnun]

Tässä varmaan tapahtuu jokin pyöristys välillä tickien arvoissa jos y-akselin arvot on suurempia kuin 100

# Ei toimi, y-akselin labelit menee rikki ?
ptt_data_robo_l("StatFin/hin/mthi/statfin_mthi_pxt_11fp.px") |>
  filter(time >= lubridate::as_date("2015-1-1")) |>
  filter(str_detect( maatalouden_tuottajahintaindeksin_luokitus,"Siat|Nauta|Broilerit|Muu siipikarja|Maito|Kananmunat")) |>
  filter(tiedot =="Maatalouden tuottajahintaindeksi (2015=100)") |>
  aplot_lines(x = time,
              y = value,
              colour = maatalouden_tuottajahintaindeksin_luokitus)

# y-akseli piirtyy oikein
ptt_data_robo_l("StatFin/hin/mthi/statfin_mthi_pxt_11fp.px") |>
  filter(time >= lubridate::as_date("2015-1-1")) |>
  filter(str_detect( maatalouden_tuottajahintaindeksin_luokitus,"Siat|Nauta|Broilerit|Muu siipikarja|Maito|Kananmunat")) |>
  filter(tiedot =="Maatalouden tuottajahintaindeksi (2015=100)") |>
  mutate(value = value -50) |> 
  aplot_lines(x = time,
              y = value,
              colour = maatalouden_tuottajahintaindeksin_luokitus)
´´´

[pskinnun]

Muutin pyöristysarvoja y-akselin tickseille. Vaikutti korjaavan.