OP，请在将来添加一个可再现的示例（* 数据和完整的代码本身就可以生成一个示例图来展示你的问题 *）。然而，核心问题涉及在分类（离散）x轴上添加geom_line()。

可复制示例

我可以使用mtcars重新创建相同类型的问题：

library(ggplot2)

p <-
  ggplot(mtcars, aes(x=factor(gear), y=wt)) +
  geom_col(aes(fill=factor(cyl)))

解决方案

由于分类（离散）轴没有“连接”，ggplot2默认情况下不会在x轴上的值之间绘制一条线。它将绘制的任何直线视为仅通过y值连接。因此，只有在执行以下操作时才能获得垂直线：

p + geom_line(linewidth=0.8)

要跨x轴值连接，您必须通过告诉ggplot2将所有点放入同一组来“强制”连接。通过Mapgroup=1或group=来实现这一点。

p + geom_line(aes(group=1), linewidth=0.8)

虽然这里没有必要，但如果您只想用平均值之类的值绘制一条线（通常是在堆叠条形图上绘制一条线），您可以使用stat_summary(geom="line")并应用相同的逻辑。下面的代码生成一条线，它只连接y值点，这些点是每个x位置的平均值。

p + stat_summary(
    aes(group="big scary monster"),  # see how group can equal anything here?
    geom="line", linewidth=0.8)