Add legend to comparison

2026-02-07 12:01:21 +01:00
parent 93123d0ff6
commit d0f36ce7c5
1 changed files with 8 additions and 0 deletions
--- a/server.R
+++ b/server.R
@@ -312,6 +312,14 @@ server <- function(input, output, session) {
      yaxis = list(
        title = "<b>Straftat<b>",
        tickangle = "-90"
+      ),
+      legend = list(
+        orientation = "h",
+        x = 0.5,
+        itemwidth = 40,
+        xanchor = "center",
+        yanchor = "top",
+        valign = "top"
      )
    ) %>%
    config(