ggplot2实现x轴为分类变量时折线下方阴影绘制

核心实现逻辑 #

分类x轴在ggplot2底层会被自动转换为从1开始的整数位置坐标，不需要手动做数值转换，直接使用geom_ribbon()几何对象即可实现折线到指定下边界的区域填充：

• 填充层必须放在折线、散点图层之前绘制，避免填充区域遮挡上层的点和线
• 填充时指定ymin为填充区域的下边界（和现有代码里y轴下限2保持一致即可），ymax映射为数据中的mean列，保持group=1和全局分组设置一致
• 建议给填充层设置透明度alpha，实现柔和的阴影效果，避免完全遮挡背景网格或参考线

修改后的完整可运行代码 #

library(tidyverse)
# 示例数据集定义
t <- structure(list(Indicator = c("Performance", "Relationship", "Inter", 
"Culture", "Focused", "Profit", "Knowledge", "Customer", "Lead", 
"Leadership", "Competitiveness"), mean = c(5.11124203821656, 
5.38707537154989, 3.12898089171975, 5.70647558386412, 5.48805732484076, 
5.3343949044586, 5.77547770700637, 6.06488853503185, 5.1156050955414, 
4.97292993630573, 4.323703366697)), row.names = c(NA, -11L), class = c("tbl_df", 
"tbl", "data.frame"))

# 绘图代码
t %>% 
  ggplot(aes(x = Indicator, y = mean, group = 1))+
  scale_x_discrete(limits = c("Relationship","Inter","Culture","Focused","Profit","Knowledge","Customer","Lead","Leadership","Competitiveness","Performance")) +
  # 新增阴影填充层，放在图层最底部
  geom_ribbon(aes(ymin = 2, ymax = mean), fill = "steelblue", alpha = 0.3) +
  geom_point() +
  geom_line() +
  geom_vline(xintercept = 10.5) +
  ylim(c(2,7)) + 
  theme(axis.text.x = element_text(angle = 90, hjust = 1, vjust = 0.5),
        panel.background = element_rect(fill = "white",
                                        colour = "lightblue",
                                        size = 0.5, linetype = "solid"))

可调参数说明 #

• 更改fill参数值可以调整阴影的填充颜色，支持预设色名、十六进制颜色码、RGB色值
• 调整alpha参数（取值范围0-1）可以修改阴影透明度，数值越小阴影越浅
• 如果需要填充到y=0而非y轴下限，只需要把ymin的值改成0即可，注意同步调整ylim范围适配展示效果

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