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

Question

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

我尝试了这种在稍微不同的位置多次打印标签的技巧，但它不适用于 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 的阴影文本?我 posted an issue前段时间向ggrepel GitHub repo 提出了这个问题，但一直没有回复(也许这是不可能的？)

Answer 1

此功能现已added到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)