如何在R语言ggplot2绘图中设置Y轴标签的固定宽度？

以下两种方案都不需要提前知晓数据集的具体取值信息，可直接实现Y轴标签宽度统一：

场景1：单独输出多张图，要求每张图Y轴标签区域固定宽度 #

核心思路是自定义格式化函数，给所有Y轴数值标签统一补空格到指定字符长度，所有图使用同一个字符长度参数即可保证宽度一致：

# 自定义固定宽度标签格式化函数，参数n为目标字符数
fixed_width_label <- function(x, n = 10) {
  # 右对齐，左侧补空格到n个字符，要左对齐可改为 paste0("%-", n, "s")
  sprintf(paste0("%", n, "s"), as.character(x))
}

# 绘图时给Y轴指定labels参数即可，两张图使用相同的n值
p1 <- df_one %>% 
  ggplot(aes(x, y)) + 
  geom_point() + 
  geom_line() +
  scale_y_continuous(labels = ~ fixed_width_label(.x, n = 10))

p2 <- df_two %>% 
  ggplot(aes(x, y)) + 
  geom_point() + 
  geom_line() +
  scale_y_continuous(labels = ~ fixed_width_label(.x, n = 10))

你可以根据需求调整参数n的取值，比如要15个字符宽度就将n改为15即可。单独导出的两张图Y轴区域宽度会完全一致，插入文档时不会出现错位。

场景2：多张图拼接在同一页面输出 #

如果不需要单独保存图片，只是需要拼接后Y轴对齐，直接用patchwork包拼接即可，自带坐标轴对齐功能，无需修改轴标签：

library(patchwork)

p1 <- df_one %>% ggplot(aes(x, y)) + geom_point() + geom_line()
p2 <- df_two %>% ggplot(aes(x, y)) + geom_point() + geom_line()

# 纵向拼接自动对齐Y轴，横向拼接改为 p1 + p2 即可
p1 / p2

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