ggplot2饼图外侧分类标签重叠问题求助

你的问题出在用轴标签标注饼图切片的方式上，这种方法在切片数量多、数值差异大时极易出现标签重叠、对应错位的情况。换用geom_text_repel直接在饼图外侧绘制标签，能同时解决拥挤和对应错误的问题，具体修正如下：

步骤1：重新预处理数据，计算标签位置 #

先计算每个切片的中心角度，再转换成极坐标下的坐标位置，让标签能精准落在饼图外侧：

library(ggrepel)
library(tidyverse)
library(forcats)
library(ggplot2)

# 预处理数据：计算每个切片的中心角度和外侧标签坐标
df3 <- Family_Quantities3 %>% 
  mutate(
    # 计算每个切片的中心累计值，转换为角度
    cumulative = cumsum(Quantities) - 0.5 * Quantities,
    angle = 90 - 360 * cumulative / sum(Quantities),
    # 转换为弧度，计算外侧标签的x/y位置（radius控制标签与饼图的距离）
    radius = 1.2,
    x = radius * cos(angle * pi / 180),
    y = radius * sin(angle * pi / 180)
  )

步骤2：修改ggplot代码，用geom_text_repel绘制外侧标签 #

去掉原有的scale_y_continuous轴标签逻辑，改用geom_text_repel绘制科别标签，同时保留切片内的数值标签：

plot15 <- ggplot(Family_Quantities3, aes(x = "", y = Quantities, fill = fct_inorder(Families))) +
  geom_col(width = 0.8, color = 1) +
  # 绘制切片内的数值标签
  geom_text(aes(label = Quantities),
            position = position_stack(vjust = 0.5), size = 4) +
  # 绘制外侧的科别标签，使用预处理好的坐标
  geom_text_repel(data = df3,
                  aes(x = x, y = y, label = Families),
                  inherit.aes = FALSE, size = 4,
                  box.padding = 0.5, point.padding = 0.3) +
  coord_polar(theta = "y") +
  guides(fill = guide_legend(title = "Families")) +
  theme(
    axis.ticks = element_blank(),
    axis.title = element_blank(),
    axis.text = element_blank(),  # 关闭原轴标签，避免冲突
    legend.position = "none",
    panel.background = element_rect(fill = "white")
  )

plot15

关键说明 #

• 预处理时计算的angle确保标签精准对应切片中心，彻底解决错位问题；
• geom_text_repel会自动调整标签位置规避重叠，你可以通过radius参数调整标签与饼图的距离，size参数调整字体大小；
• 关闭原轴标签后，不会出现新旧标签叠加的混乱。

修改后，Pomacentridae这类标签会准确对应到数值19,056的切片，所有标签也不会再拥挤重叠。

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