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

Implement gene set highlighting in positions plot

Browse source
This commit is contained in:
Elias Projahn 2022-05-18 17:29:35 +02:00
parent 7e53015168
commit e41d02c659
2 changed files with 26 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

23
R/plots.R
View file

@ -385,12 +385,16 @@ plot_chromosomes <- function(ranking) {
#'
#' @param ranking The ranking to visualize.
#' @param chromosome_name The chromosome to visualize.
#' @param gene_sets Named list of vectors of genes to highlight. The list names
#' will be used as labels.
#'
#' @return A `plotly` figure.
#' @seealso ranking()
#'
#' @export
plot_scores_by_position <- function(ranking, chromosome_name) {
plot_scores_by_position <- function(ranking,
chromosome_name,
gene_sets = NULL) {
if (!requireNamespace("plotly", quietly = TRUE)) {
stop("Please install \"plotly\" to use this function.")
}
@ -406,11 +410,28 @@ plot_scores_by_position <- function(ranking, chromosome_name) {
by = "gene"
)
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
}
plotly::plot_ly() |>
plotly::add_markers(
data = data,
x = ~start_position,
y = ~score,
name = ~gene_set,
hoverinfo = "skip"
) |>
plotly::layout(