如何修复R语言ggplot径向图表的标签与线条问题？

先上修改后的完整代码（基于你的场景适配） #

library(ggplot2)
library(dplyr)

# 模拟你的门店等待时间数据（替换成你实际数据即可）
queue_data <- data.frame(
  Store = c("门店A", "门店B", "门店C", "门店D", "门店E", "门店F"),
  Avg_Wait = c(5, 12, 8, 15, 6, 10)
)

# 数据预处理：计算角度用于标签对齐，按等待时间排序优化视觉
queue_data <- queue_data %>%
  arrange(desc(Avg_Wait)) %>%
  mutate(
    angle = 90 - 360 * (row_number() - 0.5) / n(),
    hjust = ifelse(angle < -90, 1, 0),
    vjust = 0.5
  )

# 绘制优化后的径向图
ggplot(queue_data, aes(x = Store, y = Avg_Wait)) +
  # 绘制延伸至中心的灰色基线
  geom_segment(
    aes(x = Store, xend = Store, y = 0, yend = max(Avg_Wait)),
    color = "grey80", size = 0.5
  ) +
  # 径向条形
  geom_col(fill = "#2980b9", width = 0.7) +
  # 避免堆积的外侧标签
  geom_text(
    aes(
      label = paste(Avg_Wait, "min"),
      angle = angle, hjust = hjust, vjust = vjust
    ),
    color = "#2c3e50", fontface = "bold", size = 4
  ) +
  # 极坐标配置，确保基线从中心出发
  coord_polar(start = 0, direction = -1) +
  # 扩展y轴范围，给标签留空间
  ylim(0, max(queue_data$Avg_Wait) * 1.2) +
  # Karamanis风格极简主题
  theme_minimal() +
  theme(
    axis.text.y = element_blank(),
    axis.title = element_blank(),
    panel.grid = element_blank(),
    plot.margin = margin(20, 20, 20, 20)
  )

问题针对性解决说明 #

1. 解决标签堆积问题

   • 计算每个条形的中心角度，根据角度判断标签的水平对齐方向（hjust）：下半部分的条形标签向右对齐，上半部分向左对齐，彻底避免重叠。
   • 扩展y轴范围（ylim），给外侧标签留出足够显示空间，防止被截断。
   • 统一标签样式（加粗、固定大小），提升可读性。

2. 解决灰色线条未到中心问题

   • 用geom_segment直接绘制从y=0（中心）到最大等待时间的基线，确保每条线都连接到中心。
   • 极坐标设置start=0和direction=-1，让条形从顶部顺时针排列，配合ylim(0, ...)确保基线起点在中心。

3. 融入Karamanis极简风格

   • 移除冗余元素：网格线、径向刻度、轴标题，只保留核心的条形、基线和标签。
   • 使用低饱和的蓝灰配色，保持视觉简洁专业。
   • 按等待时间降序排列数据，让最长等待时间的门店处于最显眼的顶部位置，优化信息传递逻辑。

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