aula04- gráfico de barras no R

Carregar

#-----------------------------------
#  passo 1 - carregar base de dados
#-----------------------------------

load("C:/Users/Bruna/Desktop/Base_de_dados-master/CARROS.RData")

library(readxl)
Familias <- read_excel("C:/Users/Bruna/Desktop/Base_de_dados-master/Familias.xls")

Olhar base de dados

#-----------------------------------
#  passo 2 - olhar os dados
#-----------------------------------

str(CARROS)

## 'data.frame':    32 obs. of  11 variables:
##  $ Kmporlitro             : num  21 21 22.8 21.4 18.7 18.1 14.3 24.4 22.8 19.2 ...
##  $ Cilindros              : num  6 6 4 6 8 6 8 4 4 6 ...
##  $ Preco                  : num  160 160 108 258 360 ...
##  $ HP                     : num  110 110 93 110 175 105 245 62 95 123 ...
##  $ Amperagem_circ_eletrico: num  3.9 3.9 3.85 3.08 3.15 2.76 3.21 3.69 3.92 3.92 ...
##  $ Peso                   : num  2.62 2.88 2.32 3.21 3.44 ...
##  $ RPM                    : num  16.5 17 18.6 19.4 17 ...
##  $ Tipodecombustivel      : num  0 0 1 1 0 1 0 1 1 1 ...
##  $ TipodeMarcha           : num  1 1 1 0 0 0 0 0 0 0 ...
##  $ NumdeMarchas           : num  4 4 4 3 3 3 3 4 4 4 ...
##  $ NumdeValvulas          : num  4 4 1 1 2 1 4 2 2 4 ...
##  - attr(*, "variable.labels")= chr [1:11] "Km por litro" "Número de Cilindros" "Preço" "HP = Horse Power (potência do motor)" ...

str(Familias)

## tibble [120 x 6] (S3: tbl_df/tbl/data.frame)
##  $ familia: num [1:120] 1 2 3 4 5 6 7 8 9 10 ...
##  $ local  : chr [1:120] "Monte Verde" "Monte Verde" "Monte Verde" "Monte Verde" ...
##  $ p.a.p  : chr [1:120] "Não usa" "Não usa" "Usa" "Não usa" ...
##  $ instr  : chr [1:120] "Ensino médio" "Ensino médio" "Ensino fundamental" "Ensino fundamental" ...
##  $ tam    : num [1:120] 4 4 4 5 4 1 2 3 6 4 ...
##  $ renda  : num [1:120] 10.3 15.4 9.6 5.5 9 2.4 4.1 8.4 10.3 4.6 ...

Transformar

#-----------------------------------
#  passo 3 - corrigir os dados
#-----------------------------------

CARROS$Tipodecombustivel <- ifelse(CARROS$Tipodecombustivel==0, "gas", "alc")

CARROS$TipodeMarcha <- ifelse(CARROS$TipodeMarcha==0, "auto", "manual")

Gráfico de barras

#---------------------------------------------
#  passo 4 - análise da variável qualitativa
#---------------------------------------------

tabela_tipodecomb <- table(CARROS$Tipodecombustivel)
tabela_tipodecomb

## 
## alc gas 
##  14  18

prop.table(tabela_tipodecomb)*100

## 
##   alc   gas 
## 43.75 56.25

pie(tabela_tipodecomb)

barplot(tabela_tipodecomb, col = c("#c6f763", "#db87ff"), 
        main = ("gráfico 1 - tipo de combustível"), legend.text = row.names(tabela_tipodecomb),
        args.legend = list(x = "topleft"), xlim = c(0,20))

Gráfico de barras com rótulo

grafico <- barplot(table(CARROS$Tipodecombustivel),col = "red")
percentual <- prop.table(table(CARROS$Tipodecombustivel))*100
percentual

## 
##   alc   gas 
## 43.75 56.25

rotulo <- paste0(percentual,"%")
rotulo

## [1] "43.75%" "56.25%"

text(grafico, 0, rotulo,cex=1,pos=3,col = "white")

Histogramas

hist(CARROS$Preco)

hist(CARROS$Preco, col = ("royalblue"), main = "gráfico 2 - histograma do preço do carro", 
                  xlab = "preço do carro", ylab = "frequência")

hist(CARROS$Kmporlitro,col="lightgreen",main="Histograma",
     xlab = "Km/l do carro", ylab="Frequência")

hist(CARROS$HP,col="tomato3", border = "blue",main="Histograma",
     xlab = "HP do carro", , labels = TRUE, ylab="Frequência")

par(mfrow=c(1,1))
hist(CARROS$HP,col="tomato3", border = "blue",main="Histograma",
     xlab = "HP do carro", , labels = TRUE, ylab="Frequência")

Conclusão

Temos 56% de carro a gasolina e 43% a álcool na base de dados.