如何将标签移至ggplot堆叠环形图的每个扇区边缘？

要将标签移至每个环形的起始边缘，需先预处理数据计算分组的起始位置，再调整geom_text的位置参数，具体操作如下：

1. 预处理数据计算起始坐标 #

先计算每个分组在y轴上的起始位置（对应环形的起始角度），同时过滤出仅含有效标签的行：

library(dplyr)

data_processed <- data %>%
  # 与scale_x_discrete的排序逻辑保持一致
  arrange(desc(category)) %>%
  group_by(category) %>%
  mutate(group_total = sum(prop)) %>%
  ungroup() %>%
  # 计算每个分组的起始y值（即前面所有分组的总高度之和）
  mutate(start_y = cumsum(group_total) - group_total) %>%
  # 只保留带标签的行，避免绘制无效内容
  filter(!is.na(labels))

2. 修改ggplot代码调整标签位置 #

调整geom_text的位置、对齐方式和角度，让标签精准贴合环形起始边缘：

library(ggplot2)

ggplot(data, aes(x = category, y = prop, fill = level)) +
  geom_col() +
  scale_fill_manual(values = c("white", "red")) +
  coord_polar(theta = "y") +
  xlim(c(-1, 4)) +
  scale_x_discrete(limits = rev(c(unique(data$category), " ", " "))) +
  # 定位标签到环形起始边缘
  geom_text(data = data_processed,
            aes(x = as.integer(factor(category)) + 0.2, # 向外偏移x，让标签显示在环形外侧
                y = start_y,
                label = labels),
            hjust = 0, # 左端对齐起始位置
            angle = function(x) (x$start_y + 0.5) * 90 - 90) + # 角度匹配环形方向，提升可读性
  theme_void() +
  theme(legend.position = "none")

关键调整说明 #

• start_y：通过累积计算得到每个环形的起始y坐标，对应环形的起始角度位置。
• x = as.integer(factor(category)) + 0.2：将离散分类转为整数后向外偏移，确保标签显示在环形外侧而非内部。
• hjust = 0：让标签左端对齐环形起始边缘，精准贴合目标位置。
• angle参数：根据分组位置计算文本倾斜角度，让标签沿环形边缘方向排列，若不需要倾斜可直接删除该参数。

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