plots: Show percentiles on hover in rankings

2025-10-26 10:47:25 +01:00 · 2022-01-13 11:39:33 +01:00 · 2022-01-13 11:39:33 +01:00 · 0087f83247
commit 0087f83247
parent fa49a5a887
1 changed files with 8 additions and 1 deletions
--- 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)
                )