r - 获取 ggplot2 文本的精确边界框坐标

Question

我想知道文本“ABC”的边界框坐标（左上角、右上角、左下角和右下角坐标），如屏幕截图所示：

我的代码是：

d <- data.frame(x = 0, y = 0, text = "ABCDEFGHIJKLM")
library(ggplot2)
ggplot(d, aes(x = x, y = y, label = text)) + geom_text()

在这个例子中，文本底部的坐标（这就是我要找的）是： x = 0.0125, y = 0.002 。

我感谢任何解决方案/建议。谢谢。