如何在ggplot2中组合排斥标签和阴影或光环文本？

Question

对于在 ggplot2 中排斥标签（例如ggrepel）或标签的阴影文本（例如ggshadowtext和这个答案），有一些很好的解决方案。但是没有什么可以让我们将这两个功能结合起来。

我尝试了这种在稍微不同的位置打印标签多次的技巧，但效果不佳 geom_text_repel

library(ggplot2)

# subset data
d <- diamonds[1:20,]

# make plot
p <- ggplot(d, aes(carat, price)) +
  geom_point()

# make halo layers
theta <- seq(pi / 8, 2 * pi, length.out = 16)
xo <- diff(range(d$carat)) / 200
yo <- diff(range(d$price)) / 200
for (i in theta) {
  p <- p + 
    geom_text_repel(data = d, 
              aes_q(x = bquote(carat + .(cos(i) * xo)),
                    y = bquote(price + .(sin(i) * yo)),
                    label = ~cut),
              size = 6,
              colour = 'black', 
              seed = 1,
              segment.colour = NA)
}

# update plot with halo and interior text
p <- p + geom_text_repel(aes(label = cut),
                   size = 6,
                   colour = 'white', 
                   seed = 1,
                   segment.colour = "grey80")

p

很慢，而且在标签很近的位置，这种方法效果不好：

我们如何获得适用的阴影文本geom_text_repel？前段时间我在ggrepel GitHub repo上发布了一个关于这个的问题，但没有回复（也许这是不可能的？）

Answer 1

该功能现已添加到 ggrepel 包中，非常棒！

library(ggrepel)
library(ggplot2)

dat <- mtcars
dat$car <- rownames(dat)

ggplot(dat) +
  aes(wt, 
      mpg, 
      label = car) +
  geom_point(colour = "red") +
  geom_text_repel(bg.color = "white",
                  bg.r = 0.25)