调整ggplot中重叠标签位置：偏移Existing Customers Data标签

你可以通过给Existing Customers Data标签单独设置位置偏移来避免重叠，这里提供两种简洁的实现方式：

方式一：直接在geom_text中添加条件偏移 #

利用ifelse函数针对特定标签设置nudge_x和nudge_y参数，其他标签保持原位置：

common <- structure(list(criteria = c("Customer Activity", "Existing Customers Data", 
"Prospect Data", "Sales History"), priority.x = c("0.25", "0.27", 
"0.20", "0.27"), priority.y = c("0.25", "0.31", "0.13", "0.31"
)), row.names = c(NA, -4L), class = "data.frame")

library(ggplot2)

ggplot(common, aes(x = as.numeric(priority.y), y = as.numeric(priority.x))) +
  geom_text(aes(label = criteria),
            # 对目标标签设置向右、向上偏移，数值可根据需求调整
            nudge_x = ifelse(common$criteria == "Existing Customers Data", 0.05, 0),
            nudge_y = ifelse(common$criteria == "Existing Customers Data", 0.05, 0)) +
  xlim(-0.5,0.5) + ylim(-0.5, 0.5) + 
  geom_hline(yintercept = 0) + geom_vline(xintercept = 0) +
  labs(title = "Optimization Matrix",
       x = "Feasibility",
       y = "Business Values") +
  theme_minimal() +
  theme(axis.text.x = element_blank(), axis.text.y = element_blank())

方式二：给数据框新增偏移列（更灵活） #

如果后续需要调整多个标签的偏移，这种方式更易维护：

# 新增偏移列
common$nudge_x <- ifelse(common$criteria == "Existing Customers Data", 0.05, 0)
common$nudge_y <- ifelse(common$criteria == "Existing Customers Data", 0.05, 0)

ggplot(common, aes(x = as.numeric(priority.y), y = as.numeric(priority.x))) +
  geom_text(aes(label = criteria, nudge_x = nudge_x, nudge_y = nudge_y)) +
  xlim(-0.5,0.5) + ylim(-0.5, 0.5) + 
  geom_hline(yintercept = 0) + geom_vline(xintercept = 0) +
  labs(title = "Optimization Matrix",
       x = "Feasibility",
       y = "Business Values") +
  theme_minimal() +
  theme(axis.text.x = element_blank(), axis.text.y = element_blank())

说明 #

• 偏移量0.05可以根据实际显示效果调整，数值越大偏移越明显
• 两种方式都能精准控制单个标签的位置，避免与其他标签重叠

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