如何用geom_label_repel将散点图标签拉至四个角落

要实现每个标签单独拉到对应角落，核心是给每个产品设置独立的偏移参数，而非使用全局统一的nudge_x/nudge_y。具体实现步骤如下：

1. 在数据框中新增两列，分别存储每个产品标签的x轴和y轴偏移量，根据产品所在象限设置偏移方向：

   • 右上角（Product1）：x朝正方向，y朝正方向
   • 右下角（Product2）：x朝正方向，y朝负方向
   • 左上角（Product3）：x朝负方向，y朝正方向
   • 左下角（Product4）：x朝负方向，y朝负方向

2. 在geom_label_repel中通过aes()引用这两列的偏移值，实现个性化偏移。

完整代码示例：

library(ggplot2)
library(ggrepel) # 务必加载ggrepel包

peer_score <- c(3.5, 3.5, 2, 2 )
mkt_score <- c(3.5, 2, 3.5, 2)
revenue <- sample(1:75, 4, replace = T)
prod_name <- c("Product 1", "Product 2", "Product 3", "Product 4") 
# 新增偏移量列，数值可根据图表范围灵活调整
nudge_x <- c(1, 1, -1, -1)
nudge_y <- c(1, -1, 1, -1)

df <- data.frame(prod_name, revenue, peer_score, mkt_score, nudge_x, nudge_y)

ggplot(df, aes(peer_score, mkt_score)) + 
  geom_point(color = "blue", alpha=0.5) +
  # 引用自定义的个性化偏移量
  geom_label_repel(aes(label=prod_name, nudge_x = nudge_x, nudge_y = nudge_y)) +
  geom_vline(xintercept=3, linetype="dashed", alpha = 0.9, colour = "dark grey") +
  geom_hline(yintercept=3, linetype="dashed", alpha = 0.9, colour = "dark grey") +
  xlim(1,5) +
  ylim(1,5)

批量标签适配说明 #

针对30-40个标签的场景，无需手动逐个设置偏移量，可根据产品分数与中间线（x=3、y=3）的相对位置自动计算偏移方向：

# 自动计算偏移方向的逻辑示例
df <- df %>%
  mutate(
    nudge_x = ifelse(peer_score > 3, 1, -1),
    nudge_y = ifelse(mkt_score > 3, 1, -1)
  )

可根据实际图表范围调整偏移数值（比如将1改为1.2、-1改为-1.2），确保标签落在目标区域且无重叠。

内容的提问来源于stack exchange，提问作者Carl