R语言饼图标签未指向对应扇区的解决方法求助

你的问题出在手动计算的ypos与ggplot极坐标的绘制方向不匹配：ggplot的coord_polar(theta="y")默认从顶部顺时针绘制扇区，但原代码的ypos是基于条形图从下往上的累加逻辑计算的，导致标签位置错位。

以下两种方案可以解决这个问题：

方案1：修正ypos计算逻辑 #

调整ypos的累加方向，匹配极坐标的绘制顺序：

RNA <- Final_Vaccine %>%
  filter(Vaccine_Tech == "RNA") %>%
  group_by(Pathogen) %>%
  summarise(Count = n()) %>%
  ungroup() %>%
  mutate(Percent = Count / sum(Count) * 100,
         # 反转累加方向，让ypos对应扇区的中心角度（从顶部顺时针）
         ypos = sum(Percent) - cumsum(Percent) + 0.5 * Percent)

如果数据是按Count降序排列的，也可以先反转数据顺序再用原ypos计算：

RNA <- Final_Vaccine %>%
  filter(Vaccine_Tech == "RNA") %>%
  group_by(Pathogen) %>%
  summarise(Count = n()) %>%
  ungroup() %>%
  arrange(desc(Count)) %>% # 反转数据顺序，匹配饼图绘制方向
  mutate(Percent = Count / sum(Count) * 100,
         ypos = cumsum(Percent) - 0.5 * Percent)

方案2：使用position_stack自动定位（推荐） #

无需手动计算ypos，利用position_stack(vjust=0.5)自动将标签定位到扇区中心，更简洁可靠：

# 数据处理部分保持不变（无需计算ypos）
RNA <- Final_Vaccine %>%
  filter(Vaccine_Tech == "RNA") %>%
  group_by(Pathogen) %>%
  summarise(Count = n()) %>%
  ungroup() %>%
  mutate(Percent = Count / sum(Count) * 100)

# 绘图代码修改
ggplot(RNA, aes(x = "", y = Percent, fill = Pathogen)) +
  geom_bar(stat = "identity", width = 1) +
  coord_polar(theta = "y") +
  # 用position_stack自动定位到扇区中心
  geom_label_repel(aes(label = paste0(round(Percent, 1), "%")),
                   position = position_stack(vjust = 0.5),
                   nudge_x = 1, size = 4, show.legend = FALSE) +
  theme_void() +
  scale_fill_brewer(palette = "Pastel2") +
  labs(title = "RNA Vaccines pathogens")

这个方法会自动适配饼图的绘制方向，避免手动计算ypos的误差，是更推荐的解决方案。

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