IMPORTATION OF DATAS

library(readxl)
Familias <- read_excel("C:/Users/SHELTA/Downloads/Base_de_dados-master/Base_de_dados-master/Famílias.xls")
View(Familias)

#head(Familias)
library(knitr)
kable(head(Familias))
familia local p.a.p instr tam renda
1 Monte Verde Não usa Ensino médio 4 10.3
2 Monte Verde Não usa Ensino médio 4 15.4
3 Monte Verde Usa Ensino fundamental 4 9.6
4 Monte Verde Não usa Ensino fundamental 5 5.5
5 Monte Verde Usa Ensino médio 4 9.0
6 Monte Verde Usa Sem Instrução 1 2.4 
library(psych)
describeBy(Familias$renda,Familias$instr, mat = TRUE)
##     item             group1 vars  n     mean       sd median  trimmed
## X11    1 Ensino fundamental    1 38 6.176316 3.560021   5.05 5.809375
## X12    2       Ensino médio    1 44 8.022727 4.586728   6.80 7.441667
## X13    3      Sem Instrução    1 37 4.508108 2.863989   4.00 4.200000
##         mad min  max range     skew kurtosis        se
## X11 2.74281 1.1 18.6  17.5 1.320271 1.920206 0.5775116
## X12 3.26172 2.3 25.7  23.4 1.609205 3.417244 0.6914753
## X13 2.37216 0.1 13.9  13.8 1.368805 2.276194 0.4708369

BOXPLOT

names(Familias)
## [1] "familia" "local"   "p.a.p"   "instr"   "tam"     "renda"
boxplot(Familias$renda~Familias$instr,
        col=c("red","gold","green2"), xlab = "INSTR", ylab = "RENDA",
        main="Education and Income-Renda")

boxplot(Familias$renda~Familias$local,
        col=c("brown3","green","green4"), xlab = "LOCAL", ylab = "RENDA",
        main="Places and Income-Renda")

famílias com instrucoes e locais

library(knitr)
tabela <- table(Familias$instr,Familias$local)
kable(tabela)
Encosta do Morro Monte Verde Parque da Figueira
Ensino fundamental 13 11 14
Ensino médio 6 23 15
Sem Instrução 18 6 14

Dos base_de_dados selecionados, famílias, que mostra as famílias e seus (locais, programa de alimentação popular, grau de instrução, número de moradores

let’s dance … hahaha