Nice legend for boxplots. Tweak default size scale

NEWS

@@ -12,6 +12,8 @@ Improved documentation
   * functions are silently dropped (e.g. aes(colour=col))
   * scales do not try and map variables than don't exist (fixes some rather obscure bugs)
 
+  * geom_boxplot: now has it's own legend which actually looks like a boxplot
+  * scale_size: changed default range to [0.5, 3] to better reflect new sizing decisions
   * geom_boxplot: reports if missing values removed
   * geom_boxplot: deals with continuous x-axis and grouping much better
   * coord_polar: add start and direction parameters, giving more control over the layout of the polar coords

R/geom-interval-boxplot.r

@@ -15,7 +15,18 @@ GeomBoxplot <- proto(GeomInterval, {
 
   objname <- "boxplot"
   desc <- "Box and whiskers plot"
-  guide_geom <- function(.) "tile"
+  guide_geom <- function(.) "boxplot"
+
+  draw_legend <- function(., data, ...)  {
+    data <- aesdefaults(data, .$default_aes(), list(...))
+    gp <- with(data, gpar(col=colour, fill=fill, lwd=size * .pt))
+
+    gTree(children = gList(
+      linesGrob(0.5, c(0.1, 0.9)),
+      rectGrob(height=0.5, width=0.75),
+      linesGrob(c(0.125, 0.875), 0.5)
+    ), gp = gp)
+  }
   icon <- function(.) {
     gTree(children=gList(
       segmentsGrob(c(0.3, 0.7), c(0.1, 0.2), c(0.3, 0.7), c(0.7, 0.95)),
@@ -50,13 +61,13 @@ GeomBoxplot <- proto(GeomInterval, {
     # Add aesthetic mappings
     p + geom_boxplot(aes(fill=cyl))
     p + geom_boxplot(aes(fill=factor(cyl)))
-    p + geom_boxplot(aes(colour=cyl), size=2)
+    p + geom_boxplot(aes(colour=cyl), size=1)
 
     # Dodged boxplots
     # - automatically split when an aesthetic variable is a factor
     p + geom_boxplot(aes(colour=factor(am)))
     p + geom_boxplot(aes(fill=factor(vs)), colour="black")
-    p + geom_boxplot(aes(size=factor(gear))) + scale_size(to=c(0.5, 2))
+    p + geom_boxplot(aes(size=factor(gear)))
 
     # Set aesthetics to fixed value
     p + geom_boxplot(fill="black", colour="white", size=1)

R/scale-size.r

@@ -2,7 +2,7 @@ ScaleSize <- proto(ScaleContinuous, expr={
   common <- NULL
   .input <- .output  <- "size"
 
-  new <- function(., name=NULL, to=c(1, 5)) {
+  new <- function(., name=NULL, to=c(0.2, 3)) {
     .$proto(name=name, .range=to)
   }