Caros Colegas, Gostaria de adicionar o seguinte texto "a)" em um gráfico barchart. Esse texto deve ficar acima do grafico do lado esquerdo. Entretanto, qdo insiro o comando no codigo do barchart #legend=list(top=list(fun=textGrob("a)"), x=0, just="left", gp=gpar(cex=0.8))) a legenda atual "1-Nov, 1-Dec, 31-Dec" que está acima some. Segue abaixo o codigo que estou utilizando: #----------início---------------------------------------------- library(lattice) library(grid) T1 <- expand.grid(modelo=rep(c("A", "B", "C", "D", "E"),12)) T2 <- expand.grid (data = rep(c(rep(c("1-Nov"),5),rep(c("1-Dec"),5), rep(c("31-Dec"),5)),4)) T3 <- c(rep(c("X1"),15), rep(c("X2"),15),rep(c("X3"),15),rep(c("X4"),15)) T4 <- rnorm(60, mean=10, sd=5) teste <- cbind(T1,T2,T3,T4) teste$data <- factor(teste$data, levels = c("1-Nov","1-Dec","31-Dec" )) teste$modelo = factor(teste$modelo, levels = c("A", "B", "C", "D", "E")) teste$T3 <- factor(teste$T3, levels = c("X1","X2","X3","X4" )) barchart (modelo ~ teste$T4 |teste$T3 , data = teste, xlab = "XXXXX",ylab = " XXXXX", groups = teste$data, auto.key = list( space="top", columns = 3, points = FALSE, rectangles = TRUE, cex=0.8, size=1.4, adj=1,between=0.2, between.colums=0.1),col=gray.colors(3)[1:3], box.ratio = 1.5,aspect=0.6, layout=c(1,4),par.settings = list(superpose.polygon = list(col =gray.colors(3)),fontsize=list(text=9)), par.strip.text=list(cex=0.9),scales = list(x = list(tick.number = 6)), strip=strip.custom(bg="gray95",factor.levels=c("X1","X2","X3","X4")), panel=function(x, y, ...) { panel.barchart(x, y, ...) panel.abline(v=(9.8), col="gray60", lty=2) }) #----------------fim---------------------------------------------------------------------------- Atenciosamente, Alexandre