|
# Installiere ggplot2 und scales, falls noch nicht installiert |
|
# install.packages("ggplot2") |
|
# install.packages("scales") |
|
|
|
library(ggplot2) |
|
library(scales) |
|
|
|
# Erstelle den Datensatz |
|
partei_list = c("SPD", "CDU", "Grüne", "FDP", "AfD", "Linke", "BSW", "Sonstige") |
|
# Definiere die Parteifarben |
|
parteifarben <- c("SPD" = "#EB001F", "CDU" = "#000000", "Grüne" = "#64A12D", |
|
"FDP" = "#FFED00", "AfD" = "#009EE0", "Linke" = "#BE3075", |
|
"BSW" = "#FFB366", "Sonstige" = "#AAAAAA") |
|
|
|
parteien <- data.frame( |
|
Partei = factor(partei_list, levels = partei_list), |
|
Umfragewerte = c(15, 33, 11, 4, 17, 3, 8, 9) |
|
) |
|
|
|
# Erstelle das Säulendiagramm |
|
ggplot(parteien, aes(x = Partei, y = Umfragewerte, fill = Partei)) + |
|
geom_bar(stat = "identity") + |
|
geom_text(aes(label = Umfragewerte), vjust = -0.5, size = 5) + |
|
scale_fill_manual(values = parteifarben) + |
|
theme_minimal() + |
|
labs(title = "Sonntagsfrage", |
|
x = "", |
|
y = "") + |
|
theme(axis.text.x = element_text(angle = 0, hjust = 0.5), # Zentriere den Text |
|
plot.title = element_text(hjust = 0.5), # Zentriere den Titel |
|
legend.position = "none", # Legende entfernen |
|
panel.grid.major.x = element_blank(), # Senkrechte Gitterlinien entfernen |
|
panel.grid.minor.x = element_blank()) # Kleinere senkrechte Gitterlinien entfernen |
