Change of default font and plot sizes. Use global ggplot theme.

modules/auxfunc.R

@@ -296,23 +296,8 @@ myGgplotTraj = function(dt.arg, # data table
     xlab(paste0(xlab.arg, "\n")) +
     ylab(paste0("\n", ylab.arg)) +
     ggtitle(plotlab.arg) +
-    theme_bw(base_size = 18, base_family = "Helvetica") +
-    theme(
-      panel.grid.minor = element_blank(),
-      panel.grid.major = element_blank(),
-      panel.border = element_blank(),
-      axis.line.x = element_line(color = "black", size = 0.25),
-      axis.line.y = element_line(color = "black", size = 0.25),
-      axis.text.x = element_text(size = 12),
-      axis.text.y = element_text(size = 12),
-      strip.text.x = element_text(size = 14, face = "bold"),
-      strip.text.y = element_text(size = 14, face = "bold"),
-      strip.background = element_blank(),
-      legend.key = element_blank(),
-      legend.key.height = unit(1, "lines"),
-      legend.key.width = unit(2, "lines"),
-      legend.position = "top"
-    )
+    myGgplotTheme + 
+    theme(legend.position = "top")
   
   return(p.tmp)
 }
@@ -402,23 +387,9 @@ myGgplotScat = function(dt.arg,
   
   
   p.tmp = p.tmp +
-    theme_bw(base_size = 18, base_family = "Helvetica") +
-    theme(
-      panel.grid.minor = element_blank(),
-      panel.grid.major = element_blank(),
-      axis.line.x = element_line(color = "black", size = 0.25),
-      axis.line.y = element_line(color = "black", size = 0.25),
-      axis.text.x = element_text(size = 12),
-      axis.text.y = element_text(size = 12),
-      strip.text.x = element_text(size = 14, face = "bold"),
-      strip.text.y = element_text(size = 14, face = "bold"),
-      strip.background = element_blank(),
-      legend.key = element_blank(),
-      legend.key.height = unit(1, "lines"),
-      legend.key.width = unit(2, "lines"),
-      legend.position = "none"
-    )
-  
+    myGgplotTheme +
+    theme(legend.position = "none")
+
   # Marginal distributions don;t work with plotly...
   # if (is.null(facet.arg))
   #   ggExtra::ggMarginal(p.scat, type = "histogram",  bins = 100)
@@ -426,24 +397,28 @@ myGgplotScat = function(dt.arg,
   return(p.tmp)
 }
 
-myGgplotTheme = theme_bw(base_size = 18, base_family = "Helvetica") +
+myGgplotTheme = 
+  theme_bw(base_size = 12, base_family = "Helvetica") +
   theme(
+    panel.spacing = unit(1, "lines"),
     panel.grid.minor = element_blank(),
     panel.grid.major = element_blank(),
-    axis.line.x = element_line(color = "black", size = 0.25),
-    axis.line.y = element_line(color = "black", size = 0.25),
-    axis.text.x = element_text(size = 12, angle = 45, hjust = 1),
+    panel.border = element_blank(),
+    axis.line = element_line(color = "black", size = 0.25),
+    axis.text.x = element_text(size = 12),
     axis.text.y = element_text(size = 12),
-    strip.text.x = element_text(size = 14, face = "bold"),
-    strip.text.y = element_text(size = 14, face = "bold"),
+    axis.title = element_text(size = 14),
+    strip.text = element_text(size = 14, face = "bold"),
     strip.background = element_blank(),
-    legend.key = element_blank(),
+    legend.key = element_blank(), 
+    legend.text = element_text(size = 12),
     legend.key.height = unit(1, "lines"),
     legend.key.width = unit(2, "lines"),
     legend.position = "right"
   )
 
 
+
 myPlotHeatmap <- function(data.arg,
                           dend.arg,
                           palette.arg,

modules/boxPlot.R

@@ -236,22 +236,8 @@ modBoxPlot = function(input, output, session,
       scale_fill_discrete(name = '') +
       xlab('') +
       ylab('') +
-      theme_bw(base_size = 18, base_family = "Helvetica") +
-      theme(
-        panel.grid.minor = element_blank(),
-        panel.grid.major = element_blank(),
-        panel.border = element_blank(),
-        axis.line.x = element_line(color = "black", size = 0.25),
-        axis.line.y = element_line(color = "black", size = 0.25),
-        axis.text.y = element_text(size = 12),
-        strip.text.x = element_text(size = 14, face = "bold"),
-        strip.text.y = element_text(size = 14, face = "bold"),
-        strip.background = element_blank(),
-        legend.key = element_blank(),
-        legend.key.height = unit(1, "lines"),
-        legend.key.width = unit(2, "lines"),
-        legend.position = input$selPlotBoxLegendPos
-      )
+      myGgplotTheme + 
+      theme(legend.position = input$selPlotBoxLegendPos)
     
     if (input$chBxAxisLabelsRotate)
       p.out = p.out +

modules/downPlot.R

@@ -19,8 +19,8 @@ downPlotUI <- function(id, label = "Download Plot") {
         3,
         numericInput(
           ns('inPlotWidth'),
-          "Width",
-          17,
+          "Width (in)",
+          8.5,
           min = 1,
           width = 100
         )
@@ -29,8 +29,8 @@ downPlotUI <- function(id, label = "Download Plot") {
         3,
         numericInput(
           ns('inPlotHeight'),
-          "Height",
-          10,
+          "Height (in)",
+          11,
           min = 1,
           width = 100
         )