如何在不扩展x轴的情况下垂直对齐geom_label并为ggrepel预留右侧空白？

我来帮你搞定这个问题！你遇到的expand_limits报错是因为x轴是日期类型，不能直接传入数值来扩展范围，得用日期格式的参数调整。而且要实现右侧加空白但不显示x轴刻度扩展，同时让ggrepel的标签垂直对齐，我们可以用coord_cartesian配合clip="off"来实现，下面是具体的方案：

步骤1：加载所需包 #

首先确保你安装了这些包，然后加载：

library(ggplot2)
library(ggrepel)
library(lubridate) # 用于便捷处理日期类型

步骤2：准备标签数据 #

我们以economic数据集为例，提取每个变量的最后一个观测值作为标签的目标点：

# 把宽格式数据转长格式，方便提取各变量的最后一个点
label_data <- economic |>
  slice(n()) |> # 取最后一行
  pivot_longer(cols = -date, names_to = "variable", values_to = "value")

步骤3：绘制图表（核心代码） #

这里的关键是用coord_cartesian扩展绘图区域但保持x轴刻度不变，同时让ggrepel标签可以利用右侧空白：

ggplot(economic, aes(x = date)) +
  # 绘制各变量的折线图
  geom_line(aes(y = psavert, color = "psavert")) +
  geom_line(aes(y = uempmed, color = "uempmed")) +
  geom_line(aes(y = unemploy, color = "unemploy")) +
  # 添加垂直对齐的ggrepel标签
  geom_label_repel(
    data = label_data,
    aes(y = value, label = variable, color = variable),
    direction = "y", # 强制标签仅在垂直方向调整位置，实现垂直对齐
    xlim = c(NA, max(economic$date) + months(12)), # 允许标签延伸到右侧空白区域
    hjust = 0, # 标签左对齐，紧贴折线末端
    box.padding = 0.5,
    segment.color = "gray50" # 连接线设为灰色
  ) +
  # 扩展绘图区域的x范围，但不改变x轴刻度，clip="off"允许标签超出绘图区显示
  coord_cartesian(xlim = c(min(economic$date), max(economic$date) + months(12)), clip = "off") +
  # 关闭x轴的自动扩展，让刻度仅显示原始数据的日期范围
  scale_x_date(expand = c(0, 0)) +
  # 调整主题，给右侧留出足够空间显示标签
  theme(
    plot.margin = margin(5.5, 60, 5.5, 5.5), # 右侧边距加大，避免标签被裁剪
    axis.text.x = element_text(angle = 45, hjust = 1) # x轴日期标签旋转，避免重叠
  ) +
  labs(color = "变量", y = "数值", x = "日期")

关键细节解释 #

1. 解决日期轴扩展报错：
   之前用expand_limits报错是因为传入的不是日期类型，这里我们用max(economic$date) + months(12)生成一个比数据最大日期晚12个月的日期，符合日期轴的要求。

2. 右侧空白但x轴不扩展：
   coord_cartesian(xlim = ...)会扩展绘图区域的可视范围，但不会修改x轴的刻度和标签；clip="off"允许标签绘制在绘图区域之外，再配合plot.margin加大右侧边距，就能让标签完整显示。

3. 标签垂直对齐：
   geom_label_repel的direction="y"参数强制标签只在垂直方向调整位置，水平位置固定在折线末端右侧，自然实现垂直对齐的效果。

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