diff --git a/R/evaluatedispersion.R b/R/evaluatedispersion.R
index 640aac058ff008e9f7b958dfb073fa8d64e77951..39b81b9f877fbd1fdd43775a684d84a78d8b7c0e 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 f16934bcb8814507440f9627862dd6cdc0e28c2a..943704f6db51af8f14986e04d9cb50f6286b4784 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()  +