diff --git a/server.R b/server.R index 036bbeb..1dd6c48 100644 --- a/server.R +++ b/server.R @@ -223,7 +223,7 @@ server <- function(input, output, session) { year = "2024" ) req(nrow(data_tibble) > 0) - ggplot(data_tibble, aes(x = Name, y = Erfasst, fill = Name)) + + ggplot(data_tibble, aes(x = reorder(Name, -Erfasst), y = Erfasst, fill = Name)) + geom_col(width = 0.7) + scale_x_discrete( labels = function(x) str_wrap(x, width = 15)) +