创建柱状图时如何调整Y轴刻度至50-55范围

用R基础包绘制柱状图时，变量A的数值全部落在50-55区间。默认barplot()生成的Y轴刻度是0-60，导致数据间的细微差异很难看清。尝试设置ylim = c(50, 55)后，柱状条直接穿过X轴——只是Y轴显示范围变了，柱状条还是从0开始画，没有适配新的轴范围。当前代码：

barplot(variableA, names.arg = variableB,
  xlab = "B",
  ylab = "A",
  ylim = c(50, 55),
  col = rgb(0.2, 0.2, 0.7))

基础R实现 #

barplot()的柱状条默认从Y=0起始，直接改ylim只会截断视图，不会调整柱子的起始位置。要实现Y轴“放大”，需要先把数据偏移，再手动修正Y轴标签：

1. 将变量A的数值统一减去50，让新数据落在0-5区间：

adjusted_A <- variableA - 50

2. 绘制柱状图时，隐藏默认Y轴，再添加对应原数值的自定义刻度：

barplot(adjusted_A, names.arg = variableB,
        xlab = "B",
        ylab = "A",
        ylim = c(0, 5),
        col = rgb(0.2, 0.2, 0.7),
        yaxt = "n") # 关闭默认Y轴

# 自定义Y轴：刻度位置是0-5，对应标签为50-55
axis(2, at = seq(0, 5, 1), labels = seq(50, 55, 1))

这样柱子就会从新的Y=0（对应原数值50）开始绘制，Y轴刻度直接显示原数值，数据差异一目了然。

可选：用ggplot2简化操作 #

如果可以使用第三方包，ggplot2能直接设置Y轴范围，自动适配柱子的起始位置，无需手动偏移数据：

library(ggplot2)

# 把数据整理成数据框格式
df <- data.frame(B = variableB, A = variableA)

ggplot(df, aes(x = B, y = A)) +
  geom_bar(stat = "identity", fill = rgb(0.2, 0.2, 0.7)) +
  labs(x = "B", y = "A") +
  coord_cartesian(ylim = c(50, 55)) # 用coord_cartesian避免截断数据

这里用coord_cartesian()代替ylim()，可以更安全地放大指定区间，不会过滤掉超出范围的数据（如果有的话），柱子也会正常从Y=50开始绘制。

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