Fix typo, reported by Mat Stigler

Author: hadley

R/quick-plot.r

@@ -1,24 +1,24 @@
 #' Quick plot
 #'
-#' \code{qplot} is the basic plotting function in the ggplot2 package, 
-#' designed to be familiar if you're used to \code{\link{plot}} 
-#' from the base package. It is a convenient wrapper for creating 
-#' a number of different types of plots using a consistent 
+#' \code{qplot} is the basic plotting function in the ggplot2 package,
+#' designed to be familiar if you're used to \code{\link{plot}}
+#' from the base package. It is a convenient wrapper for creating
+#' a number of different types of plots using a consistent
 #' calling scheme. See \url{http://had.co.nz/ggplot2/book/qplot.pdf}
 #' for the chapter in the \code{ggplot2} book which describes the usage
 #' of \code{qplot} in detail.
-#' 
+#'
 #' @param x x values
 #' @param y y values
 #' @param ... other aesthetics passed for each layer
-#' @param data data frame to use (optional).  If not specified, will create 
+#' @param data data frame to use (optional).  If not specified, will create
 #'   one, extracting vectors from the current environment.
 #' @param facets faceting formula to use.  Picks \code{\link{facet_wrap}} or
 #'   \code{\link{facet_grid}} depending on whether the formula is one sided
 #'   or two-sided
 #' @param margins whether or not margins will be displayed
-#' @param geom character vector specifying geom to use.  Defaults to 
-#'  "point" if x and y are specified, and "histogram" is on x is specified.
+#' @param geom character vector specifying geom to use.  Defaults to
+#'  "point" if x and y are specified, and "histogram" if only x is specified.
 #' @param stat character vector specifying statistics to use
 #' @param position character vector giving position adjustment to use
 #' @param xlim limits for x axis
@@ -28,8 +28,8 @@
 #' @param xlab character vector or expression for x axis label
 #' @param ylab character vector or expression for y axis label
 #' @param asp the y/x aspect ratio
-#' @aliases qplot quickplot 
-#' @export qplot quickplot 
+#' @aliases qplot quickplot
+#' @export qplot quickplot
 #' @examples
 #' \donttest{
 #' # Use data from data.frame
@@ -59,17 +59,17 @@
 #'    a <- 1:10
 #'    b <- a ^ 2
 #'    qplot(a, b)
-#' } 
+#' }
 #' f()
-#' 
+#'
 #' # qplot will attempt to guess what geom you want depending on the input
 #' # both x and y supplied = scatterplot
 #' qplot(mpg, wt, data = mtcars)
 #' # just x supplied = histogram
 #' qplot(mpg, data = mtcars)
 #' # just y supplied = scatterplot, with x = seq_along(y)
 #' qplot(y = mpg, data = mtcars)
-#' 
+#'
 #' # Use different geoms
 #' qplot(mpg, wt, data = mtcars, geom="path")
 #' qplot(factor(cyl), wt, data = mtcars, geom=c("boxplot", "jitter"))
@@ -78,13 +78,13 @@ qplot <- function(x, y = NULL, ..., data, facets = NULL, margins=FALSE, geom = "
 
   argnames <- names(as.list(match.call(expand.dots=FALSE)[-1]))
   arguments <- as.list(match.call()[-1])
-  
+
   aesthetics <- compact(arguments[.all_aesthetics])
   aesthetics <- aesthetics[!is.constant(aesthetics)]
   aes_names <- names(aesthetics)
   aesthetics <- rename_aes(aesthetics)
   class(aesthetics) <- "uneval"
-  
+
   if (missing(data)) {
     # If data not explicitly specified, will be pulled from workspace
     data <- data.frame()
@@ -115,46 +115,46 @@ qplot <- function(x, y = NULL, ..., data, facets = NULL, margins=FALSE, geom = "
 
   env <- parent.frame()
   p <- ggplot(data, aesthetics, environment = env)
-  
+
   if (is.null(facets)) {
     p <- p + facet_null()
   } else if (is.formula(facets) && length(facets) == 2) {
     p <- p + facet_wrap(facets)
   } else {
     p <- p + facet_grid(facets = deparse(facets), margins = margins)
   }
-  
+
   if (!is.null(main)) p <- p + ggtitle(main)
 
   # Add geoms/statistics
   if (is.proto(position)) position <- list(position)
-  
+
   mapply(function(g, s, ps) {
     if(is.character(g)) g <- Geom$find(g)
     if(is.character(s)) s <- Stat$find(s)
     if(is.character(ps)) ps <- Position$find(ps)
-    
+
     # Have to use non-standard evaluation because we can't evaluate ...
     params <- arguments[setdiff(names(arguments), c(aes_names, argnames))]
     # 1: mapply, 2: qplot, 3: caller of qplot
     params <- lapply(params, eval, parent.frame(3))
-    
+
     p <<- p + layer(geom=g, stat=s, geom_params=params, stat_params=params, position=ps)
   }, geom, stat, position)
-  
+
   logv <- function(var) var %in% strsplit(log, "")[[1]]
 
   if (logv("x")) p <- p + scale_x_log10()
   if (logv("y")) p <- p + scale_y_log10()
-  
+
   if (!is.na(asp)) p <- p + theme(aspect.ratio = asp)
-  
+
   if (!missing(xlab)) p <- p + xlab(xlab)
   if (!missing(ylab)) p <- p + ylab(ylab)
-  
+
   if (!missing(xlim)) p <- p + xlim(xlim)
   if (!missing(ylim)) p <- p + ylim(ylim)
-  
+
   p
 }
 quickplot <- qplot