Merge pull request #934 from jiho/theme_improvements

Small (but important) improvement to some themes

Author: hadley

NEWS

@@ -1,5 +1,8 @@
 ggplot2 0.9.3.1.99
 ----------------------------------------------------------------
+
+* Marginal improvements to `theme_bw` and `theme_classic` (@jiho, #934)
+
 * `stat_ellipse()` adds data ellipses. It supports bivariate normal and t distributions,
   as well as a euclidian distance circle. (@jofrhwld, #926)
 

R/theme-defaults.r

@@ -122,8 +122,7 @@ theme_bw <- function(base_size = 12, base_family = "") {
       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")
+      strip.background  = element_rect(fill = "grey80", colour = "grey50", size = 0.2)
     )
 }
 
@@ -188,6 +187,8 @@ theme_classic <- function(base_size = 12, base_family = ""){
       panel.border     = element_blank(),
       axis.line        = element_line(colour = "black"),
       panel.grid.major = element_blank(),
-      panel.grid.minor = element_blank()
+      panel.grid.minor = element_blank(),
+      strip.background = element_rect(colour = "black", size = 0.5),
+      legend.key       = element_blank()
     )
 }