Fix #34

R/ggplot2.R

@@ -44,10 +44,10 @@
 #'   )
 #'
 #'   library(ggplot2)
-#'   ggplot(iris) +
-#'     aes(Petal.Length, Petal.Width) +
+#'   ggplot(mpg) +
+#'     aes(cty, hwy) +
 #'     geom_point() +
-#'     ggtitle("Yet another Iris plot") +
+#'     ggtitle("Fuel Efficiency of Various Cars") +
 #'     theme_xaringan()
 #' }
 #' @return A ggplot2 theme
@@ -132,10 +132,10 @@ theme_xaringan <- function(
 #'   )
 #'
 #'   library(ggplot2)
-#'   ggplot(iris) +
-#'     aes(Petal.Length, Petal.Width) +
+#'   ggplot(mpg) +
+#'     aes(cty, hwy) +
 #'     geom_point() +
-#'     ggtitle("Yet another Iris plot") +
+#'     ggtitle("Fuel Efficiency of Various Cars") +
 #'     # themed to match the inverse slides: teal background with dark blue text
 #'     theme_xaringan_inverse()
 #' }
@@ -237,8 +237,8 @@ theme_xaringan_inverse <- function(
 #' if (has_ggplot2) {
 #'   library(ggplot2)
 #'
-#'   plot1 <- ggplot(iris) +
-#'     aes(Petal.Length, Petal.Width) +
+#'   plot1 <- ggplot(mpg) +
+#'     aes(cty, hwy) +
 #'     geom_point() +
 #'     theme_xaringan_base(
 #'       text_color = "#602f6b",       # imperial
@@ -249,16 +249,16 @@ theme_xaringan_inverse <- function(
 #'       set_ggplot_defaults = TRUE
 #'     ) +
 #'     labs(
-#'       title = "Basic Iris Plot",
+#'       title = "Fuel Efficiency of Various Cars",
 #'       subtitle = "+ theme_xaringan_base()",
 #'       caption = "xaringanthemer"
 #'     )
 #'
 #'   print(plot1)
 #'
-#'   plot2 <- ggplot(iris) +
-#'     aes(Sepal.Width) +
-#'     geom_histogram(binwidth = 0.1) +
+#'   plot2 <- ggplot(mpg) +
+#'     aes(hwy) +
+#'     geom_histogram(binwidth = 2) +
 #'     theme_xaringan_base(
 #'       text_color = "#a8a9c8",       # light purple
 #'       background_color = "#303163", # deep slate purple
@@ -268,7 +268,7 @@ theme_xaringan_inverse <- function(
 #'       set_ggplot_defaults = TRUE
 #'     ) +
 #'     labs(
-#'       title = "Basic Iris Plot",
+#'       title = "Highway Fuel Efficiency",
 #'       subtitle = "+ theme_xaringan_base()",
 #'       caption = "xaringanthemer"
 #'     )

inst/rmarkdown/templates/xaringanthemer/skeleton/skeleton.Rmd

@@ -229,7 +229,7 @@ abline(fit, lwd = 2)
 If you want to generate a table, make sure it is in the HTML format (instead of Markdown or other formats), e.g.,
 
 ```{r}
-knitr::kable(head(iris), format = 'html')
+knitr::kable(head(mtcars), format = 'html')
 ```
 
 ---
@@ -253,7 +253,7 @@ leaflet() %>% addTiles() %>% setView(-93.65, 42.0285, zoom = 17)
 
 ```{r eval=require('DT'), tidy=FALSE}
 DT::datatable(
-  head(iris, 10),
+  mtcars[1:6, 1:6],
   fillContainer = FALSE, options = list(pageLength = 8)
 )
 ```

man/theme_xaringan.Rd

@@ -98,10 +98,10 @@ if (has_ggplot2) {
   )
 
   library(ggplot2)
-  ggplot(iris) +
-    aes(Petal.Length, Petal.Width) +
+  ggplot(mpg) +
+    aes(cty, hwy) +
     geom_point() +
-    ggtitle("Yet another Iris plot") +
+    ggtitle("Fuel Efficiency of Various Cars") +
     theme_xaringan()
 }
 }

man/theme_xaringan_base.Rd

@@ -87,8 +87,8 @@ has_ggplot2 <- requireNamespace("ggplot2", quietly = TRUE)
 if (has_ggplot2) {
   library(ggplot2)
 
-  plot1 <- ggplot(iris) +
-    aes(Petal.Length, Petal.Width) +
+  plot1 <- ggplot(mpg) +
+    aes(cty, hwy) +
     geom_point() +
     theme_xaringan_base(
       text_color = "#602f6b",       # imperial
@@ -99,16 +99,16 @@ if (has_ggplot2) {
       set_ggplot_defaults = TRUE
     ) +
     labs(
-      title = "Basic Iris Plot",
+      title = "Fuel Efficiency of Various Cars",
       subtitle = "+ theme_xaringan_base()",
       caption = "xaringanthemer"
     )
 
   print(plot1)
 
-  plot2 <- ggplot(iris) +
-    aes(Sepal.Width) +
-    geom_histogram(binwidth = 0.1) +
+  plot2 <- ggplot(mpg) +
+    aes(hwy) +
+    geom_histogram(binwidth = 2) +
     theme_xaringan_base(
       text_color = "#a8a9c8",       # light purple
       background_color = "#303163", # deep slate purple
@@ -118,7 +118,7 @@ if (has_ggplot2) {
       set_ggplot_defaults = TRUE
     ) +
     labs(
-      title = "Basic Iris Plot",
+      title = "Highway Fuel Efficiency",
       subtitle = "+ theme_xaringan_base()",
       caption = "xaringanthemer"
     )

man/theme_xaringan_inverse.Rd

@@ -98,10 +98,10 @@ if (has_ggplot2) {
   )
 
   library(ggplot2)
-  ggplot(iris) +
-    aes(Petal.Length, Petal.Width) +
+  ggplot(mpg) +
+    aes(cty, hwy) +
     geom_point() +
-    ggtitle("Yet another Iris plot") +
+    ggtitle("Fuel Efficiency of Various Cars") +
     # themed to match the inverse slides: teal background with dark blue text
     theme_xaringan_inverse()
 }