R 不同颜色的积分&；plot.gamm（）中的行

我使用

mgcv

运行了一个包含大量数据集（超过20000个案例）的GAMM模型。由于数据点的数量很大，因此很难看到图中剩余点之间的平滑线。是否可以为点和平滑拟合线指定不同的颜色

以下是从

mgcv

文档中采用的示例：

library(mgcv)

## simple examples using gamm as alternative to gam
set.seed(0) 
dat <- gamSim(1,n=200,scale=2)
b <- gamm(y~s(x0)+s(x1)+s(x2)+s(x3),data=dat)
plot(b$gam, pages=1, residuals=T, col='#FF8000', shade=T, shade.col='gray90')

plot(absbmidiffLog.GAMM$gam, pages=1, residuals=T, pch=19, cex=0.01, scheme=1, 
     col='#FF8000', shade=T,shade.col='gray90')

库（mgcv）
##使用gamm替代gam的简单示例
种子集（0）
dat我还发现选择两种不同的颜色非常困难/不可能。
我的一个解决方法是稍后添加点，即首先使用
residuals=FALSE
调用plot.gam，然后使用基本R
points（）
调用添加点。
但是，只有将gam图移动到其适当的平均值时，此功能才能正常工作。这是其中一个术语的代码。（使用for循环在一页上获取所有四个）

库（mgcv）
##使用gamm替代gam的简单示例
种子集（0）
dat我还发现选择两种不同的颜色非常困难/不可能。
我的一个解决方法是稍后添加点，即首先使用
residuals=FALSE
调用plot.gam，然后使用基本R
points（）
调用添加点。
但是，只有将gam图移动到其适当的平均值时，此功能才能正常工作。这是其中一个术语的代码。（使用for循环在一页上获取所有四个）

库（mgcv）
##使用gamm替代gam的简单示例
种子集（0）
dat，可能会很有帮助。这里显示的图表似乎是您想要生成的。我已经研究过了，但是我无法使它与
gamma
一起工作。似乎
gamma.model$gam
的结构与
gam.model
不同，这可能非常有用。这里显示的图表似乎是您想要生成的。我已经研究过了，但是我无法使它与
gamma
一起工作。似乎
gamma.model$gam
的结构与
gam.model
不同。
library(mgcv)

## simple examples using gamm as alternative to gam
set.seed(0) 
dat <- gamSim(1,n=200,scale=2)
b <- gamm(y~s(x0)+s(x1)+s(x2)+s(x3),data=dat)
plot(b$gam, select=3, shift = coef(b$gam)[1], residuals=FALSE, col='#FF8000',  shade=T, shade.col='gray90')
points(y~x3, data=dat,pch=20,cex=0.75,col=rgb(1,0.65,0,0.25))