如何在R语言中为ggplot2图表的caption添加边框

API 探路者

2026-7-4

给ggplot水平条形图的底部居中标题添加边框的解决方案

方法1：使用`ggtext`包（代码简洁易维护）

借助ggtext包支持的HTML样式，直接给标题添加边框，无需手动调整元素层级：

library(ggplot2)
library(ggtext) # 未安装的话先执行：install.packages("ggtext")
data("iris")

ggplot(data = iris, aes(x = Species, y = Petal.Width)) + 
  geom_bar(stat = "identity", position = "identity") + 
  labs(caption = '<span style="border: 1px solid black; padding: 2px 5px;">Add box around me</span>') +
  theme(
    plot.caption = element_markdown(hjust = 0.5, vjust = -3),
    plot.margin = margin(b = 20) # 调整底部边距，避免边框被画布截断
  ) +
  coord_flip()

用<span>标签的border属性设置边框样式，padding控制文本与边框的间距
用element_markdown替代默认的element_text，解析HTML样式

方法2：原生ggplot工具实现（无需额外安装包）

通过grid包创建文本和边框的图形对象，手动添加到图表底部：

library(ggplot2)
data("iris")

# 创建文本对象
text_grob <- grid::textGrob(
  label = "Add box around me",
  gp = grid::gpar(col = "black", fontsize = 10),
  vp = grid::viewport(x = 0.5, y = -0.1) # 调整y值控制垂直位置
)
# 创建边框对象（要放在文本下层）
rect_grob <- grid::rectGrob(
  x = 0.5, y = -0.1,
  width = grid::grobWidth(text_grob) + unit(8, "pt"),
  height = grid::grobHeight(text_grob) + unit(4, "pt"),
  gp = grid::gpar(col = "black", fill = NA) # 透明背景，只显示边框
)

ggplot(data = iris, aes(x = Species, y = Petal.Width)) + 
  geom_bar(stat = "identity", position = "identity") + 
  annotation_custom(rect_grob) +
  annotation_custom(text_grob) +
  theme(
    plot.margin = margin(b = 30) # 预留底部空间，确保边框完整显示
  ) +
  coord_flip()