From 2c69476eb5a6c2db5500cfdbdf21839e1e528f0b Mon Sep 17 00:00:00 2001 From: schlenther Date: Mon, 9 Sep 2024 12:17:38 +0200 Subject: [PATCH] minor changes for readability --- .../VIA-data/KEXI-shiny-dashboard.R | 13 ++++++++++--- 1 file changed, 10 insertions(+), 3 deletions(-) diff --git a/src/main/R/drtDemandAnalysis/VIA-data/KEXI-shiny-dashboard.R b/src/main/R/drtDemandAnalysis/VIA-data/KEXI-shiny-dashboard.R index 0ef7e48..75f6ff3 100644 --- a/src/main/R/drtDemandAnalysis/VIA-data/KEXI-shiny-dashboard.R +++ b/src/main/R/drtDemandAnalysis/VIA-data/KEXI-shiny-dashboard.R @@ -722,12 +722,18 @@ server <- function(input, output) { layout( title = list( text = "Mittlere Anzahl verfügbarer Fahrzeuge pro Tag", - font = list(size = 14, color = "black", family = "Arial", weight = "bold"), + font = list(size = 18, color = "black", family = "Arial", weight = "bold"), x = 0.5 # Zentriert den Titel ), - xaxis = list(title = "Datum"), - yaxis = list(title = "Mittlere Fahrzeugverfuegbarkeit pro Tag", side = "left"), + xaxis = list(title = "Datum", + font = list(size = 16, family = "Arial", color = "black", weight = "bold") # Größe und Stil der X-Achsenbeschriftung + ), + yaxis = list(title = "Mittlere Fahrzeugverfuegbarkeit pro Tag", + font = list(size = 16, family = "Arial", color = "black", weight = "bold"), # Größe und Stil der Y-Achsenbeschriftung + + side = "left"), yaxis2 = list(title = "Passagiere pro Tag", + font = list(size = 16, family = "Arial", color = "red", weight = "bold"), # Größe und Stil der zweiten Y-Achsenbeschriftung overlaying = "y", side = "right", color = "red")#, @@ -739,6 +745,7 @@ server <- function(input, output) { ) fig + })