调整ggplot中coord_polar下geom_text的极坐标，解决标签拥挤问题

问题原因 #

在ggplot2绘制环形图时，若仅通过geom_text设置y参数来增大标签半径却无效，本质是y轴范围被前置图层（如geom_bar）限制。比如geom_bar的y值较小，ggplot会自动将y轴范围锁定在该图层的数值区间内，后续geom_text的y值即使设置更大，也会被压缩到现有范围，导致标签聚集。

而添加alpha=0的geom_point能生效，是因为该图层的y值会让ggplot自动扩展y轴范围，从而让geom_text的y参数真正起作用，但这属于间接 workaround，不如直接控制轴范围更稳妥。

解决方案 #

直接通过scale_y_continuous手动扩展y轴范围，或使用expand参数动态调整，确保geom_text的y值落在轴范围内：

代码示例

假设你的数据和初始代码如下：

library(ggplot2)
# 模拟数据
df <- data.frame(
  category = paste("标签", 1:15),
  value = rep(1, 15) # 环形图的基础数值
)

# 初始无效代码
ggplot(df, aes(x = category, y = 1)) +
  geom_bar(stat = "identity", fill = "lightblue", color = "black") +
  geom_text(aes(label = category, y = 2)) + # y=2但标签仍聚集
  coord_polar(theta = "x")

修改后代码（两种方式任选）：

1. 手动设置y轴范围

ggplot(df, aes(x = category, y = 1)) +
  geom_bar(stat = "identity", fill = "lightblue", color = "black") +
  geom_text(aes(label = category, y = 2.8)) + # 设置足够大的y值
  scale_y_continuous(limits = c(0, 3)) + # 扩展y轴上限到3，包含标签的y值
  coord_polar(theta = "x")

2. 动态扩展y轴范围

ggplot(df, aes(x = category, y = 1)) +
  geom_bar(stat = "identity", fill = "lightblue", color = "black") +
  geom_text(aes(label = category, y = 1 + 1.5)) + # 在基础y值上增加偏移
  scale_y_continuous(expand = expansion(mult = c(0, 0.6))) + # 向上扩展60%的范围
  coord_polar(theta = "x")

额外提示 #

• 如果需要不同标签使用不同半径，可以将半径数值作为数据列，直接映射到geom_text的y参数，同时确保轴范围覆盖所有数值。
• 若标签仍然重叠，可结合nudge_x/nudge_y参数微调位置，或使用ggrepel包的geom_text_repel自动避让标签。

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