Bonjour,
Je ne trouve pas l'erreur dans mon script, je souhaite modifier la position de ma légende j'ai donc trouvé qu'avec theme + legend.position ça devrait marcher mais j'obtiens comme réponse Null
## Script
## Moyenne bleaching index
moy<-tapply(data$Bleaching_index,list(data$Sites,data$Years),mean)
moy
write.table(moy,file="moyennebleaching.txt",sep="\t",row.names=TRUE)
###
# Ecart type du bleaching index per site and per year
ecartype<-tapply(data$Bleaching_index,list(data$Sites,data$Years),sd)
ecartype
write.table(ecartype,file="standarddeviationbleaching.txt",sep="\t",row.names=TRUE)
ci.u <- moy + ecartype
ci.l <- moy - ecartype
a<-barplot2(moy, beside = T, ylim = c(0, 60), plot.ci = T, ci.l = moy, ci.u = ci.u, plot.grid = T, col = c("yellow","lightblue", "green","red","grey","violet"),legend= rownames(moy),xlab="Sites", ylab="Bleaching index",cex.names=0.7, cex.axis=0.75, cex.lab=1,font.lab=1)
a + theme(legend.position = "topright")
Merci d'avance
Cordialement