fix

R/theme_abyss.R

@@ -52,13 +52,12 @@ theme_abyss <- function(base_size = 11,
         plot.background = element_rect(fill = "#001429"),
         panel.background = element_rect(fill = "#001429"),
         legend.background = element_rect(fill = "#001429"),
-        axis.line = element_line(color = "#f2f2f2"),
+        axis.line = element_line(color = "#f2f2f2", linewidth = base_size / 22),
+        rect = element_rect(colour = "#f2f2f2", linewidth = base_size / 22),
         text = element_text(color = "#f2f2f2"),
         axis.text = element_text(color = "#f2f2f2"),
         panel.grid.major = element_line(color = "#465463"),
         strip.text = element_text(color = "#f2f2f2"),
-        base_line_size = base_size / 22, # ggplot2 defaults
-        base_rect_size = base_size / 22,
         ...
       )
   }

R/theme_blackboard.R

@@ -52,12 +52,11 @@ theme_blackboard <- function(base_size = 11,
         plot.background = element_rect(fill = "#0d0d0d"),
         panel.background = element_rect(fill = "#0d0d0d"),
         legend.background = element_rect(fill = "#0d0d0d"),
-        axis.line = element_line(color = "#E0E0E0"),
+        axis.line = element_line(color = "#E0E0E0", linewidth = base_size / 22),
+        rect = element_rect(colour = "#E0E0E0", linewidth = base_size / 22),
         text = element_text(color = "#E0E0E0"),
         axis.text = element_text(color = "#E0E0E0"),
         strip.text = element_text(color = "#E0E0E0"),
-        base_line_size = base_size / 22, # ggplot2 defaults
-        base_rect_size = base_size / 22,
         ...
       )
   }

R/theme_lucid.R

@@ -49,8 +49,9 @@ theme_lucid <- function(base_size = 11,
     tags.face = tags.face
   ) +
     theme(
-      axis.line.x = element_line(colour = "grey80"),
-      axis.line.y = element_line(colour = "grey80"),
+      axis.line.x = element_line(colour = "grey80", linewidth = base_size / 22),
+      axis.line.y = element_line(colour = "grey80", linewidth = base_size / 22),
+      rect = element_rect(colour = "#grey80", linewidth = base_size / 22),
       axis.text = element_text(colour = "grey50"),
       axis.title = element_text(colour = "grey30"),
       strip.background = element_rect(colour = "grey70", fill = "grey90"),
@@ -59,8 +60,6 @@ theme_lucid <- function(base_size = 11,
       legend.text = element_text(colour = "grey30"),
       panel.grid.major = element_line(colour = "grey90"),
       panel.grid.minor = element_line(colour = "grey92"),
-      base_line_size = base_size / 22, # ggplot2 defaults
-      base_rect_size = base_size / 22,
       ...
     )
 }

R/theme_modern.R

@@ -57,21 +57,19 @@ theme_modern <- function(base_size = 11,
                          ...) {
   # Remove legend title if necessary
   if (is.null(plot.title.size)) {
-    plot.title.size <-
-      element_text(
-        size = plot.title.size,
-        face = plot.title.face,
-        margin = margin(0, 0, plot.title.space, 0)
-      )
+    plot.title.size <-element_text(
+      size = plot.title.size,
+      face = plot.title.face,
+      margin = margin(0, 0, plot.title.space, 0)
+    )
   } else if (plot.title.size == "none") {
     plot.title.size <- element_blank()
   } else {
-    plot.title.size <-
-      element_text(
-        size = plot.title.size,
-        face = plot.title.face,
-        margin = margin(0, 0, plot.title.space, 0)
-      )
+    plot.title.size <- element_text(
+      size = plot.title.size,
+      face = plot.title.face,
+      margin = margin(0, 0, plot.title.space, 0)
+    )
   }
 
   # Remove legend title if necessary
@@ -126,8 +124,6 @@ theme_modern <- function(base_size = 11,
       plot.tag = element_text(size = tags.size, face = tags.face),
       strip.background = element_blank(),
       strip.text = element_text(face = "bold"),
-      base_line_size = base_size / 22, # ggplot2 defaults
-      base_rect_size = base_size / 22,
       ...
     )
 }