在R中用plot()处理缺失数据：如何实现连续折线图？

我有三个随时间记录的变量：第一个（黑色）每个时间点都有记录，第二个（蓝色）每隔一个时间点记录一次，第三个（红色）仅缺失一个时间点的数据。尝试用R绘制时，只有黑色线条连续，蓝色线条完全不显示，红色线条在缺失处断开，希望三条线都保持连续。

测试数据与初始代码：

test <- data.frame(time=c(1:5), black=c(3, 3, 3, 3, 3), blue=c(1, NA, 3, NA, 5), red=c(5, 4, NA, 2, 1))

plot(test$time, test$black, type="l", col="black")
lines(test$time, test$blue, col="blue")
lines(test$time, test$red, col="red")

要让含缺失值的线条保持连续，核心是处理缺失值的连接逻辑，以下是两种可靠方法：

方法1：线性插值填充缺失值 #

用approx()对缺失的时间点做线性插值，生成完整序列后绘图：

test <- data.frame(time=c(1:5), black=c(3, 3, 3, 3, 3), blue=c(1, NA, 3, NA, 5), red=c(5, 4, NA, 2, 1))

# 对含缺失值的变量做线性插值
blue_interp <- approx(test$time, test$blue, xout = test$time)$y
red_interp <- approx(test$time, test$red, xout = test$time)$y

# 初始化绘图，提前设置y轴范围避免线条截断
plot(test$time, test$black, type="l", col="black", 
     ylim = range(c(test$black, blue_interp, red_interp)))
# 添加插值后的蓝色线条
lines(test$time, blue_interp, col="blue")
# 添加插值后的红色线条
lines(test$time, red_interp, col="red")

approx()的xout参数指定要生成值的时间点，自动用线性逻辑填充NA，确保线条连续。

方法2：直接连接非缺失坐标点 #

提取每个变量的非缺失时间点与对应值，直接绘制线条，R会自动连接这些点：

test <- data.frame(time=c(1:5), black=c(3, 3, 3, 3, 3), blue=c(1, NA, 3, NA, 5), red=c(5, 4, NA, 2, 1))

# 初始化绘图，设置正确的y轴范围（排除time列，忽略NA）
plot(test$time, test$black, type="l", col="black", 
     ylim = range(test[, -1], na.rm = TRUE))
# 绘制蓝色线条：仅用非NA的点
lines(test$time[!is.na(test$blue)], test$blue[!is.na(test$blue)], col="blue")
# 绘制红色线条：仅用非NA的点
lines(test$time[!is.na(test$red)], test$red[!is.na(test$red)], col="red")

这种方式无需插值，直接跳过NA连接有效点，视觉上保持连续。

之前尝试的错误说明 #

• na.omit(test)会删除所有含NA的行，导致黑色变量的完整数据被截断，不符合需求；
• !is.na()用法错误：lines()参数顺序为x、y，传入多余参数导致报错；
• approx()调用方式错误，未匹配x、y与xout参数，导致长度不匹配；
• 设置ylim时误用subset函数名作为变量，应使用test[, -1]选取所有数值列。

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