e_plot_corr_ellipse: Correlation plot with ellipses

In erikerhardt/erikmisc: Erik Erhardt's miscellaneous functions for solving complex data analysis workflows

Correlation plot with ellipses

Description

Correlation plot with ellipses

Usage

e_plot_corr_ellipse(
  corr,
  outline = FALSE,
  col = "grey",
  upper.panel = c("ellipse", "number", "none")[1],
  lower.panel = c("ellipse", "number", "none")[2],
  diag = c("none", "ellipse", "number")[3],
  digits = 2,
  bty = "n",
  axes = FALSE,
  xlab = "",
  ylab = "",
  asp = 1,
  cex.lab = par("cex.lab"),
  cex = 0.75 * par("cex"),
  mar = c(0, 0, 1, 0),
  ...
)

Arguments

corr	correlation matrix
outline	option
col	option
upper.panel	option
lower.panel	option
diag	option
digits	option
bty	option
axes	option
xlab	option
ylab	option
asp	option
cex.lab	option
cex	option
mar	option
...	option

Value

invisible(NULL)

Examples

datasets::mtcars |> cor() |> e_plot_corr_ellipse()

## Not run: 
## Color version
# use mtcars since all numeric
tab_cor <-
  datasets::mtcars |>
  as.matrix() |>
  Hmisc::rcorr(
    type = c("pearson", "spearman")[1]
  )
tab_cor$r

# red neg, white 0, blue pos
color_scale <-
  c(
    rgb(241,  54,  23, maxColorValue = 255)
  , "white"
  , rgb(  0,  61, 104, maxColorValue = 255)
  )
# color ramp in "Lab" space
color_ramp <- colorRampPalette(color_scale, space = "Lab")
# Create scale with 200 points
colors_plot <- color_ramp(100)

# move correlation range from [-1, 1] to [0, 100] for colors
tab_cor$r |>
e_plot_corr_ellipse(
  col  = colors_plot[round(((tab_cor$r + 1)/2) * 100)]
, main = "Colored ellipses"
, upper.panel = c("ellipse", "number", "none")[1]
, lower.panel = c("ellipse", "number", "none")[2]
, diag = c("none", "ellipse", "number")[3]
, digits = 3
)

## End(Not run)

erikerhardt/erikmisc documentation built on April 17, 2025, 10:48 a.m.