将整个文本放入 plot 区域

Question

我想用文本创建一个 plot 但似乎 ggplot 在识别 x 和 y 限制时忽略了文本（它只使用中心点）。 因此，如果文本太长，则无法完全显示。

df <- tibble(x = 1:5, y = 1:5)
ggplot(df, aes(x, y, label = paste(rep("long text", 3), collapse = " "))) +
  geom_point() + geom_text(nudge_y = 0.2)

在这种情况下，可以添加层expand_limits(x = c(0.4, 5.6))但这不适用于任何其他情况。 我想要一些适用于 x 和 y 的任何值以及任何文本长度的东西。

Answer 1

您可以为此使用ggrepel ：

library(ggrepel)

ggplot(df, aes(x, y, label = paste(rep("long text", 3), collapse = " "))) +
  geom_point() + ggrepel::geom_text_repel(nudge_y = 0.2, segment.alpha = 0)