如何在ggcorrplot中为标题添加上标？解决expression报错问题

问题原因 #

ggcorrplot的title参数内部会执行title != ""的合法性判断，但expression()生成的表达式对象无法与空字符串直接进行比较，因此触发Error in title != "" : comparison is not allowed for expressions错误。

解决方案 #

方法1：用ggplot2原生的ggtitle()替代内置title参数

这是最简便可靠的方法，先不指定ggcorrplot的title参数，绘制基础图后，通过ggtitle()添加支持表达式的标题：

library(ggcorrplot)
# 生成示例相关矩阵
corr_matrix <- cor(mtcars)
# 绘制无标题的相关矩阵图
plot_base <- ggcorrplot(corr_matrix, type = "lower")
# 添加带上下标的标题
plot_base + ggtitle(expression("Pearson相关系数矩阵"^"2024" * " (n=32)"))

如果需要下标，同样可以用expression实现：

plot_base + ggtitle(expression("Pearson相关系数"["样本数据"] * " 矩阵"))

方法2：修改ggcorrplot的内部判断逻辑（不推荐）

如果一定要通过ggcorrplot的title参数传递表达式，可以修改函数内部的判断条件，将title != ""替换为!is.null(title)。不过这种方法需要重写部分函数逻辑，不如方法1便捷：

# 重定义ggcorrplot函数，调整标题判断逻辑
custom_ggcorrplot <- function(corr, title = NULL, ...) {
  p <- ggcorrplot::ggcorrplot(corr, ...)
  if (!is.null(title)) {
    p <- p + ggplot2::ggtitle(title)
  }
  return(p)
}

# 使用自定义函数添加带表达式的标题
custom_ggcorrplot(corr_matrix, title = expression("相关性分析结果"^"示例"))

验证效果 #

运行上述代码后，相关矩阵图会正常显示带有上/下标的标题，且不会触发原错误。

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