Add legend to comparison

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(