отдельные гаммы в r

Question

Я использовал обобщенную аддитивную модель для анализа некоторых данных и теперь хочу построить результат.

library(mgcv) 
set.seed(2) ## simulate some data... 
dat <- gamSim(1,n=400,dist="normal",scale=2) 
b <- gam(y~s(x0)+s(x1)+s(x2)+s(x3),data=dat) 
plot(b,pages=1) 

Из приведенного выше примера, как можно сохранить отдельные графики в разные pdf-файлы?

Answer 1

? Plot.gam говорит вам, что есть выбор аргумент

library(mgcv) 
set.seed(2) ## simulate some data... 
dat <- gamSim(1,n=400,dist="normal",scale=2) 
b <- gam(y~s(x0)+s(x1)+s(x2)+s(x3),data=dat) 
plot(b,pages=1) 
plot(b, select = 1) 
plot(b, select = 2)