Редактировать графики vis.gam для отображения дат - PullRequest
Новая
       36

Редактировать графики vis.gam для отображения дат

0 голосов
/ 22 февраля 2019

Я создал обобщенную аддитивную модель с использованием пакета mgcv и хотел бы построить трехмерный график с помощью функции vis.gam.Одним из элементов управления является дата.Вот некоторый воспроизводимый код: 

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, чтобы в ней отображались исходные даты, а не преобразованные числовые значения?Спасибо заранее за любую помощь.

...