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: Display percentiles in scores plot

Browse source
This commit is contained in:
Elias Projahn 2021-12-29 16:23:35 +01:00
parent a0dce372b6
commit a02f22c218
1 changed files with 10 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

16
R/plots.R
View file

@ -157,19 +157,23 @@ plot_scores <- function(ranking, gene_sets = NULL, max_rank = NULL) {
}
# To speed up rendering, don't show every single gene.
sample_ranking <- ranking[seq(1, nrow(ranking), 5)]
n_ranks <- nrow(ranking)
sample_ranking <- ranking[seq(1, n_ranks, 5)]
plot <- plotly::plot_ly(colors = "Set2") |>
plotly::add_lines(
data = sample_ranking,
x = ~rank,
x = ~percentile,
y = ~score,
color = "All genes",
hoverinfo = "skip",
line = list(width = 4)
) |>
plotly::layout(
xaxis = list(title = "Rank"),
xaxis = list(
title = "Percentile",
tickformat = ".0%"
),
yaxis = list(title = "Score")
)
@ -187,7 +191,7 @@ plot_scores <- function(ranking, gene_sets = NULL, max_rank = NULL) {
plot <- plot |> plotly::add_markers(
data = gene_set_data[gene %chin% gene_set],
x = ~rank,
x = ~percentile,
y = ~score,
text = ~name,
color = gene_set_name,
@ -207,8 +211,8 @@ plot_scores <- function(ranking, gene_sets = NULL, max_rank = NULL) {
type = "rect",
fillcolor = "black",
opacity = 0.1,
x0 = first_not_included_rank,
x1 = last_rank,
x0 = 1 - first_not_included_rank / n_ranks,
x1 = 1 - last_rank / n_ranks,
y0 = 0.0,
y1 = 1.0
)