R/geom-colour.R

In HuFeiHu/ggcor:

#' Unit square based on center
#' @description This is the encapsulation of \code{geom_tile()}
#' function, and some fine-tuning has been done.
#' @param mapping set of aesthetic mappings created by aes() or aes_().
#' @param data the data to be displayed in this layer.
#' @param colour the border colour.
#' @param ... other params pass to `geom_tile()`.
#' @export
#' @importFrom ggplot2 geom_tile
#' @examples
#' ggcorr(mtcars) + geom_colour()
geom_colour <- function(mapping = NULL,
                        data = NULL,
                        colour = "grey60",
                        ...)
{
  geom_tile(mapping = mapping,
            data = data,
            colour = colour,
            ...)
}

#' @noRd
#' @export
geom_color <- geom_colour