bom dia Rogério os meus dados são os que vão neste link. https://dl.dropboxusercontent.com/u/9337305/Teste_hgb.csv o codigo fica: boxplot(dados[,-1], axes=FALSE) # O parametro axes=FALSE faz com que os eixos não sejam desenhados title(col.main="blue", main= 'Indicador Hemoglobina, \n semestres compreendidos entre 2009 e 2013') # Acrescenta o título do gráfico === o comando era col.main title(col.lab="blue",xlab= 'semestres') # Acrescenta o titulo do eixo X # ==== o comando era apenas col.lab title(col.lab="blue",ylab= 'Percentual') # Acrescenta o titulo do eixo Y box() # Desenha a caixa em torno do gráfico axis(2) # Coloca o eixo Y (o 2 ali representa o eixo Y) no gráfico axis(1, 1:5, c("1s09", "1s10", "1s11", "1s12", "1s13")) # Coloca no eixo X (representado pelo 1), nos pontos 1 a 5, as etiquetas dos semestres compreendidos entre 1s09 e 1s2013 plot.new() plot.window(dados[,-1]) medias<-apply(dados[,-1],2,mean,na.rm=TRUE) # Calcula as médias points(medias,col="red",pch=17) # Adiciona os pontos das médias no boxplot obrigada Ana