From 0087f832474f69ecdcb5b8bdaf22807857a80afb Mon Sep 17 00:00:00 2001
From: Elias Projahn <elias@johrpan.de>
Date: Thu, 13 Jan 2022 11:39:33 +0100
Subject: [PATCH] plots: Show percentiles on hover in rankings

---
 R/plots.R | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/R/plots.R b/R/plots.R
index 72ff486..cd15add 100644
--- a/R/plots.R
+++ b/R/plots.R
@@ -123,8 +123,15 @@ plot_rankings <- function(rankings, gene_sets) {
                     data = gene_set_data[gene %chin% gene_set],
                     x = ranking_name,
                     y = ~score,
-                    text = ~name,
                     color = gene_set_name,
+                    text = ~name,
+                    customdata = ~percentile,
+                    hovertemplate = paste0(
+                        "<b>%{text}</b><br>",
+                        "Score: %{y:.3}<br>",
+                        "Percentile: %{customdata:.2%}",
+                        "<extra></extra>"
+                    ),
                     showlegend = is_first,
                     marker = list(size = 20, opacity = 0.66)
                 )