feat(benchmark): Add newline labeller to facet labels

.github/workflows/benchmark.yaml

@@ -193,9 +193,12 @@ jobs:
           # Determine subgroups
           groups <- setdiff(colnames(benchmarks), c("expr", "time", "benchmark_function", "database", "version", "n"))
 
-          # Allow subgroups
+          # Apply "dodging" to sub-groups to show graphically
           dodge <- ggplot2::position_dodge(width = 0.6)
 
+          # Insert newline into database name to improve rendering of figures
+          labeller <- ggplot2::as_labeller(\(l) stringr::str_replace_all(l, stringr::fixed(" v"), "\nv"))
+
           g <- ggplot2::ggplot(
             benchmarks,
             ggplot2::aes(
@@ -205,7 +208,12 @@ jobs:
               color = !!switch(length(groups) > 0, as.symbol(groups)))
           ) +
             ggplot2::stat_summary(fun.data = mean_sd, geom = "pointrange", size = 0.5, linewidth = 1, position = dodge) +
-            ggplot2::facet_grid(rows = ggplot2::vars(benchmark_function), cols = ggplot2::vars(database)) +
+            ggplot2::facet_grid(
+              rows = ggplot2::vars(benchmark_function),
+              cols = ggplot2::vars(database),
+              scales = "free_y",
+              labeller = labeller
+            ) +
             ggplot2::labs(x = "Codebase version", y = "Time (s)")
 
           if (length(slow_backends) > 1) {