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

scripts: Add background for comparison plot

Browse source
This commit is contained in:
Elias Projahn 2024-11-30 10:20:13 +01:00
parent 8358f7e5e7
commit 7c8cc99d34
1 changed files with 11 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

12
scripts/comparison.R
View file

@ -144,12 +144,22 @@ threshold_gtex <- data[percentile_gtex >= 0.95, min(score_gtex)]
threshold_cmap <- data[percentile_cmap >= 0.95, min(score_cmap)] threshold_cmap <- data[percentile_cmap >= 0.95, min(score_cmap)]
fig <- plotly::plot_ly() |> fig <- plotly::plot_ly() |>
plotly::add_markers(
data = data[count == 0 & !(gene %chin% genes_literature)],
x = ~score_gtex,
y = ~score_cmap,
marker = list(
size = 2,
color = "#919191",
opacity = 0.5
),
cliponaxis = FALSE
) |>
plotly::add_markers( plotly::add_markers(
data = data[count >= 1 & !(gene %chin% genes_literature)], data = data[count >= 1 & !(gene %chin% genes_literature)],
x = ~score_gtex, x = ~score_gtex,
y = ~score_cmap, y = ~score_cmap,
color = ~count, color = ~count,
colors = c("#7d19bf", "#ff7f2a"),
marker = list( marker = list(
size = 4, size = 4,
opacity = 0.8 opacity = 0.8