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

plots: Rotate and simplify boxplot

Browse source
This commit is contained in:
Elias Projahn 2022-08-18 11:57:46 +02:00
parent c8b94fade8
commit ba55aa124e
1 changed files with 8 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

14
R/plots.R
View file

@ -453,15 +453,16 @@ plot_boxplot <- function(ranking, gene_sets = NULL) {
plot <- plotly::plot_ly() |>
plotly::add_boxplot(
data = ranking,
x = "All genes",
y = ~score,
x = ~score,
y = "All genes",
name = "All genes",
showlegend = FALSE,
boxpoints = FALSE,
line = list(color = base_color())
) |>
plotly::layout(
xaxis = list(tickvals = c("All genes", names(gene_sets))),
yaxis = list(title = "Score")
xaxis = list(title = "Score"),
yaxis = list(tickvals = c("All genes", names(gene_sets)))
)
if (length(gene_sets) > 0) {
@ -472,10 +473,11 @@ plot_boxplot <- function(ranking, gene_sets = NULL) {
plot <- plot |> plotly::add_boxplot(
data = ranking[gene %chin% gene_set],
x = gene_set_name,
y = ~score,
x = ~score,
y = gene_set_name,
name = gene_set_name,
showlegend = FALSE,
boxpoints = FALSE,
line = list(color = gene_set_color(index))
)