R 自动设置ggplot页边距以包含几何图形文本

假设我使用下面的代码绘制了下面的图：

data = data.frame(x = 1:5, y = 1:5)
ggplot(data, aes(x = x, y = y)) + 
  geom_point() +
  geom_text(x = 5, y = 5, label = "aaaaaaaaaaaaaaa", hjust = 0) +
  theme_classic() + 
  theme(plot.margin = unit(c(1, 1, 1, 1), "cm")) +
  coord_cartesian(clip = "off")

为了使“aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa

但是有没有办法自动设置边距，这样“aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa

例如，如果“aaaaaa…”的长度改为100个字符，我将不得不再次更改边距。我想知道是否有办法编写代码/使用一个软件包，这样打印边距将自动调整为始终包含所有几何图形文本对象。

，其中

ggplot2

为

vjust

和

hjust

添加了新选项。您只需使用

“向内”

即可确保文本不会被剪裁：

data = data.frame(x = 1:5, y = 1:5)
ggplot(data, aes(x = x, y = y)) + 
  geom_point() +
  geom_text(x = 5, y = 5, label = "aaaaaaaaaaaaaaa", hjust = 0) +
  theme_classic() + 
  theme(plot.margin = unit(c(1, 1, 1, 1), "cm")) +
  coord_cartesian(clip = "off")

，其中

ggplot2

为

vjust

和

hjust

添加了新选项。您只需使用

“向内”

即可确保文本不会被剪裁：

data = data.frame(x = 1:5, y = 1:5)
ggplot(data, aes(x = x, y = y)) + 
  geom_point() +
  geom_text(x = 5, y = 5, label = "aaaaaaaaaaaaaaa", hjust = 0) +
  theme_classic() + 
  theme(plot.margin = unit(c(1, 1, 1, 1), "cm")) +
  coord_cartesian(clip = "off")

---

你能举个有效的例子吗？@RuiBarradas，我加了一个例子。你能想出一些办法吗？你检查过了吗？你能举个有效的例子吗？@RuiBarradas，我加了一个例子。你能想出一些方法来做到这一点吗？你检查过了吗？看起来“向内”参数确实会在绘图中移动标签。但是有没有办法让标签保持在圆点的右边，让边距自动调整？谢谢你的回答！看起来“向内”参数确实会将标签移动到绘图内。但是有没有办法让标签保持在圆点的右边，让边距自动调整？谢谢你的回答！