Double values inside rel() for theme_linedraw

Author: karawoo

R/theme-defaults.r

@@ -204,15 +204,15 @@ theme_linedraw <- function(base_size = 11, base_family = "") {
   theme_bw(base_size = base_size, base_family = base_family) %+replace%
     theme(
       # black text and ticks on the axes
-      axis.text        = element_text(colour = "black", size = rel(0.8)),
-      axis.ticks       = element_line(colour = "black", size = rel(0.25)),
+      axis.text        = element_text(colour = "black", size = rel(1.6)),
+      axis.ticks       = element_line(colour = "black", size = rel(0.5)),
       # NB: match the *visual* thickness of axis ticks to the panel border
       #     0.5 clipped looks like 0.25
 
       # pure black panel border and grid lines, but thinner
-      panel.border     = element_rect(fill = NA, colour = "black", size = rel(0.5)),
-      panel.grid.major = element_line(colour = "black", size = rel(0.05)),
-      panel.grid.minor = element_line(colour = "black", size = rel(0.025)),
+      panel.border     = element_rect(fill = NA, colour = "black", size = rel(1)),
+      panel.grid.major = element_line(colour = "black", size = rel(0.1)),
+      panel.grid.minor = element_line(colour = "black", size = rel(0.05)),
 
       # strips with black background and white text
       strip.background = element_rect(fill = "black"),