R代码运行正常但编织为PDF时报invalid graphics state错误如何解决

• 核心触发点为base R绘图系统和ggplot2绘图系统函数混用：abline()是base R专属的图形操作函数，仅可作用于base R生成的图形设备；你在ggplot()语句执行后直接调用abline()，此时当前图形设备为ggplot2创建的状态，base R函数无法识别该状态，直接抛出图形状态无效的报错。
• 交互式运行时因为图形设备是逐步创建/切换的，部分操作的残留状态会掩盖冲突，所以可以正常运行；但R Markdown编织时是顺序串行执行代码，图形设备的管理逻辑更严格，冲突会直接暴露。

• 拆分两个绘图系统的操作逻辑，不要跨系统调用图形函数：
  1. 若使用base R绘图，将abline()放在base R的plot()语句之后；
  2. 若使用ggplot2绘图，用ggplot2专属的geom_smooth()函数添加回归线，不要用abline()。
• 修正后的完整可正常编织的代码如下：

# 主动清空残留图形设备状态，避免异常
graphics.off()

# base R 绘图逻辑
plot(cars$speed, cars$dist)
# 同时修正原代码回归公式的逻辑错误：原公式把speed作为因变量，和绘图的xy轴对应关系不符
abline(lm(dist ~ speed, data = cars), col ="red")

# ggplot2 绘图逻辑
library(ggplot2)
ggplot(cars, aes(x=speed, y=dist)) + 
  geom_point() +
  # ggplot2 专属加回归线函数，se=FALSE关闭置信区间阴影
  geom_smooth(method = "lm", col = "red", se = FALSE)

# 以下原有逻辑无问题，无需修改
cor(cars$speed, cars$dist, use="complete.obs")
myVector = c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10)
MyFunction <- function(x) {
  y <- x*5
  return(y)
}

MyFunction(myVector)

• 若仍然出现报错，可以给绘图代码块添加参数fig.keep="all"，确保编织时所有生成的图形都被正确捕获。

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