Commit baa5af8c authored by houyun's avatar houyun
Browse files

add examples

parent 80ec957f

R/set-style.R

+6 −0
Original line number Diff line number Diff line
@@ -17,6 +17,12 @@ 
#' ## use custom colour palee

#' set_corrplot_style(colours = c("red", "white", "blue"))

#' qcorrplot(mtcars) + geom_shaping(marker = "circle")

#' ## use custom scale

#' set_corrplot_style(scale = ggplot2::scale_fill_viridis_c(limits = c(-1, 1)))

#' qcorrplot(mtcars) + geom_shaping(marker = "circle")

#' ## reset to default scale

#' set_default_style()

#' qcorrplot(mtcars) + geom_shaping(marker = "circle")

print.hyplot <- function(x, ...) {

  if (inherits(x$data, "cor_md_tbl") &&

      !is.null(getOption("linkET.corrplot.style")) &&

man/set_style.Rd

+6 −0
Original line number Diff line number Diff line
@@ -44,6 +44,12 @@ qcorrplot(mtcars) + geom_shaping(marker = "circle") 
## use custom colour palee

set_corrplot_style(colours = c("red", "white", "blue"))

qcorrplot(mtcars) + geom_shaping(marker = "circle")

## use custom scale

set_corrplot_style(scale = ggplot2::scale_fill_viridis_c(limits = c(-1, 1)))

qcorrplot(mtcars) + geom_shaping(marker = "circle")

## reset to default scale

set_default_style()

qcorrplot(mtcars) + geom_shaping(marker = "circle")

}

\author{

Hou Yun

CRA Git | Maintained and supported by SUSTech CRA and CCSE