ggplot极坐标对数刻度下如何为标签创建空白内环？

核心思路 #

对数变换不支持0和负数，因此常规ylim设负值留空的方法失效。我们可以通过给原始数值加固定偏移量+手动调整对数刻度下限+修正轴标签的方法实现空白内环，不需要修改极坐标的底层渲染逻辑。

实现步骤 #

1. 设定偏移量：根据你需要的内环宽度设置offset值，值越大空白内环越宽
2. 预处理绘图数据：所有原始y值加上偏移量得到绘图用的y字段
3. 配置对数刻度：将对数y轴的下限设为偏移量的值，原点到下限的径向区域就是空白内环
4. 修正轴标签：将y轴刻度标签统一减去偏移量，还原真实数值
5. 添加内环标签：将标签的y坐标设为偏移量范围内的数值，即可放在空白内环区域

示例代码 #

library(ggplot2)
# 模拟分组数据，数值跨度3个数量级，适合用对数刻度展示
df <- expand.grid(group = paste0("分组",1:3), category = paste0("类别",1:5))
df$value <- 10^runif(nrow(df), min = 1, max = 4) 

# 1. 设置偏移量，控制空白内环宽度
offset <- 10
# 2. 生成绘图用y值
df$y_plot <- df$value + offset

ggplot(df, aes(x = category, y = y_plot, fill = group)) +
  geom_col(position = "dodge", width = 0.8) +
  # 3. 配置对数刻度，下限设为偏移量
  scale_y_log10(
    limits = c(offset, max(df$y_plot) * 1.1),
    # 4. 修正刻度标签，还原真实数值
    labels = function(x) round(x - offset)
  ) +
  coord_polar() +
  # 5. 添加内环分组标签，y值设在偏移量范围内
  geom_text(
    aes(y = offset * 0.5, label = group),
    position = position_dodge(width = 0.8), size = 3
  ) +
  # 可选主题调整：隐藏冗余的y轴元素
  theme(
    axis.text.y = element_blank(),
    axis.title.y = element_blank(),
    axis.ticks.y = element_blank()
  )

注意事项 #

• 如果原始数据存在小于等于0的取值，需要先做预处理将所有值转为正数，再添加偏移量
• 偏移量的大小可根据标签长度、需要的内环宽度灵活调整，不会影响最终展示的数值准确性

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