diff --git a/scripts/comparison.R b/scripts/comparison.R index fc309f5..4225490 100644 --- a/scripts/comparison.R +++ b/scripts/comparison.R @@ -144,12 +144,22 @@ threshold_gtex <- data[percentile_gtex >= 0.95, min(score_gtex)] threshold_cmap <- data[percentile_cmap >= 0.95, min(score_cmap)] 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( data = data[count >= 1 & !(gene %chin% genes_literature)], x = ~score_gtex, y = ~score_cmap, color = ~count, - colors = c("#7d19bf", "#ff7f2a"), marker = list( size = 4, opacity = 0.8