Added datasets for 24ss and 28ss

DillanSaunders · Mar 5, 2021 · 69eab48 · 69eab48
1 parent 3943611
commit 69eab48
Show file tree

Hide file tree

Showing 295 changed files with 274,628 additions and 198,662 deletions.
diff --git a/comparing_distributions.Rmd b/comparing_distributions.Rmd
@@ -352,10 +352,12 @@ p3 <- ggplot(data = st_merge, aes(x=tbxta, colour = factor(data), fill = factor(
   theme(legend.position = 'none', panel.border = element_blank())+
   labs(x = "", y = "")
 
-grid.arrange(arrangeGrob(p2,ncol=2,widths=c(3,1)),
+p4 <- grid.arrange(arrangeGrob(p2,ncol=2,widths=c(3,1)),
              arrangeGrob(p1,p3,ncol=2,widths=c(3,1.25)),
              heights=c(1,3))
 
+ggsave("./results/scatterplots/sox2_tbxta.png", p4)
+
 ```
 
 
@@ -386,10 +388,13 @@ p3 <- ggplot(data = zc_merge, aes(x=Cdh6, colour = factor(data), fill = factor(d
   theme(legend.position = 'none', panel.border = element_blank())+
   labs(x = "", y = "")
 
-grid.arrange(arrangeGrob(p2,ncol=2,widths=c(3,1)),
+p4 <- grid.arrange(arrangeGrob(p2,ncol=2,widths=c(3,1)),
              arrangeGrob(p1,p3,ncol=2,widths=c(3,1.25)),
              heights=c(1,3))
 
+ggsave("./results/scatterplots/znf703_cdh6.png", p4)
+
+
 ```
 
 ```{r Wnt8a Depdc7a ggplots}
@@ -419,10 +424,13 @@ p3 <- ggplot(data = wd_merge, aes(x=Depdc7a, colour = factor(data), fill = facto
   theme(legend.position = 'none', panel.border = element_blank())+
   labs(x = "", y = "")
 
-grid.arrange(arrangeGrob(p2,ncol=2,widths=c(3,1)),
+p4 <- grid.arrange(arrangeGrob(p2,ncol=2,widths=c(3,1)),
              arrangeGrob(p1,p3,ncol=2,widths=c(3,1.25)),
              heights=c(1,3))
 
+ggsave("./results/scatterplots/wnt8a_depdc7a.png", p4)
+
+
 ```