Tweak shape example

Author: hadley

R/scale-shape.r

@@ -27,10 +27,11 @@
 #'
 #' # Show a list of available shapes
 #' df_shapes <- data.frame(shape = 0:24)
-#' ggplot(df_shapes, aes(shape = shape)) +
-#'   geom_point(aes(shape = shape, x = 0, y = 0), size = 5, fill = 'red') +
+#' ggplot(df_shapes, aes(0, 0, shape = shape)) +
+#'   geom_point(aes(shape = shape), size = 5, fill = 'red') +
 #'   scale_shape_identity() +
-#'   facet_wrap(~shape) + theme_void()
+#'   facet_wrap(~shape) +
+#'   theme_void()
 scale_shape <- function(..., solid = TRUE) {
   discrete_scale("shape", "shape_d", shape_pal(solid), ...)
 }