Hello everybody, i need some help to display text as label in my barchart the label is the combination of x value + text text= calculated percentage => per it display properly the x value but, wrongly repeats the text of the fisrt level LangueTXT factor on the second
any solution? Thanx very much Christophe ######## here is the code ########## library(lattice) Langue <- c(1, 1, 1, 2, 2, 2, 2) n03interessantscore <- c(1, 2, 3, 1, 2, 3, 4) count <- c(89, 148, 16, 88, 192, 28, 7) sumcount <- c(253, 253, 253, 315, 315, 315, 315) per <- c('35.2%','58.5%','6.3%','27.9%','61%','8.9%','2.2%') LangueTXT <- c('Nl','Nl','Nl','Fr','Fr','Fr','Fr') databar <- data.frame(Langue, n03interessantscore, count, sumcount, per, LangueTXT) barchart(n03interessantscore ~ count| LangueTXT, data=databar, layout=c(1,max(databar$Langue)), stack=TRUE, rectangles=TRUE, horizontal=TRUE, ylab="Score", xlab="Count", col="grey", main="3.0z Trouvez-vous ce rapport intéressant?", border="NA", panel= function(y,x,...){panel.grid(h=0, v=-1, col="gray") Y <- tapply(y, y, unique) panel.barchart(x,y,...) panel.text((x-0.1*x), Y, label= paste(round(x,0),'-', databar$per), cex=0.9)} ) [[alternative HTML version deleted]]
______________________________________________ R-help@r-project.org mailing list https://stat.ethz.ch/mailman/listinfo/r-help PLEASE do read the posting guide http://www.R-project.org/posting-guide.html and provide commented, minimal, self-contained, reproducible code.