R语言par(new=T)合并绘图异常求助：单图正常合图出错

嘿，作为R新手碰到这种绘图小坑太正常啦，我来帮你拆解问题并给出解决方案～

问题根源 #

你遇到的折线乱连问题，核心是par(new=T)的工作逻辑：它只是让新的绘图叠加在当前绘图区域上，但不会自动同步两张图的坐标轴范围、数据映射关系。单独绘图时R会自动根据数据调整坐标轴，但叠加时如果第二张图的坐标轴范围和第一张不匹配，或者数据的x轴对应关系出错，就会导致点被强制适配到第一张图的坐标轴里，进而出现折线异常连接的情况。

最优解决方案：用plot() + lines()替代par(new=T) #

其实R里叠加折线图最标准、最不容易出错的方式是先画基础图，再用lines()添加第二组数据，完全不需要par(new=T)：

library(datasets)
library(plotrix)

# 整理对应的数据：每个X7d的点对应x=7，每个X15d的点对应x=15
x7 <- rep(7, length(cfa1$X7d))
x15 <- rep(15, length(cfa1$X15d))
y_all <- c(cfa1$X7d, cfa1$X15d)

# 先绘制第一张折线（X7d），同时设置ylim覆盖所有y值的范围
plot(x7, cfa1$X7d, type="l", xlab="天数", ylab="指标值", 
     ylim=c(min(y_all), max(y_all)), col="blue")

# 用lines()添加第二张折线（X15d）
lines(x15, cfa1$X15d, type="l", col="red")

这种方式的好处是：

• 自动保证坐标轴范围覆盖所有数据，不会出现点被截断或错位的情况
• 不需要手动调整复杂的绘图参数，逻辑更直观，适合新手

如果一定要用par(new=T)的修正方法 #

如果你坚持要使用par(new=T)，必须强制两张图的坐标轴范围完全一致，并且关闭第二张图的坐标轴避免重复显示：

library(datasets)
library(plotrix)

x7 <- rep(7, length(cfa1$X7d))
x15 <- rep(15, length(cfa1$X15d))
y_all <- c(cfa1$X7d, cfa1$X15d)
x_range <- range(c(x7, x15))
y_range <- range(y_all)

# 绘制第一张图，指定固定的坐标轴范围
plot(x7, cfa1$X7d, type="l", xlim=x_range, ylim=y_range, 
     xlab="", ylab="", col="blue")

# 开启叠加模式
par(new=T)

# 绘制第二张图，必须和第一张用完全相同的xlim、ylim，同时关闭坐标轴
plot(x15, cfa1$X15d, type="l", xlim=x_range, ylim=y_range, 
     xlab="天数", ylab="指标值", col="red", axes=FALSE)

# 可选：添加右侧坐标轴区分两组数据
axis(4)
mtext("第二组指标值", side=4, line=3)

额外检查点 #

还要确认你的x数据是否和y数据一一对应：比如你代码里的x<- c(7,7,7,1...看起来没写完，要保证x的长度和y完全一致，每个位置的x值对应正确的分组（7对应X7d，15对应X15d），否则也会出现折线乱连的情况。

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