如何在ggplot2的coord_polar极坐标图内自动添加Y轴标签？

问题描述 #

我希望在使用geom_point的coord_polar极坐标图中自动将Y轴标签添加到图内。以下是可复现示例：

library(ggplot2)
ggplot(mtcars, aes(x = hp, y = mpg, color = factor(am))) +
  geom_point() +
  coord_polar() +
  labs(color = 'am')

可以看到Y轴标签位于图侧，我希望将其移至图内。我知道可以用annotate手动实现：

library(ggplot2)
ggplot(mtcars, aes(x = hp, y = mpg, color = factor(am))) +
  geom_point() +
  coord_polar() +
  labs(color = 'am') +
  annotate('text', x = 0, y = c(15, 20, 25, 30), label = c('15', '20', '25', '30')) 

但这种方式不够自动化，请问是否有自动在coord_polar图内添加Y轴标签的方法？

解决方案 #

你可以通过提取ggplot自动生成的Y轴刻度信息，结合geom_text实现自动化添加内侧标签，无需手动指定刻度值。具体代码如下：

library(ggplot2)

# 构建基础极坐标图，先隐藏原外侧Y轴标签
base_plot <- ggplot(mtcars, aes(x = hp, y = mpg, color = factor(am))) +
  geom_point() +
  coord_polar() +
  labs(color = 'am') +
  theme(axis.text.y = element_blank()) # 移除默认外侧标签

# 提取自动生成的Y轴刻度位置与对应标签
y_ticks <- ggplot_build(base_plot)$layout$panel_params[[1]]$y
y_breaks <- y_ticks$breaks
y_labels <- y_ticks$labels

# 添加自动定位的内侧Y轴标签
base_plot +
  geom_text(
    aes(x = 0, y = y_breaks, label = y_labels),
    inherit.aes = FALSE, # 不继承主图的颜色映射，避免标签随分组变色
    color = "black" # 可根据需求调整标签颜色
  )

原理说明 #

• ggplot_build()能提取ggplot对象的底层布局参数，其中包含系统自动计算的Y轴刻度位置（breaks）和对应标签文本（labels），彻底避免手动输入刻度值的繁琐操作。
• 设置inherit.aes = FALSE可以让标签不受主图的颜色映射影响，保持统一样式。
• 先隐藏原外侧标签，避免同一刻度重复显示。

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