ggplot2绘制多组折线图如何让指定分组线条始终置顶显示

ggplot2 同图层内的图形元素默认按数据行的先后顺序绘制，后绘制的元素会覆盖先绘制的元素。你把所有分组线条放在同一个geom_line()层中，若灰色的Other分组行序在高亮的g1组之后，就会出现红线被遮挡的情况。

方法1：拆分图层手动控制绘制层级（最稳妥，推荐） #

将非高亮的灰色线条放在下层先绘制，高亮红线单独放在上层后绘制，后绘制的内容会自动置于视觉顶层，还可以单独调整两类线条的视觉参数强化高亮效果：

library(ggplot2)
ggplot(df) + 
  # 底层：先绘制所有非高亮分组
  geom_line(
    data = ~subset(.x, color == "gray90"),
    aes(x = timepoint, y = var, group = participant_id, color = color),
    alpha = 0.7 # 可选：给非高亮线加透明度弱化存在感
  ) +
  # 顶层：后绘制高亮分组，自动覆盖下层线条
  geom_line(
    data = ~subset(.x, color == "red"),
    aes(x = timepoint, y = var, group = participant_id, color = color),
    linewidth = 1.2 # 可选：加粗高亮线，突出效果
  ) + 
  scale_color_identity(labels = c(red = "g1", gray90 = "Other"), guide = "legend")

方法2：单图层内调整绘制顺序 #

如果不想拆分图层，可以在aes()中通过order参数强制指定绘制顺序，让高亮组最后绘制：

ggplot(df) + 
  geom_line(
    aes(
      x = timepoint, 
      y = var, 
      group = participant_id, 
      color = color,
      order = I(color == "red") # 逻辑值TRUE对应高亮组，会被放到同图层最后绘制，自动置于顶层
    )
  ) + 
  scale_color_identity(labels = c(red = "g1", gray90 = "Other"), guide = "legend")

注意：两种方案都不需要修改原始数据的行排序，直接替换原有绘图代码即可生效。

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