V1.1 - optimising for mobile and highlighting key text

2026-08-21 15:45:26 +01:00
parent 0912e3b024
commit d0a9d448b0
5 changed files with 311 additions and 220 deletions
@@ -79,7 +79,21 @@ coefficient_plot_function <- function(regression_result, coefficient_plotting_da
  }
  
  coefficient_plotting_data <- coefficient_plotting_data %>%
-    mutate(term = gsub("_", " ", term))
+    mutate(term = gsub("_", " ", term),
+           term = gsub("4 ", "4<br>", term),
+           term = gsub("Gini ", "Gini<br>", term),
+           term = gsub("and ", "and<br>", term),
+           term = gsub("goals ", "goals<br>", term),
+           term = gsub("top ", "top<br>", term),
+           term = gsub("competitive ", "competitive<br>", term),
+           term = gsub("elite ", "elite<br>", term),
+           term = gsub("dominance ", "dominance<br>", term),
+           term = gsub("multilevel ", "multilevel<br>", term),
+           term = gsub("competitiveness ", "competitiveness<br>", term),
+           term = gsub("title index ", "title index<br>", term),
+           term = gsub("balance index ", "balance<br>index", term),
+           term = gsub("index (CL multi)", "index<br>(CL multi)", term),
+           term = gsub("PC", "Principal<br>component<br>", term))
  
  custom_plotly(
    data = coefficient_plotting_data,
@@ -105,9 +119,9 @@ coefficient_plot_function <- function(regression_result, coefficient_plotting_da
    hover_info = FALSE
  ) %>%
    layout(autosize = FALSE,
-           margin = list(
-             l = 225
-           ),
+           # margin = list(
+           #   l = 225
+           # ),
      xaxis = list(
        range = c(-range_val, range_val),
        zeroline = FALSE,