Beitsefer

Seiten:

Asya Abdullah, Asma Mohamed Abdalla, Misstress Barbara, Florence Cushman, Asma Jilani Jahangir, Zeynep Tufekci.

Grafiken (geplottet mit R - GGPLOT2):

Suizidrate:

Grafik <- df2 %>%
  ggplot(aes(Jahr)) +
  geom_line(aes(y = männlich, linetype = "männlich"), color = "black") +
  geom_line(aes(y = weiblich, linetype = "weiblich"), color = "blue") +
  geom_line(aes(y = Insgesamt, linetype = "Insgesamt"), color = "red") +
  geom_point(aes(y = männlich, color = "männlich"), size = 0.3) + 
  geom_point(aes(y = weiblich, color = "weiblich"), size = 0.3) +
  geom_point(aes(y = Insgesamt, color = "Insgesamt"), size = 0.3) +
  labs(title = "Anzahl der Suizidsterbefälle in Deutschland von 1980 bis 2021",
       caption = "nach Angaben des statistischen Bundesamtes (Destatis), 2022 | Stand: 24.02.2023", # fügt die Quellenangabe hinz
       x = "Jahr",
       y = "Zahl der Fälle") +
  scale_linetype_manual(name = "Legende",
                        values = c("männlich" = "dotdash", "weiblich" = "dashed", "Insgesamt" = "solid"),
                        guide = guide_legend(override.aes = list(color = c("red", "black", "cornflowerblue")))) +
  scale_color_manual(name = "Legende", values = c("männlich" = "black", "weiblich" = "cornflowerblue", "Insgesamt" = "red")) +
  theme_bw() +
  theme(panel.grid.major = element_line(size = 0.2, color = "darkseagreen4"), 
        panel.grid.minor = element_line(size = 0.2, color = "grey"),
        plot.title = element_text(family = "Helvetica", face = NULL),
        plot.caption = element_text(hjust = 0, size = 8, margin = margin(t = 10, unit = "pt")))+
  scale_y_continuous(breaks = seq(0, 18711, 2000), 
                     minor_breaks = seq(0, 18711, 2000))

Grafik1 <- Grafik + annotate("text",
                             x = as.Date('01/01/2008', "%m/%d/%Y"),
                             y = c(14300),
                             label = c("2008: Jahr der Finanzkrise"))

Grafik2 <- Grafik1 + annotate("segment",
                              x = as.Date('01/01/2008', "%m/%d/%Y"),
                              xend = as.Date('01/01/2008', "%m/%d/%Y"),
                              y = 0,
                              yend = 14000,
                              color = "burlywood1",
                              size = 0.2)

Verkehrsunfälle:

Grafik2 <- df2 %>%
  ggplot(aes(Jahr)) +
  geom_line(aes(y = PolizeilicherfassteUnfälle, color = "PolizeilicherfassteUnfälle"), size = 0.7) +
  geom_line(aes(y = UnfällemitPersonenschaden, color = "UnfällemitPersonenschaden")) +
  geom_line(aes(y = Sachschaden, color = "Sachschaden")) +
  geom_line(aes(y = Verunglückteinsgesamt, color = "Verunglückteinsgesamt"), size = 0.7) +
  scale_color_manual(name = "Legende",
                     values = c("PolizeilicherfassteUnfälle" = "dodgerblue2",
                                "UnfällemitPersonenschaden" = "indianred3",
                                "Sachschaden" = "green4", 
                                "Verunglückteinsgesamt" = "mediumvioletred"),
                     labels = c("Polizeilich erfasste\n Unfälle", 
                                "Sachschaden",
                                "Unfälle mit\nPersonenschaden",
                                "Verunglückte \n insgesamt")) +
  labs(title = "Unfallstatistik von 1950 bis 2021",
       caption = ("Bis 1990 früheres Bundesgebiet. Bis 1952 ohne Saarland. \n Bis 1952 am Unfalltag Gestorbene, ab 1953 innerhalb von 30 Tagen nach dem Unfall Gestorbene.  \n nach Angaben des statistischen Bundesamtes (Destatis), 2023 | Stand: 24.02.2023"), # fügt die Quellenangabe hinz
       x= "Jahr",
       y = "Zahl") +
  scale_y_continuous(labels = function(x) {
    paste0(x / 1000000, "M")
  }, 
  breaks = seq(250000, 2600000, 250000))+ # sorgt dafür, dass die Zahlen auf der Y-Achse in 0.25 Schritten  etc ausgegeben wird.
  scale_x_continuous(breaks = seq(1950, 2021, 10))+ # verringert den Abstand auf der X-Achse
  theme_classic()+
  theme(panel.grid.major = element_line(size = 0.2, color = "slategrey"), #darkseagreen
        panel.grid.minor = element_line(linewidth = 0.2, color = "darkseagreen"),
        plot.title = element_text(family = "Arial", face = "bold"),
        plot.caption = element_text(hjust = 0, size = 8, margin = margin(t = 10, unit = "pt")),
        legend.spacing.y = unit(0.5, "cm"),
        legend.spacing.x = unit(0.3, "cm"),
        legend.key.size = unit(1, "cm"), # ABSTAND ZWISCHEN DEN PUNKTEN
        legend.key.width = unit(0.5, "cm"))