ggplot 中的躲避/替换/排斥轴刻度标签？

如果没有大量工作，我想要的可能是不可能的，但也许有人有解决方案。我有一个如下图（当然这是一个过于简单的示例），其中我的刻度标签彼此非常接近：

dd <- data.frame(x=1:4, y=c(-10,10.5,10.6,10.7),
                 z = LETTERS[1:4])
library(ggplot2)
gg1 <- ggplot(dd, aes(x,y)) +
  geom_point() +
  geom_segment(x=0, aes(xend=x, y=y, yend=y)) +
  scale_y_continuous(breaks=dd$y, labels=dd$z)

如果我真的想要，我可以导出为 SVG，将其转储到 Inkscape 中，然后手动将标签分开（甚至添加连接标签与精确 y 轴位置的小指示线）：

如果能够以编程方式/自动执行类似的操作，那就太好了。我想：

• ggrepel包（仅适用于标签/文本within情节据我所知）
• directlabels包（它有一些放置选项，例如“first.bumpup”might对于这种情况具有适应性/可修改性）
• the n.dodge and check.overlap论点guide_axis如图所示here https://datavizpyr.com/how-to-dodge-overlapping-text-on-x-axis-labels-in-ggplot2/看起来有用又有趣，而且它们almost处理这个案子，但是n.dodge水平躲避标签，如果标签长于几个字符，就会变得难看......

我会很高兴有一个label.pos.nudge可以手动指定参数，以将标签沿轴的位置从相应的位置移开

感谢建议查看这个问题 https://stackoverflow.com/questions/56025382/ggrepel-labels-outside-to-the-right-of-ggplot-area/56027661#56027661 (and 这个问题 https://stackoverflow.com/questions/12409960/ggplot2-annotate-outside-of-plot让我知道coord_cartesian(clip = "off")，我做了以下工作（note我必须改变geom_segment(x=0, ...) to geom_segment(x=-Inf, ...)在上面的基本示例中，这样关闭剪辑就不会弄乱事情）。

gg1 + coord_cartesian(clip = "off") +
  theme(axis.text.y = element_blank(),
        plot.margin = margin(t=5.5, r=5.5, b=5.5, l=30, unit="pt")) +
  geom_text_repel(x = 0.85, aes(label = z, y = y),
                  direction = "y",
                  force_pull = 100,
                  hjust = -7,
                  xlim = c(0.8,1))

请注意，这可能需要对情节边缘和参数进行大量的处理geom_text_repel (force, force_pull, hjust, xlim等）让它看起来正确......我仍然没有按照我想要的方式得到我的真实情节，但它已经接近了。 （有可能是x and hjust值在这里是多余的......）