如何固定R语言Base Plot坐标轴偏移量及推荐高区分度配色

这个问题的根源是R绘图默认会给坐标轴添加自动扩展边距：基础绘图的xaxs参数默认值为"r"，会给x轴两端各添加约5%的额外范围；数据点越多，x轴的总跨度越大，这5%的边距绝对值就越大，看起来偏移量就越明显。

基础R绘图解决方案 #

在plot()函数中添加xaxs="i"参数，强制x轴范围严格匹配数据的最小/最大x值，不再自动扩展边距：

# 修正原代码中trace2行的逗号缺失问题
plot(data$x, data$trace1, type="l", col="black", ylim=c(0,50), xaxs="i")
lines(data$x, data$trace2, type="l", col="red")
lines(data$x, data$trace3, type="l", col="green")
lines(data$x, data$trace4, type="l", col="#888888")

ggplot2解决方案 #

在scale_x_continuous()中设置expand = c(0, 0)，取消x轴的自动扩展边距：

library(ggplot2)
library(tidyr)

# 先将宽格式数据转为长格式，更适配ggplot语法
data_long <- pivot_longer(data, cols = starts_with("trace"), 
                          names_to = "trace_group", values_to = "value")

ggplot(data_long, aes(x = x, y = value, color = trace_group)) +
  geom_line(linewidth = 1) +
  ylim(0, 50) +
  scale_x_continuous(expand = c(0, 0)) +  # 固定x轴范围，无额外边距
  scale_color_manual(values = c("black", "red", "green", "#377EB8"))

结合视觉对比、色盲友好性，推荐以下四种配色（包含你已用的三种，替换原灰色）：

• 黑色（#000000）：无彩色，作为基准线清晰明了
• 正红色（#E41A1C）：暖色调高饱和度，和冷色形成强烈对比
• 森林绿（#4DAF4A）：中性偏冷的绿色，和红色、黑色区分度高
• 海军蓝（#377EB8）：冷色调高饱和度，和黑色（无彩色）、红色（暖）、绿色（黄绿）均有明显色相差异，不会混淆

如果偏好暖色调第四色，也可以选择橙色（#FF7F0E）：暖色调但偏向黄调，和红色的偏紫调形成差异，视觉冲击力强，同时和黑、绿对比清晰。

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