如何将smoothScatter生成的绘图输出为正方形尺寸？

开发者阿泽

2026-7-26

解决smoothScatter绘制正方形图的问题

你遇到的核心问题是：smoothScatter属于base R绘图系统，不是ggplot2的函数，所以你用的ggplot2专属的theme(aspect.ratio = 1)完全不起作用；而直接尝试asp=1无效，是因为需要正确的设置方式。

以下是两种可行的解决方案：

方法一：用par()提前设置纵横比

在调用smoothScatter前，通过par(asp=1)强制绘图的纵横比为1（即正方形）：

# 注：这里不需要加载ggplot2，因为使用的是base R函数
if(any(Test$HQ == 1)) {
  par(asp = 1) # 固定纵横比为1
  smoothScatter(Test$FREQ, Test$AF, nrpoints = 0,
                xlab = "FREQ", ylab = "AF")
}

方法二：统一x轴和y轴范围+设置asp=1

如果x轴和y轴的数值范围差异较大，仅设置asp=1可能看起来不是严格正方形，这时可以先计算两者的共同范围，再同步xlim和ylim：

if(any(Test$HQ == 1)) {
  # 计算FREQ和AF的共同数值范围
  common_range <- range(c(Test$FREQ, Test$AF))
  smoothScatter(Test$FREQ, Test$AF, nrpoints = 0,
                xlab = "FREQ", ylab = "AF",
                xlim = common_range, # 统一x轴范围
                ylim = common_range, # 统一y轴范围
                asp = 1) # 强制纵横比1
}