Rebased and documented with devel roxygen2.

Author: stefanedwards

.Rproj.user/8FAC18A5/pcs/files-pane.pper

@@ -0,0 +1,9 @@
+{
+    "path" : "C:/Users/STME/GitHub/ggplot2/R",
+    "sortOrder" : [
+        {
+            "ascending" : true,
+            "columnIndex" : 2
+        }
+    ]
+}

.Rproj.user/8FAC18A5/pcs/source-pane.pper

@@ -0,0 +1,3 @@
+{
+    "activeTab" : 0
+}

.Rproj.user/8FAC18A5/pcs/windowlayoutstate.pper

@@ -0,0 +1,14 @@
+{
+    "left" : {
+        "panelheight" : 959,
+        "splitterpos" : 398,
+        "topwindowstate" : "NORMAL",
+        "windowheight" : 997
+    },
+    "right" : {
+        "panelheight" : 959,
+        "splitterpos" : 598,
+        "topwindowstate" : "NORMAL",
+        "windowheight" : 997
+    }
+}

.Rproj.user/8FAC18A5/pcs/workbench-pane.pper

@@ -0,0 +1,4 @@
+{
+    "TabSet1" : 0,
+    "TabSet2" : 1
+}

.Rproj.user/8FAC18A5/sdb/per/t/D86377F7

@@ -0,0 +1,16 @@
+{
+    "contents" : "#' Label facets with their value.\n#' This is the default labelling scheme.\n#' \n#' @param variable variable name passed in by facetter\n#' @param value variable value passed in by facetter\n#' @family facet labellers\n#' @export\n#' @examples\n#' p <- qplot(wt, mpg, data = mtcars)\n#' p + facet_grid(. ~ cyl)\n#' p + facet_grid(. ~ cyl, labeller = label_value)\nlabel_value <- function(variable, value) as.character(value)\n\n#' Label facets with value and variable.\n#' \n#' @param variable variable name passed in by facetter\n#' @param value variable value passed in by facetter\n#' @family facet labellers\n#' @export\n#' @examples\n#' p <- qplot(wt, mpg, data = mtcars)\n#' p + facet_grid(. ~ cyl)\n#' p + facet_grid(. ~ cyl, labeller = label_both)\nlabel_both <- function(variable, value) paste(variable, value, sep = \": \")\n\n#' Label facets with parsed label.\n#' \n#' @seealso \\code{\\link{plotmath}}\n#' @param variable variable name passed in by facetter\n#' @param value variable value passed in by facetter\n#' @family facet labellers\n#' @export\n#' @examples\n#' mtcars$cyl2 <- factor(mtcars$cyl, labels = c(\"alpha\", \"beta\", \"gamma\"))\n#' qplot(wt, mpg, data = mtcars) + facet_grid(. ~ cyl2)\n#' qplot(wt, mpg, data = mtcars) + facet_grid(. ~ cyl2, \n#'   labeller = label_parsed)\nlabel_parsed <- function(variable, value) {\n  llply(as.character(value), function(x) parse(text = x))\n}\n\n#' Label facet with 'bquoted' expressions\n#' \n#' See \\code{\\link{bquote}} for details on the syntax of the argument.  The\n#' label value is x. \n#' \n#' @param expr labelling expression to use\n#' @family facet labellers\n#' @seealso \\code{\\link{plotmath}}\n#' @export\n#' @examples\n#' p <- qplot(wt, mpg, data = mtcars)\n#' p + facet_grid(. ~ vs, labeller = label_bquote(alpha ^ .(x)))\n#' p + facet_grid(. ~ vs, labeller = label_bquote(.(x) ^ .(x)))\nlabel_bquote <- function(expr = beta ^ .(x)) {\n  quoted <- substitute(expr)\n  \n  function(variable, value) {\n    value <- as.character(value)\n    lapply(value, function(x)\n      eval(substitute(bquote(expr, list(x = x)), list(expr = quoted))))\n  }\n}\n\n#' Label facets with a word wrapped label.\n#' \n#' Uses \\code{\\link[base]{strwrap}} for line wrapping.\n#' @param width integer, target column width for output.\n#' @export\n#' @seealso , \\code{\\link{labeller}}\n#' @examples\n#' set.seed(331)\n#' x=runif(60)\n#' y=rnorm(60)\n#' speed=sample(c('Prime group', 'Rib group', 'No group'), 60, replace=TRUE)\n#' group=sample(letters[1:3], 60, replace=TRUE)\n#' \n#' df = data.frame(x=x, y=y, speed=as.factor(speed), group=as.factor(group))\n#' group.names <- c('a'='First','b'='Second','c'=\"Don\\'t\")\n#' \n#' ggplot(df, aes(x, y)) + geom_point() + facet_grid(speed ~ group, labeller=label_wrap_gen(3))\n#' ggplot(df, aes(x, y)) + geom_point() + facet_grid(speed ~ group, labeller=labeller(speed=label_wrap_gen(3), group=group.names))\nlabel_wrap_gen <- function(width = 25) {\n  function(variable, value) {\n    lapply(strwrap(as.character(value), width=width, simplify=FALSE), \n           paste, collapse=\"\\n\")\n  }\n}\n\n#' Generic labeller function for facets\n#' \n#' One-step function for providing methods or named character vectors\n#' as labels in facets.\n#'\n#' @param keep.as.numbers logical, default TRUE. When FALSE, converts numeric values supplied as margins to the facet to characters.\n#' @family facet labeller\n#' @return Function to supply to \\code{\\link{facet_grid}} for the argument \\code{labeller}.\n#' @export \n#' @examples\n#' numbers <- c(`4`='four', `6`='six', `8`='eight')\n#' vs <- c(`0`='No vs', `1`='vs')\n#' p <- ggplot(mtcars, aes(mpg, wt)) + geom_point()\n#' p + facet_grid(vs~cyl, labeller=labeller(cyl=numbers, vs=vs))\nlabeller <- function(keep.as.numeric=FALSE, ...) {\n  args <- list(...)\n  lbl <- function(variable, values) {\n    res <- args[[variable]]\n    if (is.numeric(values) & !keep.as.numeric) values <- as.character(values)\n    #print(str(variable))\n    #print(str(values))\n    \n    if (is.null(res)) {\n      if (is.factor(values)) return(levels(values[drop=TRUE]))\n      return(values)\n    }\n    if (is.function(res)) return(res(variable, values))\n    if (is.logical(values)) values <- as.integer(values)+1\n    if (is.factor(values)) values <- levels(values)[values]\n    return(res[values])\n  }\n  return(lbl)\n}\n\n\n\n# Grob for strip labels\nggstrip <- function(text, horizontal=TRUE, theme) {\n  text_theme <- if (horizontal) \"strip.text.x\" else \"strip.text.y\"\n  if (is.list(text)) text <- text[[1]]\n\n  label <- element_render(theme, text_theme, text)\n\n  ggname(\"strip\", absoluteGrob(\n    gList(\n      element_render(theme, \"strip.background\"),\n      label\n    ),\n    width = grobWidth(label) + unit(0.5, \"lines\"),\n    height = grobHeight(label) + unit(0.5, \"lines\")\n  ))\n}\n",
+    "created" : 1391521489199.000,
+    "dirty" : false,
+    "encoding" : "UTF-8",
+    "folds" : "",
+    "hash" : "3399979365",
+    "id" : "D86377F7",
+    "lastKnownWriteTime" : 1391522077,
+    "path" : "C:/Users/STME/GitHub/ggplot2/R/facet-labels.r",
+    "project_path" : "R/facet-labels.r",
+    "properties" : {
+    },
+    "source_on_save" : false,
+    "type" : "r_source"
+}

.Rproj.user/8FAC18A5/sdb/prop/84E407BA

@@ -0,0 +1,2 @@
+{
+}

.Rproj.user/8FAC18A5/sdb/prop/INDEX

@@ -0,0 +1 @@
+C%3A%2FUsers%2FSTME%2FGitHub%2Fggplot2%2FR%2Ffacet-labels.r="84E407BA"

NAMESPACE

@@ -1,3 +1,5 @@
+# Generated by roxygen2 (4.0.0): do not edit by hand
+
 S3method("+",gg)
 S3method("[",uneval)
 S3method(as.character,uneval)
@@ -270,6 +272,8 @@ export(label_both)
 export(label_bquote)
 export(label_parsed)
 export(label_value)
+export(label_wrap_gen)
+export(labeller)
 export(labs)
 export(last_plot)
 export(layer)

R i386 3.0.2.lnk

@@ -0,0 +1,16 @@
+Version: 1.0
+
+RestoreWorkspace: Default
+SaveWorkspace: Default
+AlwaysSaveHistory: Default
+
+EnableCodeIndexing: Yes
+UseSpacesForTab: Yes
+NumSpacesForTab: 2
+Encoding: UTF-8
+
+RnwWeave: knitr
+LaTeX: pdfLaTeX
+
+BuildType: Package
+PackageInstallArgs: --no-multiarch --with-keep.source

ggplot2.Rproj

@@ -1,3 +1,4 @@
+% Generated by roxygen2 (4.0.0): do not edit by hand
 \name{absoluteGrob}
 \alias{absoluteGrob}
 \title{Absolute grob}

man/absoluteGrob.Rd

@@ -1,3 +1,4 @@
+% Generated by roxygen2 (4.0.0): do not edit by hand
 \name{add_theme}
 \alias{add_theme}
 \title{Modify properties of an element in a theme object}

man/add_theme.Rd

@@ -1,3 +1,4 @@
+% Generated by roxygen2 (4.0.0): do not edit by hand
 \name{aes}
 \alias{aes}
 \title{Generate aesthetic mappings that describe how variables in the data are
@@ -14,21 +15,18 @@ aes(x, y, ...)
   map.}
 }
 \description{
-\code{aes} creates a list of unevaluated expressions.  This
-function also performs partial name matching, converts
-color to colour, and old style R names to ggplot names (eg.
-pch to shape, cex to size)
+\code{aes} creates a list of unevaluated expressions.  This function also
+performs partial name matching, converts color to colour, and old style R
+names to ggplot names (eg. pch to shape, cex to size)
 }
 \examples{
 aes(x = mpg, y = wt)
 aes(x = mpg ^ 2, y = wt / cyl)
 }
 \seealso{
 \code{\link{aes_string}} for passing quoted variable names.
-\code{\link{aes_colour_fill_alpha}},
-\code{\link{aes_group_order}},
-\code{\link{aes_linetype_size_shape}} and
-\code{\link{aes_position}} for more specific examples with
-different aesthetics.
+   \code{\link{aes_colour_fill_alpha}}, \code{\link{aes_group_order}},
+   \code{\link{aes_linetype_size_shape}} and \code{\link{aes_position}}
+   for more specific examples with different aesthetics.
 }
 

man/aes.Rd

@@ -1,3 +1,4 @@
+% Generated by roxygen2 (4.0.0): do not edit by hand
 \name{aes_all}
 \alias{aes_all}
 \title{Given a character vector, create a set of identity mappings}

man/aes_all.Rd

@@ -1,3 +1,4 @@
+% Generated by roxygen2 (4.0.0): do not edit by hand
 \name{aes_auto}
 \alias{aes_auto}
 \title{Automatic aesthetic mapping}

man/aes_auto.Rd

@@ -1,3 +1,4 @@
+% Generated by roxygen2 (4.0.0): do not edit by hand
 \name{aes_colour_fill_alpha}
 \alias{aes_colour_fill_alpha}
 \alias{alpha}
@@ -6,8 +7,8 @@
 \alias{fill}
 \title{Colour related aesthetics: colour, fill and alpha}
 \description{
-This page demonstrates the usage of a sub-group of
-aesthetics; colour, fill and alpha.
+This page demonstrates the usage of a sub-group
+of aesthetics; colour, fill and alpha.
 }
 \examples{
 \donttest{

man/aes_colour_fill_alpha.Rd

@@ -1,3 +1,4 @@
+% Generated by roxygen2 (4.0.0): do not edit by hand
 \name{aes_group_order}
 \alias{aes_group_order}
 \alias{group}

man/aes_group_order.Rd

@@ -1,12 +1,13 @@
+% Generated by roxygen2 (4.0.0): do not edit by hand
 \name{aes_linetype_size_shape}
 \alias{aes_linetype_size_shape}
 \alias{linetype}
 \alias{shape}
 \alias{size}
 \title{Differentiation related aesthetics: linetype, size, shape}
 \description{
-This page demonstrates the usage of a sub-group of
-aesthetics; linetype, size and shape.
+This page demonstrates the usage of a sub-group
+of aesthetics; linetype, size and shape.
 }
 \examples{
 # Line types should be specified with either an integer, a name, or with a string of

man/aes_linetype_size_shape.Rd

@@ -1,3 +1,4 @@
+% Generated by roxygen2 (4.0.0): do not edit by hand
 \name{aes_position}
 \alias{aes_position}
 \alias{x}
@@ -10,8 +11,8 @@
 \alias{ymin}
 \title{Position related aesthetics: x, y, xmin, xmax, ymin, ymax, xend, yend}
 \description{
-This page demonstrates the usage of a sub-group of
-aesthetics; x, y, xmin, xmax, ymin, ymax, xend, and yend.
+This page demonstrates the usage of a sub-group
+of aesthetics; x, y, xmin, xmax, ymin, ymax, xend, and yend.
 }
 \examples{
 # Generate data: means and standard errors of means for prices

man/aes_position.Rd

@@ -1,3 +1,4 @@
+% Generated by roxygen2 (4.0.0): do not edit by hand
 \name{aes_string}
 \alias{aes_string}
 \title{Generate aesthetic mappings from a string}
@@ -8,16 +9,14 @@ aes_string(...)
   \item{...}{List of name value pairs}
 }
 \description{
-Aesthetic mappings describe how variables in the data are
-mapped to visual properties (aesthetics) of geoms.
-Compared to aes this function operates on strings rather
-than expressions.
+Aesthetic mappings describe how variables in the data are mapped to visual
+properties (aesthetics) of geoms.  Compared to aes this function operates
+on strings rather than expressions.
 }
 \details{
-\code{aes_string} is particularly useful when writing
-functions that create plots because you can use strings to
-define the aesthetic mappings, rather than having to mess
-around with expressions.
+\code{aes_string} is particularly useful when writing functions that create
+plots because you can use strings to define the aesthetic mappings, rather
+than having to mess around with expressions.
 }
 \examples{
 aes_string(x = "mpg", y = "wt")

man/aes_string.Rd

@@ -1,3 +1,4 @@
+% Generated by roxygen2 (4.0.0): do not edit by hand
 \name{annotate}
 \alias{annotate}
 \title{Create an annotation layer.}
@@ -15,18 +16,17 @@ annotate(geom, x = NULL, y = NULL, xmin = NULL, xmax = NULL,
   can do (e.g.)  \code{colour = "red"} to get a red point.}
 }
 \description{
-This function adds geoms to a plot. Unlike typical a geom
-function, the properties of the geoms are not mapped from
-variables of a data frame, but are instead in as vectors.
-This is useful for adding small annotations (such as text
-labels) or if you have your data in vectors, and for some
+This function adds geoms to a plot. Unlike typical a geom function,
+the properties of the geoms are not mapped from variables of a data frame,
+but are instead in as vectors. This is useful for adding small annotations
+(such as text labels) or if you have your data in vectors, and for some
 reason don't want to put them in a data frame.
 }
 \details{
-Note that all position aesthetics are scaled (i.e. they
-will expand the limits of the plot so they are visible),
-but all other aesthetics are set. This means that layers
-created with this function will never affect the legend.
+Note that all position aesthetics are scaled (i.e. they will expand the
+limits of the plot so they are visible), but all other aesthetics are
+set. This means that layers created with this function will never
+affect the legend.
 }
 \examples{
 p <- ggplot(mtcars, aes(x = wt, y = mpg)) + geom_point()

man/annotate.Rd

@@ -1,3 +1,4 @@
+% Generated by roxygen2 (4.0.0): do not edit by hand
 \name{annotation_custom}
 \alias{annotation_custom}
 \title{Annotation: Custom grob.}
@@ -15,22 +16,19 @@ annotation_custom(grob, xmin = -Inf, xmax = Inf, ymin = -Inf,
   vertical location of raster}
 }
 \description{
-This is a special geom intended for use as static
-annnotations that are the same in every panel. These
-anotations will not affect scales (i.e. the x and y axes
-will not grow to cover the range of the grob, and the grob
-will not be modified by any ggplot settings or mappings).
+This is a special geom intended for use as static annnotations
+that are the same in every panel. These anotations will not
+affect scales (i.e. the x and y axes will not grow to cover the range
+of the grob, and the grob will not be modified by any ggplot settings or mappings).
 }
 \details{
-Most useful for adding tables, inset plots, and other
-grid-based decorations.
+Most useful for adding tables, inset plots, and other grid-based decorations.
 }
 \note{
-\code{annotation_custom} expects the grob to fill the
-entire viewport defined by xmin, xmax, ymin, ymax. Grobs
-with a different (absolute) size will be center-justified
-in that region. Inf values can be used to fill the full
-plot panel (see examples).
+\code{annotation_custom} expects the grob to fill the entire viewport
+defined by xmin, xmax, ymin, ymax. Grobs with a different (absolute) size
+will be center-justified in that region.
+Inf values can be used to fill the full plot panel (see examples).
 }
 \examples{
 # Dummy plot

man/annotation_custom.Rd

@@ -1,3 +1,4 @@
+% Generated by roxygen2 (4.0.0): do not edit by hand
 \name{annotation_logticks}
 \alias{annotation_logticks}
 \title{Annotation: log tick marks}
@@ -46,9 +47,8 @@ annotation_logticks(base = 10, sides = "bl", scaled = TRUE,
   \item{...}{Other parameters passed on to the layer}
 }
 \description{
-This annotation adds log tick marks with diminishing
-spacing. These tick marks probably make sense only for base
-10.
+This annotation adds log tick marks with diminishing spacing.
+These tick marks probably make sense only for base 10.
 }
 \examples{
 # Make a log-log plot (without log ticks)
@@ -97,10 +97,9 @@ library(grid)
 a + annotation_logticks(short = unit(.5,"mm"), mid = unit(3,"mm"), long = unit(4,"mm"))
 }
 \seealso{
-\code{\link{scale_y_continuous}},
-\code{\link{scale_y_log10}} for log scale transformations.
+\code{\link{scale_y_continuous}}, \code{\link{scale_y_log10}} for log scale
+  transformations.
 
-\code{\link{coord_trans}} for log coordinate
-transformations.
+\code{\link{coord_trans}} for log coordinate transformations.
 }
 

man/annotation_logticks.Rd

@@ -1,3 +1,4 @@
+% Generated by roxygen2 (4.0.0): do not edit by hand
 \name{annotation_map}
 \alias{annotation_map}
 \title{Annotation: maps.}

man/annotation_map.Rd

@@ -1,3 +1,4 @@
+% Generated by roxygen2 (4.0.0): do not edit by hand
 \name{annotation_raster}
 \alias{annotation_raster}
 \title{Annotation: High-performance rectangular tiling.}
@@ -17,11 +18,10 @@ annotation_raster(raster, xmin, xmax, ymin, ymax, interpolate = FALSE)
   if \code{FALSE} (the default) don't interpolate.}
 }
 \description{
-This is a special version of \code{\link{geom_raster}}
-optimised for static annotations that are the same in every
-panel. These annotations will not affect scales (i.e. the x
-and y axes will not grow to cover the range of the raster,
-and the raster must already have its own colours).
+This is a special version of \code{\link{geom_raster}} optimised for static
+annotations that are the same in every panel. These annotations will not
+affect scales (i.e. the x and y axes will not grow to cover the range
+of the raster, and the raster must already have its own colours).
 }
 \details{
 Most useful for adding bitmap images.

man/annotation_raster.Rd

@@ -1,3 +1,4 @@
+% Generated by roxygen2 (4.0.0): do not edit by hand
 \name{autoplot}
 \alias{autoplot}
 \title{Create a complete ggplot appropriate to a particular data type}
@@ -14,10 +15,9 @@ autoplot(object, ...)
 a ggplot object
 }
 \description{
-\code{autoplot} uses ggplot2 to draw a particular plot for
-an object of a particular class in a single command. This
-defines the S3 generic that other classes and packages can
-extend.
+\code{autoplot} uses ggplot2 to draw a particular plot for an object of a
+particular class in a single command. This defines the S3 generic that
+other classes and packages can extend.
 }
 \seealso{
 \code{\link{ggplot}} and \code{\link{fortify}}

man/autoplot.Rd

@@ -1,3 +1,4 @@
+% Generated by roxygen2 (4.0.0): do not edit by hand
 \name{benchplot}
 \alias{benchplot}
 \title{Benchmark plot creation time.
@@ -9,8 +10,8 @@ benchplot(x)
   \item{x}{code to create ggplot2 plot}
 }
 \description{
-Benchmark plot creation time. Broken down into construct,
-build, render and draw times.
+Benchmark plot creation time.
+Broken down into construct, build, render and draw times.
 }
 \examples{
 benchplot(qplot(mpg, wt, data = mtcars))

man/benchplot.Rd

@@ -1,3 +1,4 @@
+% Generated by roxygen2 (4.0.0): do not edit by hand
 \name{borders}
 \alias{borders}
 \title{Create a layer of map borders.}