如何调整ggplot2饼图中的箭头位置以避免重叠

这个问题我太熟啦！你的饼图箭头重叠，核心原因就是NS类别的基因数量（55623）远大于DOWN（425）和UP（1138），导致后两者的扇区小到挤在饼图的边缘，对应的箭头自然就撞在一起了。下面给你两个实用的解决办法：

方法一：用ggrepel包自动调整（推荐） #

ggrepel这个包专门用来解决标签重叠的问题，它会自动计算每个标签的最佳位置，箭头也会自动避开彼此，完全不用你手动算位置。

首先先处理数据，生成带百分比的标签：

# 加载需要的包
library(ggplot2)
library(ggrepel)

# 你的原始数据
df_count <- structure(list(Expression = structure(1:3, levels = c("DOWN", "NS", "UP"), class = "factor"), 
                           NumGenes = c(425L, 55623L, 1138L)), 
                      class = "data.frame", row.names = c(NA, -3L))

# 计算百分比并生成标签文本
df_count$percent <- round(df_count$NumGenes / sum(df_count$NumGenes) * 100, 1)
df_count$label <- paste0(df_count$Expression, ": ", df_count$NumGenes, " (", df_count$percent, "%)")

然后用geom_label_repel替代普通的文本标签，它会自动生成不重叠的箭头：

ggplot(df_count, aes(x = "", y = NumGenes, fill = Expression)) +
  # 绘制饼图的柱形（coord_polar转成饼图）
  geom_col(width = 1, color = "white") +
  # 转成极坐标（饼图）
  coord_polar(theta = "y", start = 0) +
  # 用ggrepel的标签函数，自动调整位置
  geom_label_repel(aes(label = label),
                   position = position_stack(vjust = 0.5), # 标签对齐扇区中点
                   box.padding = 0.35, # 标签框和内容的间距
                   point.padding = 0.5, # 箭头端点和标签框的间距
                   segment.color = "black", # 箭头颜色
                   nudge_x = 1) + # 把标签整体往外挪一点，远离饼图
  # 去掉多余的背景和坐标轴
  theme_void() +
  # 关闭默认图例（我们已经把类别写在标签里了）
  theme(legend.position = "none")

这样生成的饼图，DOWN和UP的标签箭头会自动分开，再也不会重叠啦。

方法二：手动调整标签和箭头位置 #

如果你不想额外装包，也可以手动给小扇区的标签设置不同的偏移量，让它们的箭头分开。

同样先处理数据，计算每个扇区的中点位置：

library(ggplot2)

# 你的原始数据
df_count <- structure(list(Expression = structure(1:3, levels = c("DOWN", "NS", "UP"), class = "factor"), 
                           NumGenes = c(425L, 55623L, 1138L)), 
                      class = "data.frame", row.names = c(NA, -3L))

# 计算百分比、标签和扇区中点y坐标
df_count$percent <- round(df_count$NumGenes / sum(df_count$NumGenes) * 100, 1)
df_count$label <- paste0(df_count$Expression, ": ", df_count$NumGenes, " (", df_count$percent, "%)")
df_count$y_pos <- cumsum(df_count$NumGenes) - df_count$NumGenes/2

然后在绘制箭头和标签时，给DOWN和UP设置不同的x坐标和对齐方式：

ggplot(df_count, aes(x = "", y = NumGenes, fill = Expression)) +
  geom_col(width = 1, color = "white") +
  coord_polar(theta = "y", start = 0) +
  # 手动设置箭头的起点和终点：给DOWN/UP的箭头往外挪一点
  geom_segment(aes(x = ifelse(Expression %in% c("DOWN", "UP"), 1.3, 1.2),
                   xend = ifelse(Expression %in% c("DOWN", "UP"), 1.15, 1.1),
                   y = y_pos, yend = y_pos),
               color = "black") +
  # 手动设置标签位置：DOWN左对齐，UP右对齐，避免重叠
  geom_text(aes(x = ifelse(Expression %in% c("DOWN", "UP"), 1.35, 1.25),
                y = y_pos, label = label),
            hjust = ifelse(Expression == "DOWN", 1, 0)) +
  theme_void() +
  theme(legend.position = "none")

这个方法的核心是利用ifelse函数，给小扇区的标签和箭头设置不同的位置参数，让它们往不同的方向延伸，自然就不会重叠了。

备注：内容来源于stack exchange，提问作者emr2