diff --git a/R/RNAdistribution.R b/R/RNAdistribution.R index 4a664b3..826e0bd 100644 --- 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") {