如何在 R (gam) 中制作带阴影的情节?

How to produce the plot with shadow in R (gam)?

我已经用第一张图建立了一个 gam 模型。

library(mgcv)
library(gamair)

a1 <- gam(death~s(time,bs="cr",k=200)+pm10median+so2median+ o3median+tmpd,
data=chicago,family=poisson)
plot(a1)

但是我怎样才能制作出如下图所示的情节?

感谢评论,解决方法很简单,应该使用shade才能看到阴影图。

library(mgcv)
library(gamair)

a1 <- gam(death~s(time,bs="cr",k=200)+pm10median+so2median+ o3median+tmpd,
data=chicago,family=poisson)
plot(a1, shade=TRUE)