如何在R中保存高分辨率的相关矩阵可视化图？

为什么ggsave会生成空白图？ #

chart.Correlation()是基于R基础绘图系统实现的，并非ggplot2对象，而ggsave()默认仅能识别ggplot对象或当前活跃的绘图设备（直接调用时可能无法正确捕捉已绘制的基础图），因此会输出空白图片。

可行解决方案 #

方案1：使用基础绘图设备直接保存（推荐）

直接用R基础的图像保存函数（如png()/jpeg()），先开启高分辨率设备再绘图，最后关闭设备，步骤如下：

# 开启高分辨率PNG设备，可按需调整尺寸和分辨率
png("corr_plot_highres.png", width = 10, height = 10, units = "in", res = 300)

# 加载包并绘制相关矩阵图
library(PerformanceAnalytics)
chart.Correlation(my_data, histogram = TRUE, pch = 19)

# 关闭绘图设备
dev.off()

• res参数控制分辨率（300dpi为印刷级别的高分辨率），width/height调整图的尺寸（单位设为"in"更直观）。

方案2：转成ggplot对象后用ggsave保存

如果习惯用ggsave()，可以借助ggplotify包将基础绘图转为ggplot对象，再保存：

library(PerformanceAnalytics)
library(ggplotify)
library(ggplot2)

# 将基础绘图转为ggplot对象
corr_plot <- as.ggplot(function() {
  chart.Correlation(my_data, histogram = TRUE, pch = 19)
})

# 用ggsave保存高分辨率图
ggsave("corr_plot_ggsave.png", plot = corr_plot, width = 10, height = 10, dpi = 300)

额外注意事项 #

• 确保my_data是数值型数据框/矩阵，若存在缺失值，可先通过na.omit(my_data)处理后再绘图。
• 若图中元素显示拥挤，可调整width/height参数放大画布尺寸。

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