如何在对数刻度下使x轴与y轴范围一致且显示所有点？

核心思路 #

要在对数刻度下让x、y轴范围相同且包含所有数据，需要先计算所有数据点在对数变换后的全局极值，再将这个极值转换回原始刻度，作为两个坐标轴的范围。

具体实现代码 #

library(ggplot2)
set.seed(123) # 设置随机种子，保证结果可复现
f <- data.frame(x=exp(rnorm(100)), y=exp(rnorm(100, sd=2)))

# 计算x、y数据取log10后的全局最小/最大值
log_min <- min(log10(f$x), log10(f$y))
log_max <- max(log10(f$x), log10(f$y))

ggplot(f, aes(x=x, y=y)) +
  geom_point() +
  # 设置x、y轴的对数刻度范围，覆盖所有数据
  scale_x_log10(limits = c(10^log_min, 10^log_max)) +
  scale_y_log10(limits = c(10^log_min, 10^log_max)) +
  coord_fixed(ratio = 1) # 确保坐标轴单位长度比例为1:1

说明 #

• 先对x、y数据做log10变换并取全局极值，是为了确保所有数据点都能落在坐标轴范围内
• 将对数极值转换回原始刻度（10^log_min、10^log_max），直接作为scale_x_log10和scale_y_log10的limits参数，保证两个轴范围完全一致
• coord_fixed(ratio=1)可以让坐标轴的单位长度保持相等，绘制出等比例的图形

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