daranzolin

geom_heart <- function (mapping = NULL, data = NULL, stat = "identity", position = "identity", 
  ..., parse = FALSE, nudge_x = 0, nudge_y = 0, check_overlap = FALSE, 
  na.rm = FALSE, show.legend = NA, inherit.aes = TRUE) 
{
  if (!missing(nudge_x) || !missing(nudge_y)) {
    if (!missing(position)) {
      stop("Specify either `position` or `nudge_x`/`nudge_y`", 
        call. = FALSE)
    }
    position <- position_nudge(nudge_x, nudge_y)

daranzolin

height: 600
license: mit