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