vis.gam - 如何在R中添加简单的颜色条？

Question

我正在尝试使用此代码创建gam模型预测的等高线图视图：

test <- data.frame(pop1 = rnorm(100), pop2 = rnorm(100), pop3 = rnorm(100))
library(mgcv)
mod_gam <-gam(pop1 ~ s(pop2) + s(pop3), data=test)
summary(mod_gam)
vis.gam(mod_gam, type='response', plot.type='contour')

我的输出是这样的：

如何在图中找到颜色条？我想显示与轮廓线对应的色标。