R柱状图：如何自定义Y轴刻度值且保持刻度间距不变

你的需求是让Y轴刻度使用指定的等比数列，同时刻度间的物理间距保持一致，这本质上需要对数坐标轴的逻辑（等比数值对应等差的物理位置）。直接用axis(2, at=yseries)无效的原因是barplot默认使用线性坐标轴，等比数列的刻度在轴上会越来越稀疏，且Y轴范围被拉到最大刻度值，导致柱子显示比例不对。

下面提供两种可行的实现方法：

方法一：基础绘图系统（base plot） #

核心思路是将数值转换为对数（这里用log2，匹配你的2倍递增刻度），再自定义轴标签：

yseries <- c(10, 20, 40, 80, 160, 320, 640, 1280)
# 计算每个刻度对应的log2位置（转换为等差序列，保证物理间距相等）
y_log_pos <- log2(yseries)
gm <- c(760, 640)

# 绘制对数转换后的柱状图，设置Y轴范围匹配刻度的log2值
barplot(log2(gm), xaxt = "n", yaxt = "n", ylim = range(y_log_pos))

# 添加自定义Y轴：位置用log2后的数值，标签用原刻度值
axis(2, at = y_log_pos, labels = yseries)

# 添加X轴标签（按需调整柱子位置）
axis(1, at = c(0.7, 1.9), labels = c("组1", "组2"))

方法二：ggplot2（更灵活的绘图系统） #

用scale_y_continuous的trans参数指定对数转换，同时自定义刻度：

library(ggplot2)

# 整理数据为数据框
df <- data.frame(
  group = c("组1", "组2"),
  value = c(760, 640)
)
yseries <- c(10,20,40,80,160,320,640,1280)

ggplot(df, aes(x = group, y = value)) +
  geom_col() + # 等价于stat="identity"的barplot
  scale_y_continuous(
    breaks = yseries,       # 自定义刻度值
    trans = "log2",         # 用log2转换，保证刻度物理间距相等
    limits = c(min(yseries), max(yseries)) # 锁定Y轴范围
  ) +
  theme(axis.text.x = element_text(size = 10))

关键说明 #

• 两种方法都利用了对数转换：你的刻度是2倍递增的等比数列，log2转换后变成等差序列，这样在坐标轴上的物理间距自然相等。
• 如果你不需要严格的对数映射，只是想强制让不等值的刻度显示为等间距（非逻辑的视觉效果），可以用axis的at参数指定线性轴上的等间距位置，再替换标签，但这种方法会导致柱子高度与刻度值不匹配，不推荐用于严谨的数据分析可视化。

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