Beim Jahresabschluss 2019 dürfte wohl v.a. auch der Lagebericht interessant sein, denn er soll auch ein Bild zur zukünftigen Lage des Unternehmens zeichnen. Zu Beginn des Jahres war die Covid19-Pandemie aber noch sehr frisch und die Folgen noch nicht absehbar. Zudem war bestimmt schon das meiste des jeweiligen Jahresabschlusses geschrieben. So meine Annahme.
Entsprechend habe ich über die einfache Suchfunktion gezählt, wie oft "Corona" und "Covid" in den Jahresabschlüssen der DAX30 vorkommen. Anbei das Ergebnis unkommentiert:
library(tidyverse)
library(ggplot2)
library(tidyr)
library(viridis)
library(dplyr)
data <- tibble(company = c("Adidas", "Allianz", "BASF", "Bayer", "Beiersdorf", "BMW", "Continental",
"Covestro", "Daimler", "Deutsche Bank", "Deutsche Börse", "Deutsche Post",
"Deutsche Telekom", "Deutsche Wohnen", "E.ON", "Fresenius",
"Fresenius Medical Care", "Heidelberg Cement", "Henkel", "Infineon", "Linde",
"Merck", "MTU Aero Engines", "Münchner Rück", "RWE", "SAP", "Siemens",
"Volkswagen", "Vonovia", "Deliver Hero"
),
n = c(12, 0, 2, 0, 0, 6, 0, 0, 0, 24, 2, 17, 0, 3, 7, 5, 0, 16, 0, 0, 0, 1, 11, 1, 0, 0, 0, 0, 0, 0))
data %>%
ggplot(aes(x=reorder(company, desc(n)), y=n, fill=reorder(company, desc(n)))) +
geom_bar(stat="identity", position=position_dodge(preserve = "single")) +
scale_fill_viridis(discrete=TRUE, option="cividis", direction=-1) +
theme_minimal() +
theme(legend.position="none") +
theme(axis.text.x = element_text(angle = 90, vjust = 0.5, hjust=1)) +
labs(
x = NULL, y = NULL,
title = paste("Anzahl an Nennungen im Jahresabschluss 2019"),
subtitle = ("von 'Corona' und 'Covid' der DAX30 Konzerne"))
Photo by Markus Spiske from Pexels