Add changes to top3 graph

server.R

@@ -202,8 +202,15 @@ server <- function(input, output, session) {
       year = "2024"
     )
     req(nrow(data_tibble) > 0)
-    ggplot(data_tibble, aes(x = Name, y = Erfasst)) +
+    ggplot(data_tibble, aes(x = Name, y = Erfasst, fill = Name)) +
-      geom_col(width = 0.7, fill = "#e10019") + # <-- Festlegen der Farbe direkt an allen Spalten angeknüpft nicht mehr anhand der Kategorie
+      geom_col(width = 0.7) +
+      scale_x_discrete(
+        labels = function(x) str_wrap(x, width = 15)) +
+      scale_fill_manual(values = c(
+        "#b8ecff", 
+        "#d5f4ff", 
+        "#e6f9ff"
+      )) +
       geom_text(
         # Die Text-Ästhetik soll der Wert aus der Spalte 'Erfasst' sein
         aes(label = format(Erfasst, big.mark = ".", decimal.mark = ",")), 
@@ -215,7 +222,7 @@ server <- function(input, output, session) {
         fontface = "bold"
       ) +
       labs(
-        title = "Statistisch am häufigsten polizeilich registrierte Straftaten",
+        title = NULL,
         x = "Straftatbestand",
         y = "Anzahl erfasster Fälle"
       ) +
@@ -232,6 +239,10 @@ server <- function(input, output, session) {
         panel.grid.major.x = element_blank(), 
         panel.grid.minor.x = element_blank(), # vertikale grid lines entfernen
         # X-Achsen-Titel (z.B. "Straftatbestand")
+        axis.text.x = element_text(
+          angle = 0, 
+          size = 9
+          ),
         axis.title.x = element_text(
           face = "bold",
           family = "sans",