Browse Source

examples for geom_lollipop

pull/15/head
Bob Rudis 8 years ago
parent
commit
476d2bf114
  1. 15
      R/geom_lollipop.r
  2. 16
      man/geom_lollipop.Rd

15
R/geom_lollipop.r

@ -6,9 +6,8 @@
#' are a combination of a thin segment, starting at with a dot at the top and are a #' are a combination of a thin segment, starting at with a dot at the top and are a
#' suitable alternative to or replacement for bar charts. #' suitable alternative to or replacement for bar charts.
#' #'
#' The \emph{bubblechart} is a scatterplot with a third variable mapped to #' Use the \code{horizontal} parameter to abate the need for \code{coord_flip()}
#' the size of points. There are no special names for scatterplots where #' (see the \code{Arguments} section for details).
#' another variable is mapped to point shape or colour, however.
#' #'
#' @section Aesthetics: #' @section Aesthetics:
#' \Sexpr[results=rd,stage=build]{ggplot2:::rd_aesthetics("geom", "point")} #' \Sexpr[results=rd,stage=build]{ggplot2:::rd_aesthetics("geom", "point")}
@ -23,11 +22,19 @@
#' will draw the lollipops up from the X axis (i.e. it will set \code{xend} #' will draw the lollipops up from the X axis (i.e. it will set \code{xend}
#' to \code{x} & \code{yend} to \code{0}). If \code{TRUE}, it wiill set #' to \code{x} & \code{yend} to \code{0}). If \code{TRUE}, it wiill set
#' \code{yend} to \code{y} & \code{xend} to \code{0}). Make sure you map the #' \code{yend} to \code{y} & \code{xend} to \code{0}). Make sure you map the
#' \code{x} & \code{y} aesthetics accordingly. #' \code{x} & \code{y} aesthetics accordingly. This parameter helps avoid
#' the need for \code{coord_flip()}.
#' @param point.size the size of the point #' @param point.size the size of the point
#' @param point.colour the colour of the point #' @param point.colour the colour of the point
#' @inheritParams ggplot2::layer #' @inheritParams ggplot2::layer
#' @export #' @export
#' @examples
#' df <- data.frame(trt=LETTERS[1:10],
#' value=seq(100, 10, by=-10))
#'
#' ggplot(df, aes(trt, value)) + geom_lollipop()
#'
#' ggplot(df, aes(value, trt)) + geom_lollipop(horizontal=TRUE)
geom_lollipop <- function(mapping = NULL, data = NULL, ..., geom_lollipop <- function(mapping = NULL, data = NULL, ...,
horizontal = FALSE, horizontal = FALSE,
point.colour = NULL, point.size = NULL, point.colour = NULL, point.size = NULL,

16
man/geom_lollipop.Rd

@ -53,7 +53,8 @@ the default plot specification, e.g. \code{\link{borders}}.}
will draw the lollipops up from the X axis (i.e. it will set \code{xend} will draw the lollipops up from the X axis (i.e. it will set \code{xend}
to \code{x} & \code{yend} to \code{0}). If \code{TRUE}, it wiill set to \code{x} & \code{yend} to \code{0}). If \code{TRUE}, it wiill set
\code{yend} to \code{y} & \code{xend} to \code{0}). Make sure you map the \code{yend} to \code{y} & \code{xend} to \code{0}). Make sure you map the
\code{x} & \code{y} aesthetics accordingly.} \code{x} & \code{y} aesthetics accordingly. This parameter helps avoid
the need for \code{coord_flip()}.}
} }
\description{ \description{
The lollipop geom is used to create lollipop charts. The lollipop geom is used to create lollipop charts.
@ -63,12 +64,19 @@ Lollipop charts are the creation of Andy Cotgreave going back to 2011. They
are a combination of a thin segment, starting at with a dot at the top and are a are a combination of a thin segment, starting at with a dot at the top and are a
suitable alternative to or replacement for bar charts. suitable alternative to or replacement for bar charts.
The \emph{bubblechart} is a scatterplot with a third variable mapped to Use the \code{horizontal} parameter to abate the need for \code{coord_flip()}
the size of points. There are no special names for scatterplots where (see the \code{Arguments} section for details).
another variable is mapped to point shape or colour, however.
} }
\section{Aesthetics}{ \section{Aesthetics}{
\Sexpr[results=rd,stage=build]{ggplot2:::rd_aesthetics("geom", "point")} \Sexpr[results=rd,stage=build]{ggplot2:::rd_aesthetics("geom", "point")}
} }
\examples{
df <- data.frame(trt=LETTERS[1:10],
value=seq(100, 10, by=-10))
ggplot(df, aes(trt, value)) + geom_lollipop()
ggplot(df, aes(value, trt)) + geom_lollipop(horizontal=TRUE)
}

Loading…
Cancel
Save