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

gsea: Improve smoothing resolution

Browse source
This commit is contained in:
Elias Projahn 2022-07-15 08:57:10 +02:00
parent 19b395a564
commit 3d7c508a83
1 changed files with 6 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

9
scripts/gsea.R
View file

@ -30,7 +30,10 @@ result <- result[, rbindlist(result), by = bucket]
data <- result[, .(count = .N), by = c("bucket", "source")] data <- result[, .(count = .N), by = c("bucket", "source")]
data[, total := sum(count), by = bucket] data[, total := sum(count), by = bucket]
smooth_model <- loess(total ~ bucket, data, span = 0.25)
smooth_model <- loess(total ~ bucket, data, span = 0.3)
bucket_smoothed <- seq(1, nrow(data), 0.1)
total_smoothed <- predict(smooth_model, bucket_smoothed)
fig <- plotly::plot_ly(data) |> fig <- plotly::plot_ly(data) |>
plotly::add_bars( plotly::add_bars(
@ -39,8 +42,8 @@ fig <- plotly::plot_ly(data) |>
color = ~source color = ~source
) |> ) |>
plotly::add_lines( plotly::add_lines(
x = ~bucket, x = ~bucket_smoothed,
y = predict(smooth_model), y = ~total_smoothed,
name = "All (smoothed)" name = "All (smoothed)"
) |> ) |>
plotly::layout( plotly::layout(