如何将R语言corrplot中的连字符负号改为U+2212标准负号？

• 只显示正相关系数，大概率是自定义格式化函数处理负相关系数时出了逻辑错误——比如误把负系数转为空值/NA，或者调用text()时只筛选了正系数对应的坐标位置，导致负相关标签根本没被添加。
• 另外，corrplot本身有自带的系数渲染逻辑，直接用text()叠加很容易和原绘图的坐标系统不匹配，或者覆盖掉负相关的标签位置。

方法1：直接用corrplot原生参数自定义格式化 #

不用额外调用text()，直接把替换负号的逻辑写到格式化函数里，传给corrplot的参数即可，完全适配原生渲染逻辑：

library(corrplot)

# 生成模拟相关矩阵
data(mtcars)
cor_mat <- cor(mtcars)

# 自定义格式化函数：把普通连字符替换为U+2212标准负号
format_coef <- function(x, digits = 2) {
  # 先保留指定小数位数
  coef_str <- format(round(x, digits), nsmall = digits)
  # 替换负号
  coef_str <- gsub("-", "\u2212", coef_str)
  return(coef_str)
}

# 绘图时调用自定义函数
corrplot(cor_mat, method = "circle", addCoef.col = "black", 
         number.cex = 0.7, format = format_coef)

方法2：用ggcorrplot（ggplot2生态，更灵活） #

如果需要更精细的格式控制，用ggcorrplot配合ggplot2的标签系统：

library(ggcorrplot)

# 先格式化好所有系数的负号
cor_mat_formatted <- format_coef(cor_mat)

# 绘制相关图，直接用格式化后的系数当标签
ggcorrplot(cor_mat, lab = FALSE, lab_size = 3) +
  geom_text(aes(label = cor_mat_formatted), color = "black", size = 3)

方法3：修改已生成的corrplot对象 #

如果已经画好了图，不想重新跑代码，可以直接修改绘图的文本元素：

# 先生成基础图
p <- corrplot(cor_mat, method = "circle", addCoef.col = "black", number.cex = 0.7)
# 替换所有文本标签里的负号
p$text$label <- gsub("-", "\u2212", p$text$label)
# 重新打印即可
print(p)

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