From 78bb8521f0e1c6c59af23a5bb04ffd3e199cb671 Mon Sep 17 00:00:00 2001
From: aduvermy <arnaud.duvermy@ens-lyon.fr>
Date: Tue, 24 Oct 2023 16:19:00 +0200
Subject: [PATCH] modif identity plot & disp_plot
---
R/evaluatedispersion.R | 3 +--
R/identityplot.R | 2 +-
2 files changed, 2 insertions(+), 3 deletions(-)
diff --git a/R/evaluatedispersion.R b/R/evaluatedispersion.R
index 640aac0..39b81b9 100644
--- a/R/evaluatedispersion.R
+++ b/R/evaluatedispersion.R
@@ -21,8 +21,7 @@
#' }
evaluateDispersion <- function(TMB_dispersion_df, DESEQ_dispersion_df, color2use) {
disp_comparison_dtf <- rbind(TMB_dispersion_df, DESEQ_dispersion_df)
- disp_plot <- dispersion_plot(disp_comparison_dtf, col = "from") + ggplot2::scale_color_manual(values = color2use)
-
+ disp_plot <- dispersion_plot(disp_comparison_dtf, col = "from", pch = "from") + ggplot2::scale_color_manual(values = color2use)
return(list(disp_plot = disp_plot, data = disp_comparison_dtf))
}
diff --git a/R/identityplot.R b/R/identityplot.R
index f16934b..943704f 100644
--- a/R/identityplot.R
+++ b/R/identityplot.R
@@ -24,7 +24,7 @@ identity_plot <- function(comparison_df, ...){
ggplot2::ggplot(comparison_df) +
- ggplot2::geom_point(ggplot2::aes(x = actual, y = estimate, !!!args), alpha = 0.6) +
+ ggplot2::geom_point(ggplot2::aes(x = actual, y = estimate, !!!args), alpha = 0.6, size = 2) +
ggplot2::geom_abline(intercept = 0, slope = 1, lty = 3, col = 'red', linewidth = 1) +
ggplot2::facet_wrap(~description, scales = "free") +
ggplot2::theme_bw() +
--
GitLab