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: Only include datasets in comparison

Browse source
This commit is contained in:
Elias Projahn 2024-10-02 11:32:37 +02:00
parent fb975f158b
commit c633d664c1
1 changed files with 11 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

15
scripts/comparison.R
View file

@ -45,7 +45,7 @@ threshold_cmap <- data[percentile_cmap >= 0.95, min(score_cmap)]
fig <- plotly::plot_ly() |> fig <- plotly::plot_ly() |>
plotly::add_markers( plotly::add_markers(
data = data, data = data[count >= 1],
x = ~score_gtex, x = ~score_gtex,
y = ~score_cmap, y = ~score_cmap,
color = ~count, color = ~count,
@ -127,13 +127,20 @@ fig <- plotly::plot_ly() |>
b = 36 b = 36
) )
) |> ) |>
plotly::hide_legend() |> plotly::hide_legend()
plotly::hide_colorbar()
plotly::save_image( plotly::save_image(
fig, fig |> plotly::hide_colorbar(),
file = here("scripts/output/comparison.svg"), file = here("scripts/output/comparison.svg"),
width = 6.27 * 72, width = 6.27 * 72,
height = 6.27 * 72, height = 6.27 * 72,
scale = 96 / 72 scale = 96 / 72
) )
plotly::save_image(
fig,
file = here("scripts/output/comparison_legend.svg"),
width = 6.27 * 72,
height = 6.27 * 72,
scale = 96 / 72
)