Do not overwrite theme_bw and change names

Author: jiho

NAMESPACE

@@ -390,7 +390,9 @@ export(theme_classic)
 export(theme_get)
 export(theme_gray)
 export(theme_grey)
+export(theme_light)
 export(theme_line)
+export(theme_linedraw)
 export(theme_minimal)
 export(theme_rect)
 export(theme_segment)

R/theme-defaults.r

@@ -61,12 +61,33 @@ theme_grey <- function(base_size = 12, base_family = "") {
 theme_gray <- theme_grey
 
 
-#' A theme with white background and black gridlines.
+#' A theme with white background and dark gridlines.
 #'
 #' @param base_size base font size
 #' @param base_family base font family
 #' @export
 theme_bw <- 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.text         = element_text(size = rel(0.8)),
+      axis.ticks        = element_line(colour = "black"),
+      legend.key        = element_rect(colour = "grey80"),
+      panel.background  = element_rect(fill = "white", colour = NA),
+      panel.border      = element_rect(fill = NA, colour = "grey50"),
+      panel.grid.major  = element_line(colour = "grey90", size = 0.2),
+      panel.grid.minor  = element_line(colour = "grey98", size = 0.5),
+      strip.background  = element_rect(fill = "grey80", colour = "grey50"),
+      strip.background  = element_rect(fill = "grey80", colour = "grey50")
+    )
+}
+
+#' A theme with white background and black gridlines.
+#'
+#' @param base_size base font size
+#' @param base_family base font family
+#' @export
+theme_linedraw <- 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(
@@ -83,12 +104,12 @@ theme_bw <- function(base_size = 12, base_family = "") {
     )
 }
 
-#' A theme with white background.
+#' A theme with white background and light grey lines
 #'
 #' @param base_size base font size
 #' @param base_family base font family
 #' @export
-theme_white <- function(base_size = 12, base_family = "") {
+theme_light <- 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(
@@ -102,6 +123,7 @@ theme_white <- function(base_size = 12, base_family = "") {
       strip.text.x      = element_text(colour = "white"),
       strip.text.y      = element_text(colour = "white", angle = -90)
     )
+
 }
 
 #' A minimalistic theme with no background annotations.

man/theme_bw.Rd

@@ -1,7 +1,7 @@
 % Generated by roxygen2 (4.0.0): do not edit by hand
 \name{theme_bw}
 \alias{theme_bw}
-\title{A theme with white background and black gridlines.}
+\title{A theme with white background and dark gridlines.}
 \usage{
 theme_bw(base_size = 12, base_family = "")
 }
@@ -11,6 +11,6 @@ theme_bw(base_size = 12, base_family = "")
   \item{base_family}{base font family}
 }
 \description{
-A theme with white background and black gridlines.
+A theme with white background and dark gridlines.
 }
 

man/theme_light.Rd

@@ -0,0 +1,16 @@
+% Generated by roxygen2 (4.0.0): do not edit by hand
+\name{theme_light}
+\alias{theme_light}
+\title{A theme with white background and light grey lines}
+\usage{
+theme_light(base_size = 12, base_family = "")
+}
+\arguments{
+  \item{base_size}{base font size}
+
+  \item{base_family}{base font family}
+}
+\description{
+A theme with white background and light grey lines
+}
+

man/theme_linedraw.Rd

@@ -0,0 +1,16 @@
+% Generated by roxygen2 (4.0.0): do not edit by hand
+\name{theme_linedraw}
+\alias{theme_linedraw}
+\title{A theme with white background and black gridlines.}
+\usage{
+theme_linedraw(base_size = 12, base_family = "")
+}
+\arguments{
+  \item{base_size}{base font size}
+
+  \item{base_family}{base font family}
+}
+\description{
+A theme with white background and black gridlines.
+}
+