g1<- xyplot(NDVI~DAE|Cultivar, data=dados, col=1, layout=c(5,1),
type=c("p","r"),
xlab="DAE", ylab="NDVI",
main='Vitrine 2014/2016',
strip=strip.custom(bg="gray90"))
g2<-xyplot(NDVI~IAF|Cultivar, data=dados, col=1, layout=c(5,1),
type=c("p","r"),
xlab="IAF", ylab="NDVI",
strip=strip.custom(bg="gray90"))
g3<-xyplot(Chl~DAE|Cultivar, data=dados, col=1, layout=c(5,1),
type=c("p","r"),
xlab="DAE", ylab="Clorofila",
strip=strip.custom(bg="gray90"))
g4<-xyplot(Chl~IAF|Cultivar, data=dados, col=1, layout=c(5,1),
type=c("p","r"),
xlab="IAF", ylab="Clorofila",
strip=strip.custom(bg="gray90"))
print(g1, split=c(1,1,1,4), more=TRUE)
print(g2, split=c(1,2,1,4))
print(g3, split=c(1,3,1,4))
print(g4, split=c(1,4,1,4))