Add examples to showcase themes

Author: jiho

R/theme-defaults.r

@@ -90,6 +90,15 @@ theme_bw <- function(base_size = 12, base_family = "") {
 #' @param base_family base font family
 #' @export
 #' @family themes
+#' @examples
+#' p <- ggplot(mtcars) + geom_point(aes(x = wt, y = mpg))
+#' p
+#' # 'classic' dark-on-light theme
+#' p + theme_bw()
+#' # this theme
+#' p + theme_linedraw()
+#' # variation with light box and axes legends
+#' p + theme_light()
 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%
@@ -113,6 +122,15 @@ theme_linedraw <- function(base_size = 12, base_family = "") {
 #' @param base_family base font family
 #' @export
 #' @family themes
+#' @examples
+#' p <- ggplot(mtcars) + geom_point(aes(x = wt, y = mpg))
+#' p
+#' # 'classic' dark-on-light theme
+#' p + theme_bw()
+#' # this theme
+#' p + theme_light()
+#' # variation with dark box and axes legends
+#' p + theme_linedraw()
 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%

man/theme_light.Rd

@@ -13,6 +13,16 @@ theme_light(base_size = 12, base_family = "")
 \description{
 A theme with white background and light grey lines
 }
+\examples{
+p <- ggplot(mtcars) + geom_point(aes(x = wt, y = mpg))
+p
+# 'classic' dark-on-light theme
+p + theme_bw()
+# this theme
+p + theme_light()
+# variation with dark box and axes legends
+p + theme_linedraw()
+}
 \seealso{
 Other themes: \code{\link{theme_bw}};
   \code{\link{theme_classic}}; \code{\link{theme_gray}},

man/theme_linedraw.Rd

@@ -13,6 +13,16 @@ theme_linedraw(base_size = 12, base_family = "")
 \description{
 A theme with white background and black gridlines.
 }
+\examples{
+p <- ggplot(mtcars) + geom_point(aes(x = wt, y = mpg))
+p
+# 'classic' dark-on-light theme
+p + theme_bw()
+# this theme
+p + theme_linedraw()
+# variation with light box and axes legends
+p + theme_light()
+}
 \seealso{
 Other themes: \code{\link{theme_bw}};
   \code{\link{theme_classic}}; \code{\link{theme_gray}},