Millicool/shiny-app
1
0
Fork 0
Code Issues Pull Requests 1 Actions Packages Projects Releases Wiki Activity

Make whitespace changes and a small change in vjust

Browse Source
This commit is contained in:
Millicool
2026-02-06 15:54:21 +01:00
parent 3c74b98827
commit 10d0a9ad05
1 changed files with 1 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
server.R
View File

@@ -242,12 +242,8 @@ server <- function(input, output, session) {
"#e6f9ff" "#e6f9ff"
)) + )) +
geom_text( geom_text(
# Die Text-Ästhetik soll der Wert aus der Spalte 'Erfasst' sein
aes(label = format(Erfasst, big.mark = ".", decimal.mark = ",")), aes(label = format(Erfasst, big.mark = ".", decimal.mark = ",")),
# Platzierung: Y-Wert des Textes = Wert der Spalte + Offset vjust = -0.8, # Vertikale Ausrichtung: Negativer Wert platziert Text über dem Punkt
# 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
size = 4, size = 4,
fontface = "bold" fontface = "bold"
) + ) +
@@ -257,7 +253,6 @@ server <- function(input, output, session) {
y = "Anzahl erfasster Fälle" y = "Anzahl erfasster Fälle"
) + ) +
theme_pander() + #neues theme aus ggthemes packages theme_pander() + #neues theme aus ggthemes packages
# NEUE ANPASSUNG: Drehen der X-Achsen-Beschriftungen
theme( theme(
plot.background = element_rect( plot.background = element_rect(
color = "darkgrey", # Farbe des Rahmens color = "darkgrey", # Farbe des Rahmens