|
@ -5,9 +5,6 @@ |
|
|
#' constant without any tricks and you have granular control over the |
|
|
#' constant without any tricks and you have granular control over the |
|
|
#' segment width. I decided it was time to make a `geom`. |
|
|
#' segment width. I decided it was time to make a `geom`. |
|
|
#' |
|
|
#' |
|
|
#' Dumbbell dot plots — dot plots with two or more series of data — are an |
|
|
|
|
|
#' alternative to the clustered bar chart or slope graph. |
|
|
|
|
|
#' |
|
|
|
|
|
#' @md |
|
|
#' @md |
|
|
#' @section Aesthetics: |
|
|
#' @section Aesthetics: |
|
|
#' `geom_ubar`` understands the following aesthetics (required aesthetics are in bold): |
|
|
#' `geom_ubar`` understands the following aesthetics (required aesthetics are in bold): |
|
@ -30,11 +27,11 @@ |
|
|
#' @inheritParams ggplot2::layer |
|
|
#' @inheritParams ggplot2::layer |
|
|
#' @export |
|
|
#' @export |
|
|
#' @examples |
|
|
#' @examples |
|
|
#' library(ggplot2) |
|
|
# library(ggplot2) |
|
|
#' |
|
|
# |
|
|
#' data(economics) |
|
|
# data(economics) |
|
|
#' ggplot(economics, aes(date, uempmed)) + |
|
|
# ggplot(economics, aes(date, uempmed)) + |
|
|
#' geom_ubar() |
|
|
# geom_ubar() |
|
|
geom_ubar <- function(mapping = NULL, data = NULL, stat = "identity", |
|
|
geom_ubar <- function(mapping = NULL, data = NULL, stat = "identity", |
|
|
position = "identity", ..., |
|
|
position = "identity", ..., |
|
|
na.rm = FALSE, show.legend = NA, inherit.aes = TRUE) { |
|
|
na.rm = FALSE, show.legend = NA, inherit.aes = TRUE) { |
|
|