#Introdução

O primeiro passo dessa análise será a importação dos dados para o R. Assim, vamos carregar os dados “RDATA” e importar os dados via função “readxl”

load("C:/Users/felip/Desktop/Base_de_dados-master/CARROS_cat.RData")
library(readxl)
Familias <- read_excel("C:/Users/felip/Desktop/Base_de_dados-master/Familias.xls")
View(Familias)
load("C:/Users/felip/Desktop/Base_de_dados-master/Bussab.RData")

#Limpeza dos Dados

names(Bussab) [8] <- "Escolaridade"
names(Bussab) [8]
## [1] "Escolaridade"

#Corrigir Gramática

Bussab$Escolaridade <-iconv(Bussab$Escolaridade, "latin1", "UTF-8")
Bussab$Casado_fator <-iconv(Bussab$Casado_fator, "latin1", "UTF-8")

#Estatísticas (qualitativas x qualitativas)

T1 = table(Familias$instr, Familias$p.a.p)
T1
##                     
##                      Não usa Usa
##   Ensino fundamental      16  22
##   Ensino médio            19  25
##   Sem Instrução            7  31

Questão 1

barplot(T1)

barplot(T1,col=c("royalblue", "green", "yellow"),
        main = "Gráfico 1 - Uso de programa de Alimentação Popular por Escolaridade",
        horiz = FALSE,beside=TRUE,
        legend.text = rownames(T1),
        args.legends = list(x = "topleft"))
## Warning in plot.window(xlim, ylim, log = log, ...): "args.legends" não é um
## parâmetro gráfico
## Warning in axis(if (horiz) 2 else 1, at = at.l, labels = names.arg, lty =
## axis.lty, : "args.legends" não é um parâmetro gráfico
## Warning in title(main = main, sub = sub, xlab = xlab, ylab = ylab, ...):
## "args.legends" não é um parâmetro gráfico
## Warning in axis(if (horiz) 1 else 2, cex.axis = cex.axis, ...): "args.legends"
## não é um parâmetro gráfico

percentual = round(prop.table(T1,1)*100,digits = 1)
percentual
##                     
##                      Não usa  Usa
##   Ensino fundamental    42.1 57.9
##   Ensino médio          43.2 56.8
##   Sem Instrução         18.4 81.6

Questão 2

T2 = table(Familias$local, Familias$p.a.p)
T2
##                     
##                      Não usa Usa
##   Encosta do Morro        12  25
##   Monte Verde             18  22
##   Parque da Figueira      12  31
prop.table(T2)
##                     
##                        Não usa       Usa
##   Encosta do Morro   0.1000000 0.2083333
##   Monte Verde        0.1500000 0.1833333
##   Parque da Figueira 0.1000000 0.2583333
plot(T2)

percentual2 = round(prop.table(T2,1)*100,1)
percentual2
##                     
##                      Não usa  Usa
##   Encosta do Morro      32.4 67.6
##   Monte Verde           45.0 55.0
##   Parque da Figueira    27.9 72.1
rotulo2 = paste0(percentual2, "%")
rotulo2
## [1] "32.4%" "45%"   "27.9%" "67.6%" "55%"   "72.1%"
barplot(T2)

barplot(T2, col=c("green" , "yellow", "purple"),
       main = "Gráfico 2 - Quem mora no bairro monte verde e não usa P.A.P",
       horiz = FALSE, besides = TRUE,
       legend.text = rownames(T1),
       args.legend = list(x = "topleft"))
## Warning in plot.window(xlim, ylim, log = log, ...): "besides" não é um
## parâmetro gráfico
## Warning in axis(if (horiz) 2 else 1, at = at.l, labels = names.arg, lty =
## axis.lty, : "besides" não é um parâmetro gráfico
## Warning in title(main = main, sub = sub, xlab = xlab, ylab = ylab, ...):
## "besides" não é um parâmetro gráfico
## Warning in axis(if (horiz) 1 else 2, cex.axis = cex.axis, ...): "besides" não é
## um parâmetro gráfico

Questão 3

T3 = table(Bussab$Escolaridade,Bussab$Casado_fator)
T3
##              
##               Não Sim
##   Fundamental   6   6
##   Médio         7  11
##   Superior      3   3
percentual3 = round (prop.table(T3,1)*100,1)
percentual3
##              
##                Não  Sim
##   Fundamental 50.0 50.0
##   Médio       38.9 61.1
##   Superior    50.0 50.0
rotulo3 = paste0(percentual3, "%")
rotulo3
## [1] "50%"   "38.9%" "50%"   "50%"   "61.1%" "50%"
barplot(T3)

barplot(T3, col=c("green" , "yellow", "purple"),
        main = "Gráfico 3 - Quem tem escolaridade média não é casado",
        horiz = FALSE, besides = TRUE,
        legend.text = rownames(T1),
        args.legend = list(x = "topleft"))
## Warning in plot.window(xlim, ylim, log = log, ...): "besides" não é um
## parâmetro gráfico
## Warning in axis(if (horiz) 2 else 1, at = at.l, labels = names.arg, lty =
## axis.lty, : "besides" não é um parâmetro gráfico
## Warning in title(main = main, sub = sub, xlab = xlab, ylab = ylab, ...):
## "besides" não é um parâmetro gráfico
## Warning in axis(if (horiz) 1 else 2, cex.axis = cex.axis, ...): "besides" não é
## um parâmetro gráfico

#Perguntas de pesquisa #1. Quem tem escolaridade media nao precisa do P.A.P? #2. Quem mora no bairro Monte Verde nao precisa do P.A.P? #3. Quem tem escolaridade Média não é casado? #4. Quem é da capital nao é casado? #5. A audi tem mais carros automáticos que a chevrolet? #6. Os modelos 2008 são automáticos?