ggplot2可扩展环形柱状图优化：动态参数适配问题求助

背景 #

此前在Stack Overflow发布过相关讨论帖。

目标 #

复现参考环形柱状图。

当前代码 #

library(tidyverse)

data <- data.frame(
  labels = c("A","B","C","D","E","F","G","H"),
  values = c(88, 61, 56, 77, 83, 63, 42, 60)
) %>%
  mutate(
    bar_color = case_when(
      values < 62 ~ "#f2452e",
      values < 85 ~ "#76c5d0",
      values >= 85 ~ "#4b7d84",
    )
  )

ggplot(data, aes(x = labels, y = values)) +
  geom_bar(aes(fill = bar_color),
           stat = "identity", size = 1,
           color = "gray20", width = 1,
           alpha = 0.8) +
  coord_polar(start = -(pi / 8)) +
  scale_fill_identity() +
  theme(
    panel.grid.major.y = element_line(
      linewidth = .8,
      color = c("transparent", alpha("grey80", 0.5))
    ),
    axis.title = element_blank(),
    panel.background = element_blank(),
    axis.ticks.y = element_blank(),
    axis.text = element_blank(),
  ) +
  geom_hline(yintercept = 96.5,
             color = "grey90", size = 3) +
  scale_y_continuous(breaks = seq(0, 95, 5)) +
  geom_segment(aes(x = 1.5:8.5, y = 0, yend = 95),
               inherit.aes = FALSE, color = alpha("grey20", 0.5)) +
  geom_hline(yintercept = 94,
             color = "grey20", size = 1) +
  geom_label(aes(label = labels, y = 96), fill = "white", size = 6)

当前问题 #

以下参数均为硬编码，当data$values变化（尤其是超过95，最大值为100）时无法自动适配，需实现参数动态贴合0-100范围，覆盖所有可能的data$values值：

• scale_y_continuous()中的breaks
• geom_hline()中的yintercept
• geom_segment()中的yend
• geom_label()中的y

问题示例 #

将参数调整为适配0-100范围后：

1. breaks = seq(0, 100, 5)
2. 第一个geom_hline()的yintercept = 101.5
3. 第二个geom_hline()的yintercept = 99
4. geom_segment()的yend = 100
5. geom_label()的y = 101

调整后运行代码，环形图外圈出现额外的多余圆环，需解决此问题。

核心思路 #

问题根源在于coord_polar()下y轴范围自动扩展导致多余圆环，同时硬编码参数无法适配动态数据。通过提取动态变量、严格控制y轴范围、自动生成元素位置来解决。

优化后的代码 #

library(tidyverse)

data <- data.frame(
  labels = c("A","B","C","D","E","F","G","H"),
  values = c(88, 61, 56, 77, 83, 63, 42, 100) # 包含最大值100的测试数据
) %>%
  mutate(
    bar_color = case_when(
      values < 62 ~ "#f2452e",
      values < 85 ~ "#76c5d0",
      values >= 85 ~ "#4b7d84",
    )
  )

# 定义可调整的动态参数
y_max <- 100
break_interval <- 5
label_offset <- 1
hline_inner_offset <- 1
hline_outer_offset <- 1.5
category_count <- nrow(data)

ggplot(data, aes(x = labels, y = values)) +
  geom_bar(aes(fill = bar_color),
           stat = "identity", size = 1,
           color = "gray20", width = 1,
           alpha = 0.8) +
  coord_polar(start = -(pi / category_count)) + # 自动适配类别数量的起始角度
  scale_fill_identity() +
  scale_y_continuous(
    breaks = seq(0, y_max, break_interval),
    limits = c(0, y_max + hline_outer_offset), # 严格限制y轴范围
    expand = c(0, 0) # 关闭自动扩展，避免多余圆环
  ) +
  theme(
    panel.grid.major.y = element_line(
      linewidth = .8,
      # 动态生成网格线颜色，跳过0刻度的线
      color = c("transparent", rep(alpha("grey80", 0.5), length(seq(break_interval, y_max, break_interval))))
    ),
    axis.title = element_blank(),
    panel.background = element_blank(),
    axis.ticks.y = element_blank(),
    axis.text = element_blank(),
  ) +
  # 外层灰色粗线
  geom_hline(yintercept = y_max + hline_outer_offset,
             color = "grey90", size = 3) +
  # 动态生成分隔线段的x位置
  geom_segment(aes(x = seq(1.5, category_count + 0.5, 1), y = 0, yend = y_max),
               inherit.aes = FALSE, color = alpha("grey20", 0.5)) +
  # 内层黑色细线
  geom_hline(yintercept = y_max - hline_inner_offset,
             color = "grey20", size = 1) +
  # 动态设置标签位置
  geom_label(aes(label = labels, y = y_max + label_offset), fill = "white", size = 6)

关键调整点 #

1. 动态变量提取：把所有硬编码数值转为可调整变量，适配0-100的固定范围
2. y轴范围控制：通过limits和expand = c(0,0)彻底避免coord_polar自动扩展范围产生的多余圆环
3. 元素位置自动生成：网格线颜色、分隔线段x位置、起始角度都根据数据行数动态计算，无需硬编码
4. 适配性增强：即使类别数量或数值范围变化，图表也能自动调整布局

内容的提问来源于stack exchange，提问作者isaid-hi