Gráfico de barras com rótulo

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

library(readxl)
Familias <- read_excel("C:/Users/Dell/Desktop/Base_de_dados-master/Familias.xls", sheet = "Dados da pesquisa")

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

tabela_comb <- table(CARROS$Tipodecombustivel)
tabela_comb
## 
## alc gas 
##  14  18
prop.table(tabela_comb)*100
## 
##   alc   gas 
## 43.75 56.25
#-------------------------------------
# Gráfico de barras com rótulo
#-------------------------------------

barplot(tabela_comb, col = c("dark blue","violet"), 
        main = "Gráfico em barra - Combustível", 
        legend.text = rownames(tabela_comb),
        args.legend = list(x = "topleft")) 

grafico <- barplot(tabela_comb, col = c("dark blue","violet"), 
                   main = "Gráfico em barra - Combustível") 
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")

Variável quantitativa - Histograma

#------------------------------------
# Tratamento de variável quantitativa
#------------------------------------
summary(CARROS)
##    Kmporlitro      Cilindros         Preco             HP       
##  Min.   :10.40   Min.   :4.000   Min.   : 71.1   Min.   : 52.0  
##  1st Qu.:15.43   1st Qu.:4.000   1st Qu.:120.8   1st Qu.: 96.5  
##  Median :19.20   Median :6.000   Median :196.3   Median :123.0  
##  Mean   :20.09   Mean   :6.188   Mean   :230.7   Mean   :146.7  
##  3rd Qu.:22.80   3rd Qu.:8.000   3rd Qu.:326.0   3rd Qu.:180.0  
##  Max.   :33.90   Max.   :8.000   Max.   :472.0   Max.   :335.0  
##  Amperagem_circ_eletrico      Peso            RPM        Tipodecombustivel 
##  Min.   :2.760           Min.   :1.513   Min.   :14.50   Length:32         
##  1st Qu.:3.080           1st Qu.:2.581   1st Qu.:16.89   Class :character  
##  Median :3.695           Median :3.325   Median :17.71   Mode  :character  
##  Mean   :3.597           Mean   :3.217   Mean   :17.85                     
##  3rd Qu.:3.920           3rd Qu.:3.610   3rd Qu.:18.90                     
##  Max.   :4.930           Max.   :5.424   Max.   :22.90                     
##   TipodeMarcha     NumdeMarchas   NumdeValvulas  
##  Min.   :0.0000   Min.   :3.000   Min.   :1.000  
##  1st Qu.:0.0000   1st Qu.:3.000   1st Qu.:2.000  
##  Median :0.0000   Median :4.000   Median :2.000  
##  Mean   :0.4062   Mean   :3.688   Mean   :2.812  
##  3rd Qu.:1.0000   3rd Qu.:4.000   3rd Qu.:4.000  
##  Max.   :1.0000   Max.   :5.000   Max.   :8.000
#---------------------------------------------
# Histograma - variável quantitativa contínua
#---------------------------------------------

hist(CARROS$Preco, col= c("brown"), main = "Histograma dos preços dos carros", 
     xlab = "Preço do carro", ylab="Frequência")

hist(CARROS$Kmporlitro, col= c("pink"), main = "Histograma KM por litro", 
     xlab = "KM/L do Carro", ylab="Frequência")

hist(CARROS$HP, col= c("dark green"), main = "Histograma HP do carro", 
     xlab = "HP do carro", ylab="Frequência")

Conclusão:

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

As variáveis quantitativas são assimétricas.