Merge pull request #949 from sebkopf/skdev

small syntax error fix in labeller examples

Author: hadley

R/facet-labels.r

@@ -130,7 +130,7 @@ label_wrap_gen <- function(width = 25) {
 #'                          'domesticated'='Domesticated')
 #' ## Source: http://en.wikipedia.org/wiki/Uncyclopedia:Conservation_status 
 #'
-#' p2 <- ggplot(msleep, aes(x=sleep_total, y=awake)) + geom_point() + 
+#' p2 <- ggplot(msleep, aes(x=sleep_total, y=awake)) + geom_point() 
 #' p2 + facet_grid(vore ~ conservation, labeller=labeller(vore=capitalize))
 #'   
 #' p2 + facet_grid(vore ~ conservation, 
@@ -141,9 +141,9 @@ label_wrap_gen <- function(width = 25) {
 #' library(plyr)
 #' msleep$conservation2 <- revalue(msleep$conservation, conservation_status)                         
 #'
-#' p2 + facet_grid(vore ~ conservation2, labeller=labeller(vore=capitalize))
+#' p2 %+% msleep + facet_grid(vore ~ conservation2, labeller=labeller(vore=capitalize))
 #' 
-#' p2 + facet_grid(vore ~ conservation2, 
+#' p2 %+% msleep + facet_grid(vore ~ conservation2, 
 #'   labeller=labeller(conservation2=label_wrap_gen(10) ))
 #' 
 labeller <- function(..., keep.as.numeric=FALSE) {

man/labeller.Rd

@@ -63,7 +63,7 @@ conservation_status <- c('cd'='Conservation Dependent',
                          'domesticated'='Domesticated')
 ## Source: http://en.wikipedia.org/wiki/Uncyclopedia:Conservation_status
 
-p2 <- ggplot(msleep, aes(x=sleep_total, y=awake)) + geom_point() +
+p2 <- ggplot(msleep, aes(x=sleep_total, y=awake)) + geom_point()
 p2 + facet_grid(vore ~ conservation, labeller=labeller(vore=capitalize))
 
 p2 + facet_grid(vore ~ conservation,
@@ -74,9 +74,9 @@ p2 + facet_grid(vore ~ conservation,
 library(plyr)
 msleep$conservation2 <- revalue(msleep$conservation, conservation_status)
 
-p2 + facet_grid(vore ~ conservation2, labeller=labeller(vore=capitalize))
+p2 \%+\% msleep + facet_grid(vore ~ conservation2, labeller=labeller(vore=capitalize))
 
-p2 + facet_grid(vore ~ conservation2,
+p2 \%+\% msleep + facet_grid(vore ~ conservation2,
   labeller=labeller(conservation2=label_wrap_gen(10) ))
 }