Make whitespace changes and a small change in vjust

server.R

@@ -242,12 +242,8 @@ server <- function(input, output, session) {
         "#e6f9ff"
       )) +
       geom_text(
-        # Die Text-Ästhetik soll der Wert aus der Spalte 'Erfasst' sein
         aes(label = format(Erfasst, big.mark = ".", decimal.mark = ",")), 
-        # Platzierung: Y-Wert des Textes = Wert der Spalte + Offset
-        # Wir verwenden den Offset, um den Text knapp über den Balken zu platzieren
-        # Wenn Sie den Text IN den Balken setzen möchten, setzen Sie y=Erfasst/2
-        vjust = -0.5, # Vertikale Ausrichtung: Negativer Wert platziert Text über dem Punkt
+        vjust = -0.8, # Vertikale Ausrichtung: Negativer Wert platziert Text über dem Punkt
         size = 4,
         fontface = "bold"
       ) +
@@ -257,7 +253,6 @@ server <- function(input, output, session) {
         y = "Anzahl erfasster Fälle"
       ) +
       theme_pander() + #neues theme aus ggthemes packages
-      # NEUE ANPASSUNG: Drehen der X-Achsen-Beschriftungen
       theme(
         plot.background = element_rect(
           color = "darkgrey",  # Farbe des Rahmens