如何给R语言corrplot添加副标题/说明？解决标题截断问题

一、给corrplot添加副标题的方法 #

corrplot基于R基础绘图系统，本身的sub参数不生效，有两种可行方案：

1. 用基础绘图函数手动添加副标题 #

先绘制corrplot，再通过mtext()在图底部追加文本：

# 先调整绘图边距，给副标题预留空间
par(mar = c(5, 4, 4, 2) + 0.1)  # 参数顺序：bottom, left, top, right
correlation_plot <- corrplot(corr = cortable, method = "number", main = "Title", 
                             type = "full", number.cex=0.70)
# 在底部添加副标题，line参数控制文本与图的距离
mtext("变量A-E的相关性系数标注", side = 1, line = 3, cex = 0.8)

2. 转为ggplot对象实现副标题 #

使用ggcorrplot包（基于ggplot2），它原生支持副标题参数，操作更灵活：

library(ggcorrplot)
# 先计算相关系数矩阵（如果还没计算）
cortable <- cor(your_data)  # 替换为你的原始数据框
# 绘制带副标题的相关图
ggcorrplot(cortable, method = "number", 
           title = "变量相关性矩阵",
           subtitle = "注：数值为Pearson相关系数",
           lab_size = 3)  # 对应corrplot的number.cex参数

二、解决顶部标题截断的问题 #

标题截断是因为绘图区域顶部边距不足，和副标题无法显示无关（副标题不显示是corrplot本身未实现sub参数功能）。解决方法：

• 方案1：绘图前用par()调整顶部边距

par(mar = c(5, 4, 5, 2) + 0.1)  # 增大第三个数值（top边距）
corrplot(corr = cortable, method = "number", main = "Title", 
         type = "full", number.cex=0.70)

• 方案2：直接用corrplot自带的mar参数（部分版本支持）

corrplot(corr = cortable, method = "number", main = "Title", 
         type = "full", number.cex=0.70,
         mar = c(5, 4, 5, 2))  # 自定义边距数值

三、标题截断与副标题的关系 #

标题截断不会导致副标题无法显示，副标题不生效的核心原因是corrplot函数本身没有对sub参数做适配，和绘图区域大小无关。

内容的提问来源于stack exchange，提问作者flâneur