R语言plot()与qplot()中缩小绘图点间距及自定义轴标签问题

嘿，我明白你的困扰了！你用par(mar)调整边距却没达到想要的效果，是因为mar只是改变绘图区域周围的空白大小，根本不会触动数据点的相对位置——所以只会让整个图的比例变了，但点还是按原始x值分布。要让两侧的点更靠近中间，得从调整x轴的数值范围或者数据映射入手，结合自定义刻度的需求，给你两种实用方案：

方案一：直接限定绘图的x轴显示范围（隐藏边缘空白） #

如果你的数据点分布在x的全范围，但你想让它们在绘图区域里更集中（减少左右两侧的空白），可以用xlim参数直接缩小x轴的显示区间，这样点自然就向中间靠拢了。同时配合axis()自定义刻度：

# 模拟你的数据
x <- seq(0, 10, by = 1)
y <- rnorm(length(x))

# 绘图时用xlim压缩显示范围，type="n"先不画点
plot(x, y, type = "n", xlim = c(2, 8), mar = c(5.1, 9, 4.1, 9))
# 绘制数据点
points(x, y, pch = 16, col = "steelblue")
# 自定义x轴刻度
axis(1, at = c(2, 4, 6, 8), labels = c("起始", "低", "高", "终止"))
# 自定义右侧y轴（按你的需求）
axis(4, at = seq(-2, 2, 1), labels = c("极弱", "弱", "中等", "强", "极强"))

这个方法的好处是不用修改原始数据，只是调整显示范围，适合你想保留原始x值对应关系的场景。

方案二：缩放x数据的数值范围（真正改变点的相对位置） #

如果你希望所有点的相对距离都缩小（比如把x从0-10压缩到2-8，让左侧点右移、右侧点左移），可以先对x数据做线性缩放，再绘图，这样点的相对位置会真正向中间聚拢：

# 原始数据
x <- seq(0, 10, by = 1)
y <- rnorm(length(x))

# 定义目标x范围：把原0-10缩放到2-8
min_x <- min(x)
max_x <- max(x)
target_min <- 2
target_max <- 8
# 线性缩放公式
scaled_x <- (x - min_x) / (max_x - min_x) * (target_max - target_min) + target_min

# 绘图
plot(scaled_x, y, type = "n", mar = c(5.1, 9, 4.1, 9))
points(scaled_x, y, pch = 16, col = "darkred")
# 自定义刻度，对应原始x值
axis(1, at = c(2, 4, 6, 8), labels = c("原0", "原3", "原7", "原10"))

针对ggplot2/qplot的解决方案 #

如果你用qplot，逻辑是一样的，用scale_x_continuous来控制x轴范围和刻度：

library(ggplot2)
qplot(scaled_x, y) +
  scale_x_continuous(
    limits = c(2, 8),
    breaks = c(2, 4, 6, 8),
    labels = c("原0", "原3", "原7", "原10")
  ) +
  theme(plot.margin = margin(5.1, 9, 4.1, 9, "pt")) # 对应par(mar)的边距设置

关键提醒 #

再次强调：par(mar)只是调整绘图区域的边距（比如给轴标签留空间），和数据点的位置完全无关。要改变点的相对分布，必须从x轴的数值范围或者数据映射入手，这才是问题的核心！

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