explicit theme_grey and fill=NA for readable ggplot

Author: tdhock

tests/testthat/test-ggplot-area.R

@@ -3,7 +3,9 @@ context("Area")
 huron <- data.frame(year=1875:1972, level=as.vector(LakeHuron))
 huron$decade <- plyr::round_any(huron$year, 10, floor)
 
-ar <- ggplot(huron) + geom_area(aes(x=year, y=level))
+ar <- ggplot(huron) +
+  theme_grey()+
+  geom_area(aes(x=year, y=level))
 L <- gg2list(ar)
 
 test_that("sanity check for geom_area", {
@@ -17,7 +19,9 @@ test_that("sanity check for geom_area", {
 save_outputs(ar, "area")
 
 # Test alpha transparency in fill color
-gg <- ggplot(huron) + geom_area(aes(x=year, y=level), alpha=0.4)
+gg <- ggplot(huron) +
+  theme_grey()+
+  geom_area(aes(x=year, y=level), alpha=0.4)
 L <- gg2list(gg)
 
 test_that("transparency alpha in geom_area is converted", {

tests/testthat/test-ggplot-theme.R

@@ -88,8 +88,9 @@ test_that("plot panel border is translated correctly", {
   save_outputs(ggiris, "theme-panel-border-1")
 
   red <- ggplot(iris) +
+    theme_grey()+
     geom_point(aes(Petal.Width, Sepal.Width)) +
-    theme(panel.border=element_rect(colour="red"))
+    theme(panel.border=element_rect(colour="red", fill=NA))
   info <- gg2list(red)
   for (xy in c("x", "y")) {
     ax.list <- info$kwargs$layout[[paste0(xy, "axis")]]