johrpan/geposan
1
0
Fork 0
mirror of https://github.com/johrpan/geposan.git synced 2025-10-26 10:47:25 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

plots: Add more information to scores plot hover

Browse source
This commit is contained in:
Elias Projahn 2021-12-29 21:15:50 +01:00
parent a02f22c218
commit 2e27fbb95c
1 changed files with 9 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

10
R/plots.R
View file

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