diff --git a/R/plots.R b/R/plots.R
index df7736d..72ff486 100644
--- a/R/plots.R
+++ b/R/plots.R
@@ -193,8 +193,16 @@ plot_scores <- function(ranking, gene_sets = NULL, max_rank = NULL) {
data = gene_set_data[gene %chin% gene_set],
x = ~percentile,
y = ~score,
- text = ~name,
color = gene_set_name,
+ text = ~name,
+ customdata = ~rank,
+ hovertemplate = paste0(
+ "%{text}
",
+ "Score: %{y:.3}
",
+ "Rank: %{customdata}
",
+ "Percentile: %{x:.2%}",
+ ""
+ ),
marker = list(size = 20, opacity = 0.66)
)
}