R ggplot2中如何为离散X轴叠加柱状图添加平滑轮廓与阴影

原有基于geom_col的实现只能生成硬边缘的离散柱形，要实现移除柱体、保留平滑轮廓+下方阴影填充的效果，核心是先将离散X轴转换为可插值的连续坐标，再用平滑几何对象替换柱形图层，具体配置步骤如下：

• 离散坐标转换：字符型的离散X轴分类无法直接做平滑计算，先将X轴分类映射为连续数值，保留原始分类标签用于后续轴刻度还原；原示例中第二组柱形的0.2位置偏移，直接在对应组的X数值上加偏移量即可。
• 平滑插值处理：对离散的数值点位做样条插值，生成足够密的连续坐标点，避免轮廓出现生硬折角。
• 图层替换：移除原有geom_col柱形图层，先用geom_ribbon绘制轮廓下方的半透明阴影填充，再用geom_line在填充层上方叠加清晰的平滑轮廓线，最后将X轴刻度替换回原始离散分类标签。

完整可运行实现代码如下：

library(ggplot2)
set.seed(100)
dat <- data.frame(Axis=letters[1:10],V1=1:10, V2=runif(10, 1,10), V3=10:1)

# 离散X轴转连续数值
dat$x_num <- seq_along(dat$Axis)
# 对两组数据分别做样条插值，生成平滑点位
interp_v1 <- as.data.frame(spline(dat$x_num, dat$V1, n = 100))
interp_v2 <- as.data.frame(spline(dat$x_num + 0.2, dat$V2, n = 100))

ggplot() + 
  theme_classic() +
  # 绘制下层半透明阴影填充
  geom_ribbon(data = interp_v1, aes(x = x, ymin = 0, ymax = y), 
              fill = "darkred", alpha = 0.3) +
  geom_ribbon(data = interp_v2, aes(x = x, ymin = 0, ymax = y), 
              fill = "blue", alpha = 0.3) +
  # 叠加上层平滑轮廓线
  geom_line(data = interp_v1, aes(x = x, y = y), 
            color = "darkred", linewidth = 1) +
  geom_line(data = interp_v2, aes(x = x, y = y), 
            color = "blue", linewidth = 1) +
  # 还原X轴离散标签
  scale_x_continuous(breaks = dat$x_num, labels = dat$Axis)

调参说明：插值函数spline的n参数控制生成的平滑点密度，数值越大轮廓越顺滑；填充透明度alpha、轮廓线粗细linewidth可按需调整，配色、偏移量和原柱形示例完全对齐。如果需要调整平滑度风格，也可以替换为loess局部多项式拟合等其他插值方式。

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