From 133c84f6b90c3a99f29d09dc2fef7814ff0baa65 Mon Sep 17 00:00:00 2001
From: erinnacland <149115997+erinnacland@users.noreply.github.com>
Date: Tue, 27 Feb 2024 19:19:34 -0500
Subject: [PATCH] Update corrplot.R: option to remove leading 0s added

I added an option to remove the leading zeros for the correlation values in 'method = "number"' and 'addCoef.col'. It is by default turned off.
---
 R/corrplot.R | 14 ++++++++++----
 1 file changed, 10 insertions(+), 4 deletions(-)

diff --git a/R/corrplot.R b/R/corrplot.R
index fc0e53d..5b59036 100644
--- a/R/corrplot.R
+++ b/R/corrplot.R
@@ -269,7 +269,7 @@ corrplot = function(corr,
   method = c('circle', 'square', 'ellipse', 'number', 'shade', 'color', 'pie'),
   type = c('full', 'lower', 'upper'), col = NULL, col.lim = NULL, is.corr = TRUE,
   bg = 'white',   title = '', add = FALSE, diag = TRUE, outline = FALSE,
-  mar = c(0, 0, 0, 0),
+  mar = c(0, 0, 0, 0), del.lead.zero = FALSE,
 
   addgrid.col = NULL, addCoef.col = NULL, addCoefasPercent = FALSE,
 
@@ -323,6 +323,12 @@ corrplot = function(corr,
     stop('Need a matrix or data frame!')
   }
 
+  # logical of whether leading zero is dropped from numbers generated from 'method = "number"' and 'addCoef.col' 
+  if (del.lead.zero == TRUE) {
+    del.lead.zero = function(val) {sub("^(-?)0.", "\\1.", sprintf("%.2f", val)) }}
+  else if (del.lead.zero == FALSE) {
+    del.lead.zero = function(val){val}}
+  
   # select grid color automatically if not specified
   if (is.null(addgrid.col)) {
     addgrid.col = switch(method, color = NA, shade = NA, 'grey')
@@ -700,7 +706,7 @@ corrplot = function(corr,
   if (method == 'number' && plotCI == 'n') {
     x = (DAT - int) * ifelse(addCoefasPercent, 100, 1) / zoom
     text(Pos[, 1], Pos[, 2], font = number.font, col = col.fill,
-         labels = format(round(x, number.digits), nsmall = number.digits),
+         labels = format(del.lead.zero(round(x, number.digits)), nsmall = number.digits),
          cex = number.cex)
   }
 
@@ -879,8 +885,8 @@ corrplot = function(corr,
   ## add numbers
   if (!is.null(addCoef.col) && method != 'number') {
     text(Pos[, 1], Pos[, 2],  col = addCoef.col,
-         labels = round((DAT - int) * ifelse(addCoefasPercent, 100, 1) / zoom,
-                        number.digits),
+         labels = del.lead.zero(round((DAT - int) * ifelse(addCoefasPercent, 100, 1) / zoom,
+                        number.digits)),
          cex = number.cex, font = number.font)
   }