Boa tarde, porque será que o gráfico não é desenhado? pode ser por as medianas serem iguais? código: setwd("G:/SIN/Users/Ana Rua/dados não Panakeia e Panakeia") dados<-read.table("Dadoshgbnaophgbp2sem2011.csv",header=TRUE,sep=";", stringsAsFactors=TRUE, dec=",") dados #objectivo é: #verificar se há diferenças estatisticamente significativas entre os custos e os valores de hemoglobina para clinicas não panakeia no 2semestre de 2011. # Imprime as hipoteses do teste cat("\n\t Teste Wilcoxon\n") cat("Teste bicaudal:\n\tH0: há diferenças significativas entre os valores de hemoglobina para clínicas não Panakeia e Panakeia, mediana=0", "\n\tH1: Não há diferenças significativas entre os valores de hemoglobina para clínicas não Panakeia e Panakeia, mediana diferente de 0 \n") wilcox.test(dados$hgbnaopanakeia, dados$hgbpanakeia, paired=TRUE) boxplot(dados, axes=FALSE) # O parametro axes=FALSE faz com que os eixos não sejam desenhados title(col.main='blue',main= 'Valores de hemoglobina das clínicas não Panakeia e Panakeia no 2semestre de 2011') # Acrescenta o título do gráfico title(col.lab='blue',xlab= 'meses do 2semestre do ano 2011') # Acrescenta o titulo do eixo X title(col.lab="blue", ylab= 'Valores') # 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:6, c('Jul', 'Ago', 'Set', 'Out', 'Nov', 'Dez')) # Coloca no eixo X (representado pelo 1), nos pontos 1 a 6, as etiquetas Jul a Dez. dados: X2sem2011 hgbnaopanakeia hgbpanakeia 1 JUL 75.9 75.4 2 AGO 77.5 77.1 3 SET 79.4 77.0 4 OUT 76.8 77.2 5 NOV 76.1 78.0 6 DEZ 78.3 76.7 Ana