说,我有一个看起来像这样的 GAM:
# Load library
library(mgcv)
# Load data
data(mtcars)
# Model for mpg
mpg.gam <- gam(mpg ~ s(hp) + s(wt), data = mtcars)
现在,我想使用 ggplot2
绘制 GAM .所以,我用 plot.gam
生成我需要的所有信息,如下所示:
foo <- plot(mpg.gam)
这也会产生不需要的图形。 (是的,我意识到我在提示绘图函数会绘制一些东西......)当使用 visreg
时同样,我只需指定 plot = FALSE
压制数字,但plot.gam
好像没有这个选项。我的第一个想法可能是invisible
会完成这项工作(例如 invisible(foo <- plot(mpg.gam))
),但这似乎不起作用。有没有一种简单的方法可以在不将不需要的图形输出到文件的情况下做到这一点?
最佳答案
好的,所以我在发布此消息 5 分钟后终于想通了。有一个选项可以选择要绘制的术语(例如,select = 1
是第一个术语,select = 2
是第二个),尽管默认行为是绘制所有条款。但是,如果我使用 select = 0
它不会绘制任何内容并且不会给出错误,但会返回完全相同的信息。看看吧:
# Load library
library(mgcv)
# Load data
data(mtcars)
# Model for mpg
mpg.gam <- gam(mpg ~ s(hp) + s(wt), data = mtcars)
# Produces figures for all terms
foo1 <- plot(mpg.gam)
# Doesn't produce figures
foo2 <- plot(mpg.gam, select = 0)
# Compare objects
identical(foo1, foo2)
[1] TRUE
棒棒哒!
关于r - 防止 plot.gam 生成图形,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/46345546/