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) ) }