如何计算ggplot2中geom_textbox()的边框坐标？

要获取原文本框的边框坐标并添加右侧文本框，你可以通过ggplot_build()提取图层的渲染数据，直接拿到文本框的边界参数，具体步骤如下：

1. 提取文本框边界坐标 #

先完成初始绘图构建，再用ggplot_build()获取已解析的图层数据，geom_textbox的图层会包含xmin（左边界）、xmax（右边界）、ymin（下边界）、ymax（上边界）这些关键坐标：

library(ggplot2)
library(ggtext)

# 构建初始绘图对象
plot <- ggplot() +
  geom_textbox(aes(x=5,y=5,
                   label = "Test",
                   hjust = 0, 
                   vjust = 0.5,
                   colour = "black", fill = "lightgray", orientation = "upright"),
               width = unit(6, "cm"),
               height = unit(2, "cm"),
               box.r = unit(5.5, "pt")) +
  geom_point(aes(x=c(5),y=c(5)), color = "black", size = 2) +
  scale_discrete_identity(aesthetics = c("color", "fill", "orientation"))

# 提取绘图构建数据
pb <- ggplot_build(plot)
# 获取第一个图层（geom_textbox）的边界数据
box_bounds <- pb$data[[1]]

# 提取所需坐标
x_right <- box_bounds$xmax  # 原文本框右边界x坐标
y_top <- box_bounds$ymax    # 原文本框上边界y坐标
y_bottom <- box_bounds$ymin # 原文本框下边界y坐标

2. 添加侧边文本框与标记点 #

用提取到的坐标直接添加左侧、右侧文本框和红色标记点，注意开启coord_fixed()保证坐标系比例一致，避免窗口缩放导致坐标偏移：

# 更新绘图，添加侧边文本框和标记点
final_plot <- plot +
  # 左侧文本框（hjust=1，以x=5为右对齐基准）
  geom_textbox(aes(x=5,y=5,
                   label = "",
                   hjust = 1, 
                   vjust = 0.5,
                   colour = "black", fill = "lightgray", orientation = "upright"),
               width = unit(0.5, "cm"),
               height = unit(0.5, "cm"),
               box.r = unit(0, "pt")) +
  # 右侧文本框（hjust=0，以原文本框右边界为左对齐基准）
  geom_textbox(aes(x=x_right,y=5,
                   label = "",
                   hjust = 0, 
                   vjust = 0.5,
                   colour = "black", fill = "lightgray", orientation = "upright"),
               width = unit(0.5, "cm"),
               height = unit(0.5, "cm"),
               box.r = unit(0, "pt")) +
  # 红色标记点
  geom_point(aes(x=x_right,y=5), color = "red", size = 3) +
  geom_point(aes(x=5,y=y_top), color = "red", size = 3) +
  geom_point(aes(x=5,y=y_bottom), color = "red", size = 3) +
  # 固定坐标系比例，确保坐标匹配
  coord_fixed(ratio=1)

# 查看最终绘图
print(final_plot)

关键说明 #

• ggplot_build()返回的data列表中，每个元素对应一个图层，这里geom_textbox是第一个图层，所以取[[1]]；如果你的绘图中有多个图层，需要确认索引位置。
• 必须开启coord_fixed()，否则文本框的尺寸（以cm为单位）会随窗口比例拉伸，导致提取的边界坐标与视觉位置不匹配。
• 左侧文本框用hjust=1，以原文本框的x=5为右对齐点，无需额外计算；右侧文本框直接用原文本框的xmax作为x坐标，配合hjust=0实现左对齐衔接。

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