fix #279

Author: taiyun

LICENSE

@@ -1,2 +1,2 @@
-YEAR: 2010-2021
+YEAR: 2010-2024
 COPYRIGHT HOLDER: Capital of Statistics, http://cosx.org/

R/corrplot.R

@@ -130,7 +130,7 @@
 #'   \code{length(col) + 1} when \code{length(col) <=20}; \code{cl.length} is 11
 #'   when \code{length(col) > 20}
 #'
-#' @param cl.cex Numeric, cex of number-label in color-legend,  passed to
+#' @param cl.cex Numeric, text size of number-label in color-legend,  passed to
 #'   \code{\link{colorlegend}}.
 #'
 #' @param cl.ratio Numeric, to justify the width of color-legend, 0.1~0.2 is
@@ -453,6 +453,10 @@ corrplot = function(corr,
   if (order != 'original') {
     ord = corrMatOrder(corr, order = order, hclust.method = hclust.method)
     corr = corr[ord, ord]
+
+    if (!is.null(p.mat)) {
+      p.mat = p.mat[ord, ord]
+    }
   }
 
   ## set up variable names
@@ -897,9 +901,6 @@ corrplot = function(corr,
 
 
   if (!is.null(p.mat) && insig != 'n') {
-    if (order != 'original') {
-      p.mat = p.mat[ord, ord]
-    }
 
     if(!is.null(rownames(p.mat)) | !is.null(rownames(p.mat))) {
       if(!all(colnames(p.mat)==colnames(corr)) |