在R中可视化GAM模型

有人知道如何在R中很好地可视化

gam

模型的平滑组件吗？我很想将函数

visreg

的输出可视化。下面的代码说明了我的问题

library(gam)

f=function(v){exp(v)}
n=100
x=runif(n)
t=runif(n)
y=x+f(t)+rnorm(n, sd=0.1)

fit=gam(y~x+s(t))

plot(t,y)
lines(t,as.numeric(fit$smooth))

#want something more like
library(visreg)
visreg(fit)

---

可以使用gam对象的打印方法，但必须使用

gam

的

data

参数：

library(gam)

f <- function(v){exp(v)}
n <- 100
x <- runif(n)
t <- runif(n)
y <- x+f(t)+rnorm(n, sd=0.1)
DF <- data.frame(y, x, t)

fit <- gam(y~x+s(t), data = DF)
layout(t(1:2))
plot(fit, se=TRUE)

库（gam）
f您是否尝试过
plot（fit）
？我确实尝试过plot fit，但出现了一个错误。很明显，原因如下。谢谢。你知道为什么绘图中的刻度不正确吗？f（t）的范围约为1到2.75，但在图中，s（t）的范围小于-0.5到1？另外，您知道如何添加t，y点吗？我试了点（t，y），但没用。谢谢你的帮助！你应该读一些关于游戏的书。平滑器居中。