如何在R中压缩X轴：保持轴长一致且不丢失数据

要实现X/Y轴长度相同且不截断数据，同时缩短X轴刻度标签间距，你可以按以下方式调整代码：

核心调整思路 #

• 移除手动设置的xlim和ylim，让R自动适配所有数据点的范围，彻底避免截断数据
• 保留pty="s"确保绘图区域为正方形，强制X/Y轴的物理长度一致
• 通过增加X轴刻度密度或缩小刻度标签字号两种方式，缩短标签间的距离

修改后的完整代码 #

plot(mg.hr.g ~ Temperature, 
     data = mydata, 
     bty = "L", 
     cex.lab = 1.2, 
     xlab = "Temperature (°C)",
     ylab = "DO consumption (mg/hr/g)",
     main = "Is oxygen consumption temperature dependent?",
     xaxt="n",
     pty="s",  # 维持正方形绘图区域，保证轴长度一致
     col = 1)

my_mod <- lm(mg.hr.g ~ poly(Temperature, 3), data = mydata)
summary(my_mod) 

lines(sort(mydata$Temperature), fitted(my_mod)[order(mydata$Temperature)], col = 6, lty = 2, lwd =2)

# 方案1：增加刻度密度直接缩短标签间距（示例为每1℃一个刻度）
axis(1, at=seq(min(mydata$Temperature), max(mydata$Temperature), by=1), 
     labels=seq(min(mydata$Temperature), max(mydata$Temperature), by=1),
     cex.axis=0.8)  # 可选：缩小标签字号，进一步避免重叠

# 若偏好原刻度间隔，用方案2：仅缩小标签字号来紧凑布局
# axis(1, at=c(7,9,11,13,15,17), labels=c("7", "9", "11", "13", "15", "17"), cex.axis=0.8)

关键说明 #

• 去掉xlim/ylim后，R会自动扩展轴范围以包含所有数据点，不会丢失任何观测值
• pty="s"会强制绘图区域为正方形，此时X/Y轴的物理长度完全相同，不受数据数值范围差异影响
• 增加刻度数量能直接缩小相邻标签的间距；cex.axis参数缩小标签字号，则能在不改变刻度密度的前提下，让标签布局更紧凑，还能避免标签重叠问题

内容的提问来源于stack exchange，提问作者Róisín