ggplot2绘图：固定Y轴标签区域宽度+设置整数轴标签

问题描述 #

用R的ggplot2包绘图时，根据数据范围自动设置Y轴限值，但Y轴标签位数不同会导致图表整体右移，多个图表并列查看时X轴出现偏移。由于图表来自大型独立数据集需依次分析，无法使用分面功能，且必须独立导出，分面或ggarrange对齐轴的方案不可行。

需求：

1. 为Y轴标签区域预留固定空白，无论标签位数多少，X轴在图表中的位置始终保持一致
2. 控制Y轴标签仅显示整数，解决小数位数问题（曾尝试用scale_y_continuous()替代ylim()但未解决）

解决方案 #

1. 固定Y轴标签区域宽度，保证X轴对齐 #

通过统一设置图表左侧边距，并让Y轴标签右对齐，确保无论标签长度如何，都不会挤压绘图区域，X轴位置保持一致。

2. 强制Y轴标签显示整数 #

使用scales包的label_number()函数配合scale_y_continuous()，强制标签输出整数，同时设置整数刻度，从根源避免小数标签出现。

修改后的完整代码 #

library(ggplot2)
library(grid)
library(scales) # 用于整数标签格式化

# 通用主题：统一边距、标签样式，确保所有图表布局一致
common_theme <- theme_bw() +
  theme(
    axis.text.x = element_blank(),
    axis.title.x = element_text(margin = margin(t = 30)),
    legend.title = element_text(colour = "#000000", size = 12),
    legend.text = element_text(colour = "#000000", size = 12),
    # 固定左侧边距，预留足够空间给最长Y轴标签（如三位数的100）
    plot.margin = margin(5.5, 5.5, 5.5, 20), # 顺序：上、右、下、左，单位pt
    # Y轴标签右对齐，确保不同长度标签占用宽度一致
    axis.text.y = element_text(hjust = 1)
  )

# 第一个数据集绘图
df <- data.frame(
  Position = 1:5000,
  Signal = c(rep(-1, 2000), rep(100, 1000), rep(-1, 2000))
)

Plotv1 <- ggplot(df, aes(x = Position, y = Signal, col = "#000000")) +
  geom_line() +
  scale_y_continuous(
    limits = c(-ceiling(max(abs(df$Signal))), ceiling(max(abs(df$Signal)))),
    breaks = function(x) seq(floor(x[1]), ceiling(x[2]), by = 25), # 整数刻度间隔
    labels = label_number(accuracy = 1) # 强制输出整数标签
  ) +
  coord_cartesian(clip = "off") +
  guides(fill = "none", color = guide_legend(title = "MyLegend")) +
  common_theme +
  annotation_custom(
    grid::segmentsGrob(
      y0 = unit(-25, "pt"), y1 = unit(-25, "pt"),
      arrow = arrow(angle = 45, type = "closed", length = unit(.15, 'cm')),
      gp = grid::gpar(lwd = 3, col = "#000000", fill = "#000000")
    ),
    xmin = 2000, xmax = 3000
  )

ggsave("~/Desktop/Plotv1.png", Plotv1, width = 8, height = 1.7)

# 第二个数据集绘图
df2 <- data.frame(
  Position = 1:5000,
  Signal = c(rep(-1, 2000), rep(4.9, 1000), rep(-1, 2000))
)

Plotv2 <- ggplot(df2, aes(x = Position, y = Signal, col = "#000000")) +
  geom_line() +
  scale_y_continuous(
    limits = c(-ceiling(max(abs(df2$Signal))), ceiling(max(abs(df2$Signal)))),
    breaks = function(x) seq(floor(x[1]), ceiling(x[2]), by = 1), # 整数刻度间隔
    labels = label_number(accuracy = 1) # 强制输出整数标签
  ) +
  coord_cartesian(clip = "off") +
  guides(fill = "none", color = guide_legend(title = "MyLegend")) +
  common_theme +
  annotation_custom(
    grid::segmentsGrob(
      y0 = unit(-25, "pt"), y1 = unit(-25, "pt"),
      arrow = arrow(angle = 45, type = "closed", length = unit(.15, 'cm')),
      gp = grid::gpar(lwd = 3, col = "#000000", fill = "#000000")
    ),
    xmin = 2000, xmax = 3000
  )

ggsave("~/Desktop/Plotv2.png", Plotv2, width = 8, height = 1.7)

关键修改说明 #

• 提取common_theme统一所有图表的布局参数，避免重复设置
• plot.margin固定左侧边距，预留足够空间容纳最长Y轴标签
• axis.text.y = element_text(hjust = 1)让Y轴标签右对齐，确保不同长度标签的占位宽度一致
• scale_y_continuous()中用label_number(accuracy = 1)强制整数标签，配合breaks参数设置整数刻度，彻底解决小数标签问题

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