ggplot2绘图起始点统一及向量数据X轴起始点设置问题

一、统一多图起始位置（搞定Y轴标签长度不一的问题） #

方案1：用grid.arrange的align参数一键对齐 #

直接在排列图形时加上align = "h"，就能让所有图形的绘图区域水平对齐，自动抵消Y轴标签长度差异带来的偏移：

library(ggplot2)
library(gridExtra)

# 示例数据
df1 <- data.frame(x = 1:10, y = rnorm(10))
df2 <- data.frame(x = 1:10, y = rnorm(10))

# 绘制两个Y轴标签长短不同的图
p1 <- ggplot(df1, aes(x, y)) + geom_line() + ylab("短标签")
p2 <- ggplot(df2, aes(x, y)) + geom_line() + ylab("超级长的Y轴标签")

# 水平对齐排列
grid.arrange(p1, p2, ncol = 2, align = "h")

方案2：手动固定Y轴区域宽度 #

如果需要更精细的控制，给所有图形加相同的左侧边距，或者固定Y轴标签的宽度：

# 统一左侧边距，保证Y轴区域宽度一致
p1_fixed <- p1 + theme(plot.margin = margin(5, 5, 5, 20, "pt"))
p2_fixed <- p2 + theme(plot.margin = margin(5, 5, 5, 20, "pt"))

grid.arrange(p1_fixed, p2_fixed, ncol = 2)

或者直接固定Y轴标签的宽度：

p1_fixed <- p1 + theme(axis.title.y = element_text(width = unit(3, "cm")))
p2_fixed <- p2 + theme(axis.title.y = element_text(width = unit(3, "cm")))

二、设置X轴起始点 #

连续型X轴（数值向量） #

要让X轴从指定值开始（比如0），用scale_x_continuous()的limits和expand参数：

# 强制X轴从0开始，同时去掉两端空白边距
p <- ggplot(df1, aes(x, y)) + geom_line() +
  scale_x_continuous(limits = c(0, NA), expand = c(0, 0))

limits = c(0, NA)表示起始点设为0，终点自动适配数据；expand = c(0,0)去掉X轴两端的默认空白。

离散型X轴（因子/字符向量） #

如果X是类别型数据，要让起始点对齐第一个类别的左侧，用scale_x_discrete()的expand参数：

df_discrete <- data.frame(x = factor(1:5), y = rnorm(5))
p_discrete <- ggplot(df_discrete, aes(x, y)) + geom_col() +
  scale_x_discrete(expand = c(0, 0))

要是需要指定从某个特定类别开始，直接用limits强制设置顺序：

p_discrete <- ggplot(df_discrete, aes(x, y)) + geom_col() +
  scale_x_discrete(limits = c("1", "2", "3", "4", "5"))

内容的提问来源于stack exchange，提问作者저도이도