PKW-Neuzulassungen 2010-2023 nach Antriebsart

pkw.R

library(tidyverse)
library(ggstream)
library(pdftools)
library(wesanderson)
library(ggpp)

raw <- pdf_text(pdf = "https://www.statistik.at/fileadmin/pages/77/Pressemappe_2023.pdf")

pkw <- unlist(strsplit(raw[15], split = "\n")) |> 
  str_trim(side = "left") |> 
  as.data.frame() |> 
  filter(row_number() %in% 7:30) |> 
  separate(col = 1, into = c("Jahr", paste0("S", 1:20)), 
           sep = "\\s+\\s+") |> 
  select(Jahr, Benzin = S2, Diesel = S4, Elektro = S6, Sonstige = S8) |> 
  mutate(across(everything(), ~as.numeric(str_remove_all(.," ")))) |> 
  pivot_longer(cols = -Jahr, names_to = "Kraftstoff", values_to = "Anzahl")

pal <- wes_palette("Darjeeling1")[1:4]
labpos1 <- pkw |> filter(Jahr == 2010) |> summarise(pos = sum(Anzahl)/2) |> pull()
labpos2 <- pkw |> filter(Jahr == 2023) |> summarise(pos = sum(Anzahl)/2) |> pull()

pkw |> filter(Jahr >= 2010) |> 
  ggplot(aes(x = Jahr, y = Anzahl, group = Kraftstoff, fill = Kraftstoff)) +
  geom_stream(type = "mirror", bw = .9, extra_span = 0.03) +
  geom_stream_label(aes(label = Kraftstoff), family = "Alfa Slab One",
                    color = "white", size = c(8,9,3.5,4), 
                    hjust = c(-0.7,-1.3,0.6,0.9),
                    vjust = c(1.5,-1,0.5,0.9)) +
  geom_text(data = pkw |> filter(Jahr == 2010, Kraftstoff %in% c("Benzin", "Diesel")),
            aes(x = 2009.8, y = Anzahl, label = round(Anzahl/1000, 0), 
                color = Kraftstoff),
            angle = 90, family = "Roboto Condensed", fontface = "bold",
            position = position_stacknudge(vjust = 0.5, y = -labpos1)) +
  geom_text(data = pkw |> filter(Jahr == 2023),
            aes(x = 2023.2, y = Anzahl, label = round(Anzahl/1000, 0),
                color = Kraftstoff),
            angle = 270, family = "Roboto Condensed", fontface = "bold",
            position = position_stacknudge(vjust = 0.5, y = -labpos2)) +
  scale_fill_manual(values = pal) +
  scale_color_manual(values = pal) +
  scale_x_continuous(breaks = seq(2010,2022,4), position = "top") +
  scale_y_continuous(expand = c(0,0)) +
  labs(x = NULL, y = NULL,
       title = "Elektro überholt Diesel bei Auto-Neuzulassungen",
       subtitle = "PKW-Neuzulassungen in Tausend, 2010-2023",
       caption = "Anm.: Sonstige = Gas, Hybrid, Wasserstoff, etc.\nDaten: Statistik Austria. Grafik: @matschnetzer") +
  theme_minimal(base_family = "Roboto Condensed") +
  theme(legend.position = "none",
        plot.title = element_text(family = "Alfa Slab One", size = 16),
        plot.subtitle = element_text(family = "Roboto Condensed", size = 11,
                                     margin = margin(b = 1, unit = "lines")),
        plot.caption = element_text(family = "Roboto Condensed", size = 8,
                                    margin = margin(t = 1, unit = "lines")),
        axis.text.y = element_blank(),        
        panel.grid.minor = element_blank(),
        panel.grid.major.y = element_blank(),
        panel.grid.major.x = element_line(linewidth = 0.2, color = "gray80"))

ggsave("pkw.png", width = 8, height = 4, dpi = 320, bg = "white")