编辑vis.gam图以显示日期

Question

我已经使用mgcv软件包创建了通用加性模型，并希望使用vis.gam函数绘制3D图形。控件之一是日期。这是一些可复制的代码：

Date <- data.frame(Date=seq(as.Date("2008-12-30"), as.Date("2012-01-04"), by="weeks"))
Control <- as.data.frame(matrix(sample(0:100, 79*2, replace=TRUE), ncol=1))
Response <- as.data.frame(matrix(sample(0:100, 79*2, replace=TRUE), ncol=1))
df <- data.frame(Date,Control,Response)
colnames(df)[2:3] <- c("Control","Response")
library(mgcv)
GAM <- gam(Response ~   s(Control)+s(as.numeric(Date)),
        family=gaussian,  data= df)
vis.gam(GAM,n.grid = 100, theta = 50, phi = 32, zlab = "Response",ylab = "Date",xlab="Control",
    ticktype = "detailed", color = "topo")

我想知道是否有人知道如何编辑y轴，以便显示原始日期，而不是转换后的数值？预先感谢您的任何帮助。