Nothing
#' @title Side Points
#'
#' @description
#' The ggside variants of \link[ggplot2]{geom_point} is [geom_xsidepoint()] and
#' [geom_ysidepoint()]. Both variants inherit from \link[ggplot2]{geom_point},
#' thus the only difference is where the data is plotted. The `xside` variant will
#' plot data along the x-axis, while the `yside` variant will plot data along the
#' y-axis.
#'
#' @inheritParams ggplot2::layer
#' @inheritParams ggplot2::geom_point
#'
#' @aliases geom_*sidepoint
#' @return XLayer or YLayer object to be added to a ggplot object
#' @examples
#' ggplot(diamonds, aes(depth, table, alpha = .2)) +
#' geom_point() +
#' geom_ysidepoint(aes(x = price)) +
#' geom_xsidepoint(aes(y = price)) +
#' theme(
#' ggside.panel.scale = .3
#' )
#' @export
geom_xsidepoint <- function(mapping = NULL, data = NULL,
stat = "identity", position = "identity",
...,
na.rm = FALSE,
show.legend = NA,
inherit.aes = TRUE) {
l <- layer(
data = data,
mapping = mapping,
stat = stat,
geom = GeomXsidepoint,
position = position,
show.legend = show.legend,
inherit.aes = inherit.aes,
params = list(
na.rm = na.rm,
...
),
layer_class = XLayer
)
structure(l, class = c("ggside_layer",class(l)))
}
#' @rdname ggside-ggproto-geoms
#' @usage NULL
#' @format NULL
#' @export
GeomXsidepoint <- ggplot2::ggproto("GeomXsidepoint",
ggplot2::GeomPoint,
default_aes = new_default_aes(
aes(xcolour = NA, xfill = NA),
ggplot2::GeomPoint$default_aes
),
setup_data = function(data, params){
data <- parse_side_aes(data, params)
ggplot2::GeomPoint$setup_data(data, params)
},
draw_panel = function(data, panel_params, coord, na.rm = FALSE){
data <- use_xside_aes(data)
ggplot2::GeomPoint$draw_panel(data = data, panel_params = panel_params,
coord = coord, na.rm = na.rm)
},
draw_key = function(data, params, size){
data <- use_xside_aes(data)
ggplot2::GeomPoint$draw_key(data, prams, size)
}
)
#' @rdname geom_xsidepoint
#' @export
geom_ysidepoint <- function(mapping = NULL, data = NULL,
stat = "identity", position = "identity",
...,
na.rm = FALSE,
show.legend = NA,
inherit.aes = TRUE) {
l <- layer(
data = data,
mapping = mapping,
stat = stat,
geom = GeomYsidepoint,
position = position,
show.legend = show.legend,
inherit.aes = inherit.aes,
params = list(
na.rm = na.rm,
...
),
layer_class = YLayer
)
structure(l, class = c("ggside_layer",class(l)))
}
#' @rdname ggside-ggproto-geoms
#' @usage NULL
#' @format NULL
#' @export
GeomYsidepoint <- ggplot2::ggproto("GeomYsidepoint",
ggplot2::GeomPoint,
default_aes = new_default_aes(
aes(ycolour = NA, yfill = NA),
ggplot2::GeomPoint$default_aes
),
setup_data = function(data, params){
data <- parse_side_aes(data, params)
ggplot2::GeomPoint$setup_data(data, params)
},
draw_panel = function(data, panel_params, coord, na.rm = FALSE){
data <- use_yside_aes(data)
ggplot2::GeomPoint$draw_panel(data = data, panel_params = panel_params,
coord = coord, na.rm = na.rm)
},
draw_key = function(data, params, size){
data <- use_yside_aes(data)
ggplot2::GeomPoint$draw_key(data, prams, size)
}
)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.