使用R语言ggplot2绘制饼图时标签位置错位如何解决

错位由三个核心问题导致：

• geom_label_repel()未配置位置对齐参数，仅指定了径向位置x=1.5，没有锚定到每个扇形块对应的角度中点，极坐标转换后标签与扇区完全无法对应。
• 类别字段lbls未设置为有序因子，ggplot绘制堆叠柱（饼图本质是极坐标转换后的堆叠柱状图）时的默认堆叠顺序，与手动设置的图例breaks顺序、原始数据行顺序不一致，进一步放大位置偏差。
• 同时设置固定x=1.5与nudge_x=0.5存在参数冲突，标签径向位置被额外偏移，容易出现位置错乱、超出绘图边界的问题。

1. 预处理数据时将lbls转为有序因子，固定绘图堆叠顺序，和图例展示顺序保持一致，避免顺序错配。
2. 为geom_label_repel()添加position = position_stack(vjust = 0.5)参数，自动将标签锚定到每个扇形块的角度中点，和主图层的堆叠位置完全匹配。
3. 移除冲突的nudge_x参数，调整径向x值到合适位置，可添加固定随机种子保证标签避让效果可复现。

修正后的完整可运行代码：

library(ggplot2)
library(ggrepel)

# 预处理：固定因子顺序，匹配图例预期展示顺序
percentage2$lbls <- factor(
  percentage2$lbls,
  levels = c("Sedentary", "Lightly Active", "Fairly Active", "Very Active")
)

# 修正后绘图代码
ggplot(data = percentage2, aes(x = "", y = minutes, fill = lbls)) +
  geom_col(width = 1, color = 1) +
  geom_label_repel(
    aes(x = 1.4, label = paste0(round(minutes, 2), "%")),
    size = 4.5,
    position = position_stack(vjust = 0.5), # 核心配置：锚定到每个扇块中点
    show.legend = FALSE,
    seed = 123 # 固定随机种子，避免标签位置每次运行变动
  ) +
  coord_polar(theta = "y") +
  theme_void() +
  labs(title = "Percentage of Active Minutes", y = "Activity") +
  scale_fill_discrete(name = "Activity Level")

补充说明：如果后续出现小占比块标签重叠的问题，优先调整geom_label_repel()的box.padding、point.padding参数控制避让距离，不要随意添加nudge_x/nudge_y，否则会破坏极坐标下标签和扇区的位置对应关系。

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