update symbol for simmetrical relationships

JEFworks-Lab · Apr 22, 2024 · 7b3daa8 · 7b3daa8
1 parent 92ef827
commit 7b3daa8
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/visualization.R b/R/visualization.R
@@ -682,9 +682,9 @@ vizColocDotplot <- function(dat, zSigThresh = 1.96, pSigThresh = NULL,
     ggplot2::theme(axis.text.x = ggplot2::element_text(angle = 90, 
                                                        vjust = 0.5, 
                                                        hjust=1)) +
-    {if(symmetrical)ggplot2::geom_point(data = ~dplyr::filter(.x, symmetrical == T),
+    {if (symmetrical) ggplot2::geom_point(data = ~dplyr::filter(.x, symmetrical == T),
                                    ggplot2::aes(x=reference, y=neighbor),
-                                   shape = 8, color = 'gold', size = 2*dotSizes[1]/3)} + 
+                                   shape = 18, color = 'gold', size = 2*dotSizes[1]/3)} + 
     ggplot2::scale_colour_gradient2(
       low = colors[1],
       mid = colors[2],