如何在RStudio中用corrplot保持绘图方块的缩放比例一致？

要让不同规模的相关矩阵图中，方块/圆圈保持相同的缩放比例，同时保证文本标签尺寸一致，可以通过以下两种场景的方案实现：

方案1：导出PDF/矢量图时使用 #

通过固定单元格尺寸，动态计算设备尺寸（矩阵大小+固定边距），利用R的点式文本尺寸保证文本物理大小一致：

library(corrplot)
data(mtcars)
M <- cor(mtcars)

# 定义核心参数
cell_size <- 0.6  # 每个圆圈单元格的宽/高（英寸）
fixed_margins <- c(2, 1, 1, 1)  # 下、左、上、右边距（英寸）

# 生成一致缩放的相关矩阵图函数
plot_consistent_corr <- function(corr_matrix, filename) {
  n <- ncol(corr_matrix)
  # 计算设备尺寸：矩阵单元格总宽度 + 固定边距
  device_width <- n * cell_size + fixed_margins[2] + fixed_margins[4]
  device_height <- n * cell_size + fixed_margins[1] + fixed_margins[3]
  
  # 打开PDF设备
  pdf(filename, width = device_width, height = device_height)
  
  # 转换边距单位为lines（默认字体下1英寸≈5行）
  par(mar = fixed_margins * 5)
  
  # 绘制相关矩阵图
  corrplot(corr_matrix, method = 'circle', order = 'hclust', diag = FALSE)
  
  # 关闭设备
  dev.off()
}

# 绘制11x11矩阵
plot_consistent_corr(M, "corr_11x11.pdf")

# 绘制5x5矩阵
plot_consistent_corr(M[1:5, 1:5], "corr_5x5.pdf")

方案2：RStudio绘图窗口中使用 #

由于RStudio窗口尺寸固定，通过动态调整边距缩小小矩阵的绘图区域，同时缩放文本标签保证物理大小一致：

# 基准参数（以最大矩阵为参考）
base_n <- 11
cell_size <- 0.6  # 单元格尺寸（英寸）
base_mar <- c(2, 2, 1, 1) * 5  # 基准边距（lines单位）

# RStudio中绘制一致缩放的相关矩阵图函数
plot_consistent_corr_rstudio <- function(corr_matrix) {
  n <- ncol(corr_matrix)
  # 计算额外需要的边距：将小矩阵的绘图区域缩小到与基准矩阵单元格尺寸一致
  extra_margin_inches <- (base_n - n) * cell_size / 2
  extra_margin_lines <- extra_margin_inches * 5  # 转换为lines单位
  
  # 设置新边距
  new_mar <- base_mar + c(extra_margin_lines, extra_margin_lines, extra_margin_lines, extra_margin_lines)
  par(mar = new_mar)
  
  # 缩放文本标签：补偿绘图区域缩小带来的视觉差异
  tl_cex <- 1 * (base_n / n)
  
  # 绘制相关矩阵图
  corrplot(corr_matrix, method = 'circle', order = 'hclust', diag = FALSE, tl.cex = tl_cex)
}

# 在RStudio中绘制11x11矩阵
plot_consistent_corr_rstudio(M)

# 在RStudio中绘制5x5矩阵
plot_consistent_corr_rstudio(M[1:5,1:5])

原理说明 #

• PDF方案：通过设备尺寸与矩阵大小成比例，确保每个单元格物理尺寸一致；文本使用R默认的点式尺寸，在不同尺寸的PDF中保持相同物理大小。
• RStudio方案：通过增加小矩阵的边距，强制其绘图区域缩小到与大矩阵单元格尺寸匹配；同时放大文本标签，抵消绘图区域缩小带来的视觉变小问题。

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