R ggplot中ggrepel饼图标签位置错位问题求助

核心思路：保证数据排序、扇区顺序、标签计算的完全统一 #

饼图标签错位的核心原因是计算标签位置（pos）时的数据顺序，和绘图时扇区的顺序不一致，解决步骤如下：

• 先过滤小分组并统一排序
  先把占比<1%的分组过滤掉，同时固定分组的排序规则（比如按占比从大到小），确保后续计算和绘图用的是同一套排序后的数据：

  library(dplyr)
  library(forcats)
  
  # 替换成你的实际数据列名，count是计数列，Light是分组列
  df_processed <- df %>%
    mutate(percent = count / sum(count)) %>%
    filter(percent >= 0.01) %>%
    # 按占比排序，也可以用fct_relevel手动指定顺序
    mutate(Light = fct_reorder(Light, desc(percent)))
  

• 基于处理后的数据计算标签位置
  必须用过滤排序后的数据集计算pos，不能复用原始数据的pos值：

  df_processed <- df_processed %>%
    mutate(pos = cumsum(percent) - 0.5 * percent)
  

• 绘图时绑定正确的映射关系
  把分组映射（fill = Light）放在ggplot的全局aes里，让ggrepel自动关联对应的分组和标签：

  library(ggplot2)
  library(ggrepel)
  
  ggplot(df_processed, aes(x = "", y = percent, fill = Light)) +
    geom_bar(stat = "identity", width = 1) +
    coord_polar("y", start = 0) +
    # 用pos指定标签的径向位置，x控制标签离饼图的距离
    geom_label_repel(aes(label = paste0(Light, " (", round(percent*100,1), "%)"),
                         x = 1.3, y = pos),
                     show.legend = FALSE,
                     box.padding = 0.5) +
    theme_void()
  

常见坑点排查 #

• 不要在过滤数据后使用原始数据计算的pos，过滤会改变分组顺序，导致pos和扇区不对应
• 避免手动调整pos，除非是极个别特殊情况，尽量让数据排序自动匹配pos计算
• 如果手动调整了因子顺序（比如fct_relevel），一定要重新计算pos，不能用之前的pos值

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