You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

69 lines
1.8 KiB

# geom_otile <- function(mapping = NULL, data = NULL, ...,
# na.rm = FALSE,
# show.legend = NA,
# inherit.aes = TRUE) {
#
# stat <- "otile"
# position <- "identity"
#
# ggplot2::layer(
# data = data,
# mapping = mapping,
# stat = stat,
# geom = GeomOtile,
# position = position,
# show.legend = show.legend,
# inherit.aes = inherit.aes,
# params = list(
# na.rm = na.rm,
# ...
# )
# )
# }
#
# StatOtile <- ggplot2::ggproto("StatOtile", Stat,
#
# default_aes = ggplot2::aes(
# colour = NA, size = 0.1, linetype = 1, alpha = NA, l_fill="blue", r_fill="red"
# ),
#
# required_aes = c("x", "y"),
#
# compute_panel = function(data, scales) {
# data
# }
#
# )
#
# stat_otile <- function(mapping = NULL, data = NULL, geom = "otile",
# position = "identity", na.rm = FALSE,
# show.legend = NA, inherit.aes = TRUE, ...) {
#
# layer(
# stat = StatOtile, data = data, mapping = mapping, geom = geom,
# position = position, show.legend = show.legend, inherit.aes = inherit.aes,
# params = list(na.rm = na.rm, ...)
# )
#
# }
#
# GeomOtile <- ggplot2::ggproto("GeomOtile", GeomOscar,
#
# default_aes = ggplot2::aes(
# l_fill = "blue", r_fill = "red", colour = NA, size = 0.1, linetype = 1, alpha = NA
# ),
#
# setup_data = function(data, params) {
# data$width <- data$width %||% params$width %||% ggplot2::resolution(data$x, FALSE)
# data$height <- data$height %||% params$height %||% ggplot2::resolution(data$y, FALSE)
#
# transform(data,
# xmin = x - width / 2, xmax = x + width / 2, width = NULL,
# ymin = y - height / 2, ymax = y + height / 2, height = NULL
# )
# },
#
# draw_key = ggplot2::draw_key_polygon
#
# )
#