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

Sort top 3 x axis by value instead of name

Browse Source
This commit is contained in:
Millicool
2026-01-21 19:06:33 +01:00
parent 7a7b7f9a8a
commit b651e71276
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
server.R
View File

@@ -223,7 +223,7 @@ server <- function(input, output, session) {
year = "2024" year = "2024"
) )
req(nrow(data_tibble) > 0) 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) + geom_col(width = 0.7) +
scale_x_discrete( scale_x_discrete(
labels = function(x) str_wrap(x, width = 15)) + labels = function(x) str_wrap(x, width = 15)) +