使用ggplot2绘制带标准差的R雷达图无法闭合的问题求助

问题根源在于离散型x轴的极坐标逻辑处理，你之前追加第一行数据的思路是对的，但缺少让ggplot识别闭合路径的关键配置。

修正后的完整代码 #

library(ggplot2)
library(dplyr)

IDCritieria = c("A", "B", "C", "D")
Art_Anim_Avg = c(3.1, 3.4, 2.6, 3.3)
Art_Anim_Std = c(1.17, 0.88, 0.73, 0.58)

df <- data.frame(
  Criteria_ID = IDCritieria,
  Average = Art_Anim_Avg,
  Std_Dev = Art_Anim_Std
) %>%
  mutate(
    Min_SD = Average - Std_Dev,
    Max_SD = Average + Std_Dev
  )

# 关键步骤：追加第一行数据，让数据集形成闭合链路
df_closed <- rbind(df, df[1, ])

df_closed %>%
  ggplot(aes(x = factor(Criteria_ID, levels = IDCritieria), y = Average, group = 1)) +
  geom_ribbon(aes(ymin = Min_SD, ymax = Max_SD), fill = "grey60", alpha = 0.5) +
  geom_line(colour = "purple", size = 1.2) +
  geom_point(colour = "purple", size=3) + 
  scale_y_continuous(limits = c(0, 5)) +
  # 关键配置：指定x轴刻度范围，确保极坐标识别闭合路径且仅显示原始标签
  scale_x_discrete(limits = c(IDCritieria, IDCritieria[1])) +
  theme_light() +
  theme(
    panel.grid.major = element_line(color = "gray", linetype = "dashed"),
    panel.grid.minor = element_blank()
  ) + 
  coord_polar(theta = "x") +
  ggtitle("Art (Animation)")  +
  labs(x = "", y = "")

核心修正说明 #

• 数据集闭合：必须将第一行数据追加到末尾，让折线和标准差丝带能从最后一个指标回到第一个指标
• x轴因子控制：通过factor(Criteria_ID, levels = IDCritieria)固定指标顺序，避免ggplot自动排序；用scale_x_discrete指定刻度范围，让极坐标识别闭合路径的同时，只显示原始4个指标标签
• 图层顺序调整：将geom_ribbon放在最底层，避免覆盖折线和数据点

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