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

comparison: Highlight sector 11

Browse source
This commit is contained in:
Elias Projahn 2025-02-15 10:31:06 +01:00
parent e334dc395e
commit cf8e9e79d5
1 changed files with 34 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

34
scripts/comparison.R
View file

@ -86,6 +86,40 @@ datasets_table <- datasets_data[, .(count = .N), by = c("dataset", "group")]
datasets_table[, total := sum(count), by = dataset] datasets_table[, total := sum(count), by = dataset]
datasets_table[, proportion := count / total] datasets_table[, proportion := count / total]
fig_11 <- plotly::plot_ly() |>
plotly::add_bars(
data = datasets_table[group == "1_1"],
x = ~dataset,
y = ~proportion
) |>
plotly::layout(
xaxis = list(
categoryarray = datasets_table[group == "1_1", unique(dataset)],
title = ""
),
yaxis = list(
range = c(0.0, 1.0),
title = "",
tickformat = ".0%"
),
font = list(size = 8),
margin = list(
pad = 2,
l = 0,
r = 0,
t = 0,
b = 36
)
)
plotly::save_image(
fig_11,
file = here(glue::glue("scripts/output/gene_sets_highlight_1_1.svg")),
width = 3.135 * 72,
height = 3.135 * 72,
scale = 96 / 72
)
group_plots <- list() group_plots <- list()
for (group_value in datasets_table[, unique(group)]) { for (group_value in datasets_table[, unique(group)]) {