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

install.packages("ggplot2")
library(ggplot2)

# 示例数据集
data <- data.frame(x = c(1, 2, 3, 4), y = c(10, 15, 8, 12), label = c("A", "B", "C", "D"))

# 创建基本图形对象
ggplot(data, aes(x, y)) +
  xlim(0, 5) + ylim(0, 20)

# 添加标签
ggplot(data, aes(x, y)) +
  xlim(0, 5) + ylim(0, 20) +
  geom_text(aes(label = label), color = "black", size = 4)

# 添加阴影或晕圈文本
ggplot(data, aes(x, y)) +
  xlim(0, 5) + ylim(0, 20) +
  geom_text(aes(label = label), color = "black", size = 4) +
  geom_rect(aes(xmin = x - 0.2, xmax = x + 0.2, ymin = y - 1, ymax = y + 1), fill = "grey", alpha = 0.5)