如何在ggplot的x轴刻度下方居中添加‘Orders’文本？

核心方案：使用annotate()函数手动定位文本 #

scale_x_discrete的label参数仅用于修改现有刻度的标签，无法添加额外文本。要在x轴刻度下方指定位置（如1.75处）添加“Orders”，最直接的方式是用annotate()手动设置文本位置：

示例代码（适配你已有的绘图结构）

library(ggplot2)

# 替换为你的实际数据与绘图代码
df <- data.frame(
  x = factor(c(1, 2, 3, 4)),  # 离散型x轴示例
  y = c(12, 24, 18, 30)
)

# 你的基础绘图（包含ggtitle和scale_x_discrete）
base_plot <- ggplot(df, aes(x = x, y = y)) +
  geom_col() +  # 替换为你的实际几何图层
  ggtitle("Your Plot Title") +
  scale_x_discrete(labels = c("Label1", "Label2", "Label3", "Label4"))  # 你的刻度标签

# 添加"Orders"文本到指定位置
final_plot <- base_plot +
  annotate(
    "text",
    x = 1.75,          # 目标x轴位置
    y = -2,            # 调整y值让文本落在x轴下方（根据数据范围修改）
    label = "Orders",
    size = 4,          # 文本大小
    color = "black"    # 可选：设置文本颜色
  )

print(final_plot)

灵活调整y轴位置的技巧

如果不想手动计算y值，可通过y = Inf结合vjust参数让文本自动贴靠x轴下方：

base_plot +
  annotate(
    "text",
    x = 1.75,
    y = Inf,
    label = "Orders",
    size = 4,
    vjust = 2.5  # 数值越大文本越靠下，按需调整
  )

注意事项 #

• 若x轴为连续型，直接用x=1.75即可；若为离散型，ggplot会将每个刻度映射为1、2、3...的数值，1.75对应第一个和第二个刻度之间的位置。
• 调整y或vjust数值时，需根据图表实际数据范围适配，避免文本被图表元素遮挡。

内容的提问来源于stack exchange，提问作者J.Z.