3 Gráfico de Barras

---

O gráfico em barras consiste em construir retângulos, em que uma das dimensões é proporcional à magnitude a ser representada (\(n_i\) ou \(f_i\)), sendo a outra arbitrária, porém igual para todas as barras. Essas colunas são dispostas paralelamente umas às outras de forma horizontal.

Além do título e fonte de referências deve-se observar o seguinte:

• as barras devem ter todas a mesma largura;
• a distância entre as barras deve ser constante e de preferência menor que a largura das barras.

3.0.1 Conjunto de dados

tratamentos=rep(c(paste("T",1:5)),e=4)
resposta=c(100,120,110,90,150,145,149,165,150,144,134,139,220,206,210,210,266,249,248,260)
## Média e Desvio-padrão (Por Tratamento)
media=tapply(resposta,tratamentos, mean)
desvio=tapply(resposta,tratamentos,sd)

3.0.2 Gráfico básico

barplot(media, 
        horiz = T)

3.0.3 Melhorias

barplot(media, 
        horiz = T, 
        las=1,
        col="lightyellow",
        xlab="Resposta",
        ylab="Tratamentos",
        xlim=c(0,300))
abline(v=0)

3.0.4 Barras de desvio-padrão

bar=barplot(media, 
        las=1,
        horiz = T,
        col="lightyellow",
        xlab="Resposta",
        ylab="Tratamentos",
        xlim=c(0,300))
abline(v=0)
arrows(media+desvio,bar,media-desvio,bar,length = 0.1,angle=90,code=3)

3.0.5 Unidade do eixo Y

(Ex. \(Kg\ ha^{-1}\))

bar=barplot(media, 
        las=1,
        horiz = T,
        col="lightyellow",
        xlab=expression("Resposta"~(kg~ha^-1)),
        ylab="Tratamentos",
        xlim=c(0,300))
abline(v=0)
arrows(media+desvio,bar,media-desvio,bar,length = 0.1,angle=90,code=3)

3.0.6 Média acima das barras

bar=barplot(media, 
        las=1,horiz = T,
        col="lightyellow",
        xlab=expression("Resposta"~(kg~ha^-1)),
        ylab="Tratamentos",
        xlim=c(0,300))
abline(v=0)
text(media+desvio+20,bar,media)
arrows(media+desvio,bar,media-desvio,bar,length = 0.1,angle=90,code=3)

3.0.7 Separação de casa decimal

options(OutDec=",")
bar=barplot(media, 
        las=1,
        horiz = T,
        col="lightyellow",
        xlab=expression("Resposta"~(kg~ha^-1)),
        ylab="Tratamentos",
        xlim=c(0,300))
abline(v=0)
text(media+desvio+20,bar,media)
arrows(media+desvio,bar,media-desvio,bar,length = 0.1,angle=90,code=3)

3.0.8 Letras do teste de comparação

tukey=c("d","c","c","b","a")
options(OutDec=",")
bar=barplot(media, 
        las=1,
        horiz = T,
        col="lightyellow",
        xlab=expression("Resposta"~(kg~ha^-1)),
        ylab="Tratamentos",
        xlim=c(0,300))
abline(v=0)
text(media+desvio+20,bar,paste(round(media,0),tukey))
arrows(media+desvio,bar,media-desvio,bar,length = 0.1,angle=90,code=3)

---