如何计算极坐标XY值在环形图数值标签正下方放置图形

问题背景 #

现有数据集及环形图代码如下，需求是在每个分类的数值标签正下方放置独立图形（因文本与图形颜色不同无法直接拼接），但手动逐个设置x坐标的方式无法得到预期对齐效果：

数据集代码：

library(tidyverse)
ig_5 <- data.frame(
  category = c("A", "B", "C", "D", "E", "F"),
  prop = c(0.1, 0.2, 0.15, 0.25, 0.05, 0.25)
) %>%
  mutate(lab.ypos = cumsum(prop) - 0.5*prop)

初始环形图代码：

ggplot(ig_5, aes(x = 2, y = prop, fill = prop)) +
  geom_bar(stat = "identity", color = "white") +
  coord_polar(theta = "y", start = 0) +
  geom_text(aes(y = lab.ypos, label = prop), color = "black", size = 5) +
  xlim(.5, 2.5)

尝试的错误代码（手动设置x坐标未达预期）：

ig_5 <- data.frame(
  category = c("A", "B", "C", "D", "E", "F"),
  prop = c(0.1, 0.2, 0.15, 0.25, 0.05, 0.25)) %>%
  mutate(lab.ypos = cumsum(prop) - 0.5*prop, 
         lab.ypos2 = cumsum(prop) + 0.3*prop)

ggplot(ig_5, aes(x = 2, y = prop, fill = prop)) +
  geom_bar(stat = "identity", color = "white") +
  coord_polar(theta = "y", start = 0) +
  geom_text(aes(y = lab.ypos, label = prop), color = "black", size = 5) +
  geom_label(aes(y = lab.ypos,
                 x = c(1.85, 2.1, 2.2, 1.95, 1.8, 1.85),
                 label = "figure"), 
             color = 'red') +
  xlim(.5, 2.5) 

解决方案 #

在coord_polar(theta = "y")的极坐标规则中：

• y轴映射为角度，所以只要保持图形和标签的y值一致，就能保证两者在同一角度位置
• x轴映射为环形半径，x值越小，元素距离圆心越近（视觉上的"下方"）

修正后的代码如下，无需手动逐个设置x，统一设置一个小于标签x的值即可：

ggplot(ig_5, aes(x = 2, y = prop, fill = prop)) +
  geom_bar(stat = "identity", color = "white") +
  coord_polar(theta = "y", start = 0) +
  # 先绘制图形（置于下层，避免遮挡文本）
  geom_label(aes(y = lab.ypos, x = 1.6, label = "图形"), 
             color = 'red', size = 4, fill = "white") +
  # 再绘制数值标签（置于上层）
  geom_text(aes(y = lab.ypos, label = prop), color = "black", size = 5) +
  xlim(.5, 2.5) +
  theme_void() # 可选，清除冗余坐标轴元素，让环形图更简洁

关键说明 #

1. 角度对齐：通过y = lab.ypos保证图形和标签完全在同一角度的位置上
2. 位置调整：x值设为1.6（小于标签的x=2），让图形出现在标签靠近圆心的一侧（即视觉上的正下方），可根据需求调整x值控制两者间距
3. 图层顺序：先绘制图形再绘制文本，避免文本被图形遮挡

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