如何在corrplot的色条图例与绘图区域之间设置间距？

问题场景 #

当绘制列数较少的窄矩阵时，corrplot生成的色条会覆盖绘图右侧边界，即使尝试cl.ratio、cl.offset等色条相关参数仍无法解决。

复现代码 #

# 创建矩阵
mat <- matrix(c(0.8, 0.6, 1, 0.2, 0, 0.2, 0.3, 0.4, 0.3,
                -0.8, -0.6, -1, -0.2, 0, -0.2, -0.3, -0.4, -0.4), 
              ncol = 2, byrow = TRUE)

corrplot(mat, method = c("color"), 
         cl.ratio = 1, 
         # cl.offset = 0.5, 
         # cl.align.text = "l",
)

问题图示 #

解决方案 #

1. 调整全局绘图边距 #

在调用corrplot前，用par(mar)设置更大的右侧边距，给色条留出足够空间：

# 设置绘图边距（顺序：下、左、上、右）
par(mar = c(2, 2, 2, 5)) 

mat <- matrix(c(0.8, 0.6, 1, 0.2, 0, 0.2, 0.3, 0.4, 0.3,
                -0.8, -0.6, -1, -0.2, 0, -0.2, -0.3, -0.4, -0.4), 
              ncol = 2, byrow = TRUE)

corrplot(mat, method = "color", cl.ratio = 1)

2. 缩小色条宽度比例 #

降低cl.ratio参数值（默认是0.15，你设为1导致色条过宽），减小色条占绘图区域的比例：

mat <- matrix(c(0.8, 0.6, 1, 0.2, 0, 0.2, 0.3, 0.4, 0.3,
                -0.8, -0.6, -1, -0.2, 0, -0.2, -0.3, -0.4, -0.4), 
              ncol = 2, byrow = TRUE)

corrplot(mat, method = "color", cl.ratio = 0.5) # 缩小色条宽度比例

3. 手动拆分绘图布局 #

用layout函数将绘图区域拆分为矩阵区和色条区，分别绘制，彻底避免重叠：

# 拆分布局：左侧80%放矩阵图，右侧20%放色条
layout(matrix(c(1,2), nrow=1), widths=c(4,1))

mat <- matrix(c(0.8, 0.6, 1, 0.2, 0, 0.2, 0.3, 0.4, 0.3,
                -0.8, -0.6, -1, -0.2, 0, -0.2, -0.3, -0.4, -0.4), 
              ncol = 2, byrow = TRUE)

# 绘制矩阵图，隐藏色条
corrplot(mat, method = "color", cl.pos = "n")
# 在右侧区域单独绘制色条，隐藏标签
corrplot(mat, method = "color", cl.pos = "r", add = TRUE, tl.pos = "n", na.label = " ")

内容的提问来源于stack exchange，提问作者Adel