Bonjour a tous,
J'utilise la fonction levelplot pour representer des densite de canopees en fonction du temps avec la fonction levelplot du package "Lattice".
Mon code marche bien, en revanche je n'obtiens que l'evolution du temps par pas de temps "mensuel" et aimerais l'avoir au pas de temps "15 jours"
Ci-dessous mon code:
feuilles3<-data.frame(matrix(ncol=3,nrow=160))
colnames(feuilles3)<-c("date","leaf","site")
feuilles3$leaf<-c(as.numeric(data[1,2:17]),as.numeric(data[2,2:17]),as.numeric(data[3,2:17]),as.numeric(data[4,2:17]),as.numeric(data[5,2:17]),as.numeric(data[6,2:17]),as.numeric(data[7,2:17]),as.numeric(data[8,2:17]),as.numeric(data[9,2:17]),as.numeric(data[10,2:17]))
feuilles3$site<-factor(c(rep("YS3",16),rep("YF1",16),rep("YS1",16),rep("OS1",16),rep("OS3",16),rep("OF1",16),rep("YS2",16),rep("OS2",16),rep("OF2"!16),rep("OF3",16)))
feuilles3$date<-as.POSIXct(rep(as.Date(c("2013-03-06","2013-04-02","2013-05-14","2013-06-14","2013-07-02","2013-07-30","2013-09-02","2013-09-26","2013-10-30","2013-11-21","2013-12-16","2014-01-27","2014-03-03","2014-04-01","2014-05-09","2014-06-18")),10))
str(feuilles3)
feuilles3$site <- factor(feuilles3$site, levels = c("OF3","OF2","OS2","YS2","OF1","OS3","OS1","YS1","YF1","YS3"))
dev.new()
levelplot(leaf~date*site,feuilles3,ylab="",ylim=c(0.5,10.5),cex.axis=1.4,yaxt="n",main="",colorkey=list(at=seq(0, 1, 0.33),labels=list(at=c(0.2, 0.5,0.8),labels=c("d<=20%", "20%< d <80%", "d >=80%lot"))))
Merci d'avance pour votre aide,
Corentin