R语言中如何将含NA值的向量作为线段添加到已有图表

R 基础绘图体系没有内置line()函数，这是你代码运行报错的直接原因。向已有图表添加线条的对应基础函数为lines()，但直接传入向量无法自动匹配x轴位置，且需要正确处理向量中的NA值来实现线段断开的效果。

你的向量vec <- c(NA,1,1,NA,NA,NA,1,NA)中，元素顺序对应x轴从1到8的位置，元素值为y轴坐标，NA代表该位置不绘制内容，以下方法都可以实现你要的分段线段效果，直接叠加到你已经绘制完成的图表上即可：

方法1：直接用lines()自动处理NA（最简单） #

lines()函数会自动在y值为NA的位置断开线条，你只需要显式传入和向量等长的x轴坐标即可：

# 核心添加线条代码，直接在你已完成的绘图代码后运行即可
lines(
  x = seq_along(vec), # x坐标取向量的索引位置1-8
  y = vec, # y坐标为你的向量值
  lwd = 3, # 调整线段粗细，可根据你的图表样式修改
  col = "black" # 调整线段颜色，可根据需求修改
)

注意：如果你的向量中存在孤立的单个1（比如示例中第7位的1，前后都是NA），这个方法会在该位置绘制一个点而非短横线，如果需要孤立值也显示为固定长度的线段，用下面的方法2。

方法2：提取连续片段用segments()绘制（更精准，完全匹配示例样式） #

先识别向量中所有连续为1的区间，再逐段绘制水平线段，不管是连续多值还是孤立单值，都会显示为完整线段：

# 识别连续的非NA且值为1的片段
vec_runs <- rle(!is.na(vec) & vec == 1)
# 计算每段的起止x坐标
seg_end <- cumsum(vec_runs$lengths)
seg_start <- seg_end - vec_runs$lengths + 1
# 筛选出所有需要绘制的线段区间
draw_seg <- data.frame(
  x_start = seg_start[vec_runs$values],
  x_end = seg_end[vec_runs$values],
  y = 1
)
# 逐段绘制线段，直接叠加到已有图表上
segments(
  x0 = draw_seg$x_start,
  x1 = draw_seg$x_end,
  y0 = draw_seg$y,
  y1 = draw_seg$y,
  lwd = 3,
  col = "black"
)

ggplot2体系适配方法 #

如果你是用ggplot2绘制的现有图表，不需要重绘原图，直接添加线条图层即可，ggplot2会自动在NA位置断开线段：

library(ggplot2)
# 假设p为你已经绘制完成的ggplot对象
p + geom_line(
  aes(x = seq_along(vec), y = vec),
  na.rm = FALSE,
  linewidth = 1,
  colour = "black"
)

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