Walmes, peço desculpas pela falta de detalhes, estou usando o pacote qcc (http://cran.r-project.org/web/packages/qcc/index.html)
Link dos dados: http://www.datafilehost.com/d/6655a016
A rotina completa abaixo:
require(qcc)
old <- qcc.options() # save defaults
qcc.options("cex.stats") # get a single parameter
qcc.options("cex.stats"=0.8) # change parameters
qcc.options("cex.axis"=0.7) # change parameters
qcc.options(bg.margin="white")
par(cex=0.7,cex.lab=0.8,cex.axis=0.7)
qcc(M04, type="xbar",center=60,title="",nsigmas=2,cex=0.7,cex.lab=0.8,cex.axis=0.7,
xlab="Dia", ylab="Tempo (min)",cex=0.7,label.limits = c("", ""), restore.par = FALSE)
axis(side = 4, at = q$limits[1], labels = "52", tick = T, cex.axis = 0.7, las = 1, line = -0.5)
axis(side = 4, at = q$limits[2], labels = "68", tick = T, cex.axis = 0.7, las = 1, line = -0.
[ ]'s.
Edson Lira
Estatístico
Manaus-Amazonas
Em Terça-feira, 19 de Agosto de 2014 7:44, Rodrigo Coster <rcoster@gmail.com> escreveu: