Je possède un graphe représentant le NODU en fonction du segment d'utilisation selon 5 années. J'ai utilisé le script suivant :
Code : Tout sélectionner
Segment.d.utilisation<-c("a","a","b","b","c","c")
Année <-c("2014","2015","2014","2015","2014","2015")
NODU <- c("25","34","45","66","56","18")
NODU<-as.numeric(as.character(NODU))
NODU_segment<-data.frame(Segment.d.utilisation,Année,NODU)
library(lattice)
barchart(NODU ~ Segment.d.utilisation,groups=Année,horizontal=FALSE,auto.key=list(space="right", columns=1, title="Année") ,
xlab="Segment d'utilisation",ylab="NODU",main="NODU en fonction du segment d'utilisation et du temps", par.settings=ggplot2like(),
panel=function(x,y,...){
panel.barchart(x,y,...)
panel.grid(h = -1, v = 0,col.line="red",lty=3)})
Je souhaite désormais y ajouter des labels, j'ai donc voulu ajouter une ligne de code :
Code : Tout sélectionner
barchart(NODU ~ Segment.d.utilisation,groups=Année,horizontal=FALSE,auto.key=list(space="right", columns=1, title="Année") ,
xlab="Segment d'utilisation",ylab="NODU",main="NODU en fonction du segment d'utilisation et du temps", par.settings=ggplot2like(),
panel=function(x,y,...){
panel.barchart(x,y,...)
ltext(NODU_segment$Segment.d.utilisation,NODU_segment$NODU,label=NODU_segment$NODU, cex=0.5,origin="H",rot=45)
panel.grid(h = -1, v = 0,col.line="red",lty=3)})
La fonction ltext me permet d'afficher les labels mais ils sont empilés les uns au dessus des autres au lieu de se mettre chacun au dessus de la barre correspondante, auriez-vous une solution ?
Aussi, je voudrais mettre en place une rotation du texte de l'axe des abscisses et rien ne se passe malgré plusieurs tentatives. Auriez-vous un code à me suggérer ?
Merci d'avance,
Bonne journée,
Lisa.