在R（Mac版RStudio）中用par(new=T)叠加多图仅显第三张，求助排查

嘿，我来帮你搞定这个困扰！你现在只看到第三张图的原因很简单：你在绘制第二张图后把par(new = FALSE)改回去了，第三张图调用plot()时，R默认会清空当前画布重新绘制，直接覆盖了前两张图。

问题出在哪？ #

你的代码逻辑里：

1. 第一张图正常绘制，开启par(new = T)允许叠加
2. 第二张图叠加成功，但之后立刻把par(new)改回FALSE
3. 第三张图绘制时，R触发了默认行为——清空画布，所以前两张都没了

两种正确的解决方法 #

方法1：正确管理par(new)状态

要让所有图都叠加，需要在每一张叠加图之前都开启par(new = TRUE)，直到所有图绘制完成再关闭。同时注意关闭后续图的坐标轴和标签，避免重复显示：

# 先计算统一的坐标轴范围（确保所有数据都在范围内）
min_v <- min(Y1, Y2, Y3)
max_v <- max(Y1, Y2, Y3)
xlim_v <- range(X)

# 绘制第一张图（作为基础，保留坐标轴和标签）
plot(X, Y1, pch = 0, ylim = c(min_v, max_v), xlim = xlim_v, col = "red", 
     xlab = "X轴名称", ylab = "Y轴名称")

# 开启叠加，绘制第二张图（关闭坐标轴、空标签避免重复）
par(new = TRUE)
plot(X, Y2, pch = 1, ylim = c(min_v, max_v), xlim = xlim_v, col = "blue", 
     axes = FALSE, xlab = "", ylab = "")

# 继续叠加，绘制第三张图
par(new = TRUE)
plot(X, Y3, pch = 2, ylim = c(min_v, max_v), xlim = xlim_v, col = "green", 
     axes = FALSE, xlab = "", ylab = "")

# 关闭叠加状态
par(new = FALSE)

# 添加图例区分不同数据集
legend("topright", legend = c("Y1", "Y2", "Y3"), 
       pch = c(0, 1, 2), col = c("red", "blue", "green"))

方法2：用points()函数更简单（推荐）

其实R有专门的函数在现有画布上添加点——points()，不需要手动管理par(new)，逻辑更清晰：

# 计算统一坐标轴范围
min_v <- min(Y1, Y2, Y3)
max_v <- max(Y1, Y2, Y3)
xlim_v <- range(X)

# 先绘制第一张图作为基础画布
plot(X, Y1, pch = 0, ylim = c(min_v, max_v), xlim = xlim_v, col = "red", 
     xlab = "X轴名称", ylab = "Y轴名称")

# 直接用points添加第二组点
points(X, Y2, pch = 1, col = "blue")

# 添加第三组点
points(X, Y3, pch = 2, col = "green")

# 添加图例
legend("topright", legend = c("Y1", "Y2", "Y3"), 
       pch = c(0, 1, 2), col = c("red", "blue", "green"))

关键注意事项 #

• 所有叠加的图必须设置相同的xlim和ylim，不然绘图区域会偏移，点的位置会错位
• 用plot()叠加时记得关闭后续图的坐标轴，不然会出现重复的坐标轴线条和标签，影响美观

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