带误差阴影的雷达图：geom_ribbon首尾间隙的等效解决方法

嘿，这个问题我之前做雷达图的时候也踩过坑！用geom_ribbon加误差阴影，转成极坐标后首尾总会留个小缺口，其实不用换成geom_polygon，只要给数据做个简单的小调整就能搞定，而且完全保留geom_ribbon的便捷性。

核心思路：让数据首尾闭合 #

雷达图是环形的，极坐标下第一个和最后一个类别其实是相邻的，但geom_ribbon只会按数据的顺序依次连接点，不会自动闭合环形。所以我们只需要把数据的第一行复制一份，加到数据框的最后，这样geom_ribbon绘制到最后时，会自动连接到复制的第一个点，完美补上缺口。

具体操作步骤 #

1. 预处理数据

用你的示例数据summ，执行以下代码复制首行并追加到末尾：

# 复制第一行数据，添加到数据框最后，实现首尾闭合
summ_closed <- rbind(summ, summ[1, ])

注意：如果你的target是有序因子，确保复制的首行target和原数据第一个target完全匹配，这样极坐标下的位置才会对应正确。

2. 绘制带误差阴影的雷达图

用处理后的summ_closed绘图，结合geom_ribbon定义误差范围，再转成极坐标：

library(ggplot2)

ggplot(summ_closed, aes(x = target, y = kd, group = peptide)) +
  # 绘制误差阴影：ymin是均值减误差，ymax是均值加误差
  geom_ribbon(
    aes(ymin = kd - error, ymax = kd + error),
    fill = "#63B8FF", alpha = 0.3, # 调整填充色和透明度
    color = NA # 去掉阴影的边框，避免和均值线重叠
  ) +
  # 绘制均值线条
  geom_line(color = "#0066CC", linewidth = 1) +
  # 绘制均值点
  geom_point(color = "#003399", size = 2) +
  # 转换为极坐标，start参数可以调整第一个类别的起始角度（可选）
  coord_polar(start = -pi / length(unique(summ$target))) +
  # 让y轴从0开始，符合雷达图的视觉习惯
  scale_y_continuous(limits = c(0, max(summ$kd + summ$error) * 1.1)) +
  # 按peptide分面展示（如果有多个组别）
  facet_wrap(~peptide) +
  # 调整主题，让雷达图更美观
  theme_minimal() +
  theme(axis.text.x = element_text(size = 10))

为什么这个方法等效于geom_polygon？ #

geom_polygon是通过连接所有点形成闭合多边形来实现阴影，而我们通过补全首尾数据，让geom_ribbon的绘制路径自动闭合，本质上都是让图形形成环形。但geom_ribbon可以直接用ymin和ymax参数定义误差上下边界，不需要手动构建多边形的顶点数据，处理多组别（比如示例中的多个peptide）时更高效直观。

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