在ggplot2中为同一条线的不同段设置两种线型的方法

要让同一基因的折线在Dark→Dim段用虚线、Dim→Ambient段用实线，需要先把数据处理成线段级别的格式，再用geom_segment绘制，具体操作如下：

1. 数据预处理 #

为每个基因生成相邻处理组之间的线段信息，包括起点/终点的坐标，以及对应线段的线型：

library(tidyverse)

# 处理示例数据
df_processed <- df %>%
  # 过滤掉只有单个处理组的基因（无法形成线段）
  group_by(FS_Gene) %>%
  filter(n() >= 2) %>%
  # 按Treatment预设顺序（Dark→Dim→Ambient）排序
  arrange(Treatment) %>%
  # 生成下一个点的处理组和表达量，用于构建线段
  mutate(
    Treatment_end = lead(Treatment),
    Expression_end = lead(Expression),
    # 定义线型规则：Dark→Dim用虚线，Dim→Ambient用实线
    line_type = case_when(
      Treatment == "Dark" & Treatment_end == "Dim" ~ "dashed",
      Treatment == "Dim" & Treatment_end == "Ambient" ~ "solid",
      TRUE ~ NA_character_ # 其他情况设为NA，后续过滤
    )
  ) %>%
  # 去掉无终点的行（每个基因的最后一个点）
  drop_na(line_type) %>%
  ungroup()

2. 绘制折线 #

用geom_segment替代原有的geom_line，通过linetype参数绑定自定义的线型变量，同时保留原有的颜色映射：

ggplot(df_processed, aes(group = FS_Gene, color = AM_vs_CM_Sig)) +
  # 绘制线段，指定起点、终点坐标及线型
  geom_segment(
    aes(
      x = Treatment, xend = Treatment_end,
      y = Expression, yend = Expression_end,
      linetype = line_type
    ),
    linewidth = 1 # 可选：调整线宽
  ) +
  # 保留原坐标轴标签
  labs(y = "Expression", x = "Treatment") +
  # 自定义线型图例名称（可选）
  scale_linetype_manual(
    values = c("dashed" = "dashed", "solid" = "solid"),
    labels = c("Dark→Dim", "Dim→Ambient")
  ) +
  theme_bw()

补充说明 #

• 核心逻辑是把连续折线拆成独立线段，给每个线段分配对应线型，完美解决同一条线不同段样式不同的需求。
• 如果需要保留每个处理组的散点，可额外添加geom_point()层。

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