updates

KJeynesCupper · May 14, 2024 · 7fe29e9 · 7fe29e9
1 parent e4844a4
commit 7fe29e9
Showing 1 changed file with 15 additions and 8 deletions.
diff --git a/R/RNAdistribution.R b/R/RNAdistribution.R
@@ -160,22 +160,29 @@ RNAdistribution  <- function (data, samples = NULL, style,
     panel.grid = ggplot2::element_blank(),
     axis.text.x = ggplot2::element_text(color="black", size = 15,
                                         face = "bold", 
-                                        margin = ggplot2::margin(t = 10, b = 4)),
+                                        margin = ggplot2::margin(t = 10,b = 4)),
     axis.text.y = ggplot2::element_text(color="black", size = 15,face = "bold", 
                                         margin = ggplot2::margin(r = 10)) ,
     panel.grid.major.x = ggplot2::element_line( size=.1, color="grey", 
                                                 linetype = 2 ),
-    panel.grid.major.y = ggplot2::element_line( size=.1, color="grey", linetype = 2 ),
+    panel.grid.major.y = ggplot2::element_line( size=.1, color="grey", 
+                                                linetype = 2 ),
     legend.position = "right", 
     legend.box.margin= ggplot2::margin(20,20,20,20),
-    legend.text = ggplot2::element_text(size=14, margin = ggplot2::margin(7,7,7,7)),
+    legend.text = ggplot2::element_text(size=14,
+                                        margin = ggplot2::margin(7,7,7,7)),
     legend.title = ggplot2::element_text(size = 14.5, face = "bold"),
-    axis.title.y = ggplot2::element_text(margin = ggplot2::margin(r = 10), size = 17, face = "bold"),
-    axis.title.x = ggplot2::element_text(margin = ggplot2::margin(t = 10), size = 17, face = "bold"),
-    strip.background = ggplot2::element_rect(fill = "lightgrey", colour = "black"), 
+    axis.title.y = ggplot2::element_text(margin = ggplot2::margin(r = 10),
+                                         size = 17, face = "bold"),
+    axis.title.x = ggplot2::element_text(margin = ggplot2::margin(t = 10), 
+                                         size = 17, face = "bold"),
+    strip.background = ggplot2::element_rect(fill = "lightgrey",
+                                             colour = "black"), 
     strip.placement = "outside",
-    strip.text.x = ggplot2::element_text(size = 14,face="italic" , margin = margin(b = 6, t = 5)),
-    panel.border = ggplot2::element_rect(fill = "transparent", color = "black", linewidth = 1.5),
+    strip.text.x = ggplot2::element_text(size = 14,face="italic" , 
+                                         margin = ggplot2::margin(b = 6,t = 5)),
+    panel.border = ggplot2::element_rect(fill = "transparent", color = "black", 
+                                         linewidth = 1.5),
     plot.margin = ggplot2::unit(c(0.1, 0.1, 0.1, 0.1), "inches"))
 
   if (data.type == "consensus") {