R ggplot折线图：用虚实线填充NA缺失数据的实现问题

问题背景 #

数据集包含Bedford、CIPFA_average、England三个区域，2018-2023年Early Years、Primary、Secondary三个年龄段的教育差距（gap_in_months）数据，其中2020、2021年的数值全部为NA。尝试用以下代码绘制折线图，希望用虚线填充缺失数据对应的线段，但最终所有线段都显示为实线：

EPI_chart <- EPI_beds_CIPFA_eng %>%
ggplot(aes(x = year, y = gap_in_months, color = region_name, group = region_name)) +  
geom_line(data = . %>% filter(!is.na(gap_in_months)), size = 1.5, linetype = "solid") +  
geom_line(data = . %>% filter(is.na(gap_in_months)), size = 1.5, linetype = "dotted") +  
facet_wrap(~ age, scales = "free_y") +  theme_minimal()  +
scale_color_manual(values = HT_colours_broad_3)

问题原因 #

直接过滤is.na(gap_in_months)的行无法生成线段——因为线段需要两个有数值的端点才能绘制，而NA行本身没有有效y值，ggplot无法基于这些行创建任何线段。需要识别的是连接缺失年份前后的有效年份的线段（即2019到2022之间的线段），将这部分线段设置为虚线。

解决方案 #

步骤1：预处理数据，标记缺失区间的线段 #

先将year转为数值型，然后按region_name和age分组，创建一个标记列segment_type，用来区分正常线段和缺失区间的线段：

library(dplyr)

# 预处理数据
EPI_beds_CIPFA_eng_processed <- EPI_beds_CIPFA_eng %>%
  mutate(year = as.numeric(year)) %>%
  group_by(region_name, age) %>%
  # 生成线段的起始和结束年份标记
  mutate(
    next_year = lead(year),
    prev_year = lag(year),
    # 判断当前行是否连接缺失年份（2019→2022）
    is_missing_segment = (year == 2019 & next_year == 2022) | (year == 2022 & prev_year == 2019),
    # 标记线段类型：缺失区间为虚线，其他为实线
    segment_type = ifelse(is_missing_segment, "dashed", "solid")
  ) %>%
  ungroup()

步骤2：修改ggplot代码，映射linetype到标记列 #

在aes中加入linetype = segment_type，并通过scale_linetype_manual指定对应样式：

library(ggplot2)

EPI_chart <- EPI_beds_CIPFA_eng_processed %>%
  ggplot(aes(x = year, y = gap_in_months, color = region_name, group = region_name, linetype = segment_type)) +  
  geom_line(data = . %>% filter(!is.na(gap_in_months)), size = 1.5) +  
  facet_wrap(~ age, scales = "free_y") +  
  theme_minimal() +
  scale_color_manual(values = HT_colours_broad_3) +
  # 指定线段样式，隐藏图例（如果不需要显示虚实对应的说明）
  scale_linetype_manual(values = c("solid" = "solid", "dashed" = "dashed"), guide = "none")

说明 #

• 预处理时通过lead()和lag()识别出连接2019（最后一个有值的年份）和2022（缺失后第一个有值的年份）的线段，将其标记为dashed。
• 如果不需要显示线段类型的图例，添加guide = "none"隐藏即可。
• 这种方式确保只有跨越缺失年份的线段显示为虚线，其他正常年份的线段保持实线。

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