From cf8e9e79d59807541743dce62323b51593ad1e49 Mon Sep 17 00:00:00 2001
From: Elias Projahn <elias@johrpan.de>
Date: Sat, 15 Feb 2025 10:31:06 +0100
Subject: [PATCH] comparison: Highlight sector 11

---
 scripts/comparison.R | 34 ++++++++++++++++++++++++++++++++++
 1 file changed, 34 insertions(+)

diff --git a/scripts/comparison.R b/scripts/comparison.R
index 4225490..c1dc111 100644
--- a/scripts/comparison.R
+++ b/scripts/comparison.R
@@ -86,6 +86,40 @@ datasets_table <- datasets_data[, .(count = .N), by = c("dataset", "group")]
 datasets_table[, total := sum(count), by = dataset]
 datasets_table[, proportion := count / total]
 
+fig_11 <- plotly::plot_ly() |>
+  plotly::add_bars(
+    data = datasets_table[group == "1_1"],
+    x = ~dataset,
+    y = ~proportion
+  ) |>
+  plotly::layout(
+    xaxis = list(
+      categoryarray = datasets_table[group == "1_1", unique(dataset)],
+      title = ""
+    ),
+    yaxis = list(
+      range = c(0.0, 1.0),
+      title = "",
+      tickformat = ".0%"
+    ),
+    font = list(size = 8),
+    margin = list(
+      pad = 2,
+      l = 0,
+      r = 0,
+      t = 0,
+      b = 36
+    )
+  )
+
+plotly::save_image(
+  fig_11,
+  file = here(glue::glue("scripts/output/gene_sets_highlight_1_1.svg")),
+  width = 3.135 * 72,
+  height = 3.135 * 72,
+  scale = 96 / 72
+)
+
 group_plots <- list()
 
 for (group_value in datasets_table[, unique(group)]) {