From c633d664c182ec3ead67426a3e6d88ea5bdf4390 Mon Sep 17 00:00:00 2001
From: Elias Projahn <elias@johrpan.de>
Date: Wed, 2 Oct 2024 11:32:37 +0200
Subject: [PATCH] scripts: Only include datasets in comparison

---
 scripts/comparison.R | 15 +++++++++++----
 1 file changed, 11 insertions(+), 4 deletions(-)

diff --git a/scripts/comparison.R b/scripts/comparison.R
index ece759c..6177a2c 100644
--- a/scripts/comparison.R
+++ b/scripts/comparison.R
@@ -45,7 +45,7 @@ threshold_cmap <- data[percentile_cmap >= 0.95, min(score_cmap)]
 
 fig <- plotly::plot_ly() |>
   plotly::add_markers(
-    data = data,
+    data = data[count >= 1],
     x = ~score_gtex,
     y = ~score_cmap,
     color = ~count,
@@ -127,13 +127,20 @@ fig <- plotly::plot_ly() |>
       b = 36
     )
   ) |>
-  plotly::hide_legend() |>
-  plotly::hide_colorbar()
+  plotly::hide_legend()
 
 plotly::save_image(
-  fig,
+  fig |> plotly::hide_colorbar(),
   file = here("scripts/output/comparison.svg"),
   width = 6.27 * 72,
   height = 6.27 * 72,
   scale = 96 / 72
 )
+
+plotly::save_image(
+  fig,
+  file = here("scripts/output/comparison_legend.svg"),
+  width = 6.27 * 72,
+  height = 6.27 * 72,
+  scale = 96 / 72
+)