Don't use deprecated scale_area

Author: hadley

R/fortify-lm.r

@@ -59,7 +59,7 @@
 #'   geom_abline(slope = seq(0, 3, by = 0.5), colour = "white") +
 #'   geom_smooth(se = FALSE) +
 #'   geom_point()
-#' qplot(.hat, .cooksd, size = .cooksd / .hat, data = mod) + scale_area()
+#' qplot(.hat, .cooksd, size = .cooksd / .hat, data = mod) + scale_size_area()
 fortify.lm <- function(model, data = model$model, ...) {
   infl <- influence(model, do.coef = FALSE)
   data$.hat <- infl$hat

R/geom-point-.r

@@ -58,7 +58,7 @@
 #'
 #' # Change scales
 #' p + geom_point(aes(colour = cyl)) + scale_colour_gradient(low = "blue")
-#' p + geom_point(aes(size = qsec)) + scale_area()
+#' p + geom_point(aes(size = qsec)) + scale_size_area()
 #' p + geom_point(aes(shape = factor(cyl))) + scale_shape(solid = FALSE)
 #'
 #' # Set aesthetics to fixed value

R/scale-size.r

@@ -15,8 +15,8 @@
 #'
 #' # Map area, instead of width/radius
 #' # Perceptually, this is a little better
-#' p + scale_area()
-#' p + scale_area(range = c(1, 25))
+#' p + scale_size_area()
+#' p + scale_size_area(range = c(1, 25))
 #'
 #' # Also works with factors, but not a terribly good
 #' # idea, unless your factor is ordered, as in this example

R/stat-sum.r

@@ -24,7 +24,7 @@
 #' # by overall proportion
 #' d + stat_sum(aes(group = 1))
 #' d + stat_sum(aes(group = 1)) + scale_size(range = c(3, 10))
-#' d + stat_sum(aes(group = 1)) + scale_area(range = c(3, 10))
+#' d + stat_sum(aes(group = 1)) + scale_size_area(range = c(3, 10))
 #'
 #' # by cut
 #' d + stat_sum(aes(group = cut))

man/fortify.lm.Rd

@@ -68,6 +68,6 @@ ggplot(mod, aes(.hat, .cooksd)) +
   geom_abline(slope = seq(0, 3, by = 0.5), colour = "white") +
   geom_smooth(se = FALSE) +
   geom_point()
-qplot(.hat, .cooksd, size = .cooksd / .hat, data = mod) + scale_area()
+qplot(.hat, .cooksd, size = .cooksd / .hat, data = mod) + scale_size_area()
 }
 

man/geom_point.Rd

@@ -70,7 +70,7 @@ p + geom_point(aes(size = qsec))
 
 # Change scales
 p + geom_point(aes(colour = cyl)) + scale_colour_gradient(low = "blue")
-p + geom_point(aes(size = qsec)) + scale_area()
+p + geom_point(aes(size = qsec)) + scale_size_area()
 p + geom_point(aes(shape = factor(cyl))) + scale_shape(solid = FALSE)
 
 # Set aesthetics to fixed value

man/scale_size.Rd

@@ -33,8 +33,8 @@ p + scale_size(range = c(1, 2))
 
 # Map area, instead of width/radius
 # Perceptually, this is a little better
-p + scale_area()
-p + scale_area(range = c(1, 25))
+p + scale_size_area()
+p + scale_size_area(range = c(1, 25))
 
 # Also works with factors, but not a terribly good
 # idea, unless your factor is ordered, as in this example

man/stat_sum.Rd

@@ -50,7 +50,7 @@ d + stat_sum()
 # by overall proportion
 d + stat_sum(aes(group = 1))
 d + stat_sum(aes(group = 1)) + scale_size(range = c(3, 10))
-d + stat_sum(aes(group = 1)) + scale_area(range = c(3, 10))
+d + stat_sum(aes(group = 1)) + scale_size_area(range = c(3, 10))
 
 # by cut
 d + stat_sum(aes(group = cut))