Merge pull request #1018 from jiho/feature/theme_dark

Dark theme

Author: hadley

NAMESPACE

@@ -392,6 +392,7 @@ export(stat_ydensity)
 export(theme)
 export(theme_bw)
 export(theme_classic)
+export(theme_dark)
 export(theme_get)
 export(theme_gray)
 export(theme_grey)

NEWS

@@ -55,6 +55,9 @@ ggplot2 1.0.0
 
 NEW FEATURES
 
+* New dark-backgrounded theme, `theme_dark()`, meant to make colours pop out
+  (@jiho, #1018)
+
 * New coordinate system for small scale maps. `coord_quickmap()` computes and
   sets the correct aspect ratio between one degree of latitude and one degree
   of longitude at the centre of the plotted region. It does not perform full

R/theme-defaults.r

@@ -26,6 +26,9 @@
 #' A theme similar to \code{theme_linedraw} but with light grey lines and axes,
 #' to direct more attention towards the data.}
 #'
+#' \item{\code{theme_dark}}{
+#' The dark cousin of \code{theme_light}, with similar line sizes but a dark background. Useful to make thin coloured lines pop out.}
+#'
 #' \item{\code{theme_minimal}}{
 #' A minimalistic theme with no background annotations.}
 #'
@@ -194,3 +197,20 @@ theme_classic <- function(base_size = 12, base_family = ""){
       legend.key       = element_blank()
     )
 }
+
+#' @export
+#' @rdname ggtheme
+theme_dark <- function(base_size = 12, base_family = "") {
+  # Starts with theme_grey and then modify some parts
+  theme_grey(base_size = base_size, base_family = base_family) %+replace%
+    theme(
+      axis.ticks        = element_line(colour = "grey40", size = 0.25),
+      legend.key        = element_rect(fill = "grey50", colour = "grey40", size=0.25),
+      panel.background  = element_rect(fill = "grey50", colour = NA),
+      panel.grid.major  = element_line(colour = "grey40", size = 0.25),
+      panel.grid.minor  = element_line(colour = "grey45", size = 0.125),
+      strip.background  = element_rect(fill = "grey20", colour = NA),
+      strip.text.x      = element_text(colour = "white"),
+      strip.text.y      = element_text(colour = "white", angle = -90)
+    )
+}

man/ggtheme.Rd

@@ -4,6 +4,7 @@
 \alias{ggtheme}
 \alias{theme_bw}
 \alias{theme_classic}
+\alias{theme_dark}
 \alias{theme_gray}
 \alias{theme_grey}
 \alias{theme_light}
@@ -24,6 +25,8 @@ theme_light(base_size = 12, base_family = "")
 theme_minimal(base_size = 12, base_family = "")
 
 theme_classic(base_size = 12, base_family = "")
+
+theme_dark(base_size = 12, base_family = "")
 }
 \arguments{
 \item{base_size}{base font size}
@@ -55,6 +58,9 @@ may refuse.}
 A theme similar to \code{theme_linedraw} but with light grey lines and axes,
 to direct more attention towards the data.}
 
+\item{\code{theme_dark}}{
+The dark cousin of \code{theme_light}, with similar line sizes but a dark background. Useful to make thin coloured lines pop out.}
+
 \item{\code{theme_minimal}}{
 A minimalistic theme with no background annotations.}