如何在ggplot2中将标题移至绘图左侧（非左对齐）？

要实现将标题放在纵轴标签"Percent"左侧（非单纯左对齐）的效果，你可以通过自定义图形元素+调整绘图边距的方式实现，核心是利用grid包的文本对象结合annotation_custom将标题定位到绘图区外部的左侧位置。

完整代码示例 #

library(ggplot2)
library(grid)

# 示例数据
data <- data.frame(
  satisfaction = c("Unhappy", "Neutral", "Happy"),
  percent = c(20, 40, 30)
)

# 定义各分类颜色
colors <- c("Unhappy" = "red", "Neutral" = "gray", "Happy" = "green")

ggplot(data, aes(x = satisfaction, y = percent, fill = satisfaction)) +
  geom_col() +
  guides(fill = "none") + 
  scale_fill_manual(values = colors) +
  ylab("Percent") +
  # 添加自定义标题到纵轴标签左侧
  annotation_custom(
    grob = textGrob(
      "Your Title", 
      hjust = 1,  # 文本右对齐，方便和纵轴标签保持间距
      gp = gpar(fontsize = 14, fontface = "bold")  # 设置标题样式
    ),
    xmin = -0.3, xmax = -0.3,  # 调整该值控制标题与纵轴的水平距离，负数向左延伸
    ymin = 0.5, ymax = 0.5     # 垂直居中对齐纵轴标签
  ) +
  theme(
    # 增大左侧边距，避免标题被裁剪
    plot.margin = margin(t = 10, r = 10, b = 10, l = 80, unit = "pt"),
    # 隐藏默认标题（如果之前使用了ggtitle）
    plot.title = element_blank()
  ) +
  # 允许绘图区外部元素显示，防止标题被裁剪
  coord_cartesian(clip = "off")

关键参数说明 #

• annotation_custom：用于在绘图区任意位置插入自定义图形元素，这里用textGrob创建标题文本；
• xmin/xmax：使用归一化坐标（npc），负数表示延伸到绘图区左侧外部，你可以根据需要调整数值来控制标题与纵轴标签的间距；
• plot.margin：增大左侧边距，确保标题有足够的显示空间；
• coord_cartesian(clip = "off")：关闭绘图区裁剪，让位于绘图区外部的标题能够正常显示。

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