ggplot2绘制饼图时标签与颜色错位问题排查

标签和颜色错位的核心原因是离散变量排序不匹配，加上手动计算的pos位置与实际扇区中心偏差、极坐标起始角度设置干扰了对齐逻辑。以下是具体修正方案：

关键修改点 #

• 将EthnicCd转换为因子并锁定数据原有顺序，确保扇区绘制顺序与标签位置严格对应
• 自动计算精准的扇区中心位置，替代手动输入的pos值
• 调整饼图条形宽度和极坐标起始角度，消除位置偏移
• 优化标签偏移参数，让标签在饼图外侧合理显示

修正后的代码 #

library(ggrepel)
library(ggplot2)
library(dplyr)

DATA <- read.table(header=T, text="
EthnicCd    SchoolYear n_RCA percent  csum    pos
Hispanic          2324  4520 50%      9117   6857  
Asian             2324  1800 20%      4597   3697  
White             2324  1737 19%      2797   1928. 
Black             2324   447 5%       1060   836. 
Pacific           2324   395 4%        613   416. 
Multiracial       2324   203 2%        218   116. 
AmerInd           2324    15 0%         15   7.5")

# 锁定EthnicCd的显示顺序，避免ggplot自动按字母排序
DATA$EthnicCd <- factor(DATA$EthnicCd, levels = DATA$EthnicCd)

# 自动计算每个扇区的中心位置
DATA <- DATA %>%
  mutate(
    cum_sum = cumsum(n_RCA),
    prev_sum = lag(cum_sum, default = 0),
    pos = (cum_sum + prev_sum) / 2
  )

ggplot(DATA, aes(x="", y=n_RCA, fill=EthnicCd)) +
  geom_bar(stat="identity", width=1, color="white") + # 标准饼图宽度设置
  coord_polar("y", start = 0) + # 重置起始角度，消除偏移干扰
  theme_void() +
  scale_fill_brewer(palette="Set1")+
  guides(fill = guide_legend(title = bquote(~bold("Ethnic Background"))))+
  geom_label_repel(aes(y = pos, label = paste0(n_RCA,"\n(",percent,")")),
                   size = 3, nudge_x = 1, # 让标签显示在饼图外侧
                   show.legend = FALSE)

说明 #

• 因子化EthnicCd是核心：ggplot默认会对离散变量按字母排序，这会直接打乱你原有数据的扇区顺序，导致标签和颜色错位
• 自动计算pos通过累积和的中间值，精准对应每个扇区的几何中心，避免手动计算的误差
• 把geom_bar的width设为1是饼图的标准配置，之前的0.008会导致扇区过窄，进一步放大位置偏差

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