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

plots: Fix colors in scores by position plot

Browse source
This commit is contained in:
Elias Projahn 2022-08-14 17:59:07 +02:00
parent aee77e8bb5
commit 0440d5931c
1 changed files with 39 additions and 20 deletions
Download patch file Download diff file Expand all files Collapse all files

59
R/plots.R
View file

@ -544,22 +544,6 @@ plot_scores_by_position <- function(ranking,
by.y = "id" by.y = "id"
) )
data[, `:=`(gene_set = "All genes", color = base_color())]
index <- 1
for (gene_set_name in names(gene_sets)) {
gene_set_genes <- gene_sets[[gene_set_name]]
data[
gene %chin% gene_set_genes,
`:=`(
gene_set = gene_set_name,
color = gene_set_color(index)
)
]
index <- index + 1
}
# Use distances instead of positions in case all chromosomes are included. # Use distances instead of positions in case all chromosomes are included.
if (is.null(chromosome_name)) { if (is.null(chromosome_name)) {
data[, x := distance] data[, x := distance]
@ -567,12 +551,12 @@ plot_scores_by_position <- function(ranking,
data[, x := start_position] data[, x := start_position]
} }
plotly::plot_ly() |> fig <- plotly::plot_ly() |>
plotly::add_markers( plotly::add_markers(
data = data, data = data[!gene %chin% unlist(gene_sets)],
x = ~x, x = ~x,
y = ~score, y = ~score,
name = ~gene_set, name = "All genes",
text = ~ glue::glue( text = ~ glue::glue(
"<b>{name}</b><br>", "<b>{name}</b><br>",
if (is.null(chromosome_name)) "Distance: " else "Position: ", if (is.null(chromosome_name)) "Distance: " else "Position: ",
@ -581,7 +565,11 @@ plot_scores_by_position <- function(ranking,
"Rank: {rank}<br>", "Rank: {rank}<br>",
"Percentile: {round(percentile * 100, digits = 2)}%" "Percentile: {round(percentile * 100, digits = 2)}%"
), ),
hoverinfo = "text", marker = list(
color = base_color(),
size = 5
),
hoverinfo = "text"
) |> ) |>
plotly::layout( plotly::layout(
xaxis = list(title = if (is.null(chromosome_name)) { xaxis = list(title = if (is.null(chromosome_name)) {
@ -591,6 +579,37 @@ plot_scores_by_position <- function(ranking,
}), }),
yaxis = list(title = "Score") yaxis = list(title = "Score")
) )
index <- 1
for (gene_set_name in names(gene_sets)) {
gene_set_genes <- gene_sets[[gene_set_name]]
fig <- fig |>
plotly::add_markers(
data = data[gene %chin% gene_set_genes],
x = ~x,
y = ~score,
name = gene_set_name,
text = ~ glue::glue(
"<b>{name}</b><br>",
if (is.null(chromosome_name)) "Distance: " else "Position: ",
"{round(x / 1000000, digits = 2)} MBp<br>",
"Score: {round(score, digits = 2)}<br>",
"Rank: {rank}<br>",
"Percentile: {round(percentile * 100, digits = 2)}%"
),
marker = list(
color = gene_set_color(index),
size = 8
),
hoverinfo = "text"
)
index <- index + 1
}
fig
} }
#' Helper function for creating a vertical line for plotly. #' Helper function for creating a vertical line for plotly.