##IMPORTANDO O ARQUIVO FAMÍLIAS##
library(readxl)
Famílias <- read_excel("C:/Users/Davi/Desktop/Famílias.XLS")
##MANIPULANDO AS VARIÁVEIS##
Famílias$local <- as.factor(Famílias$local)
Famílias$tam <- as.numeric(Famílias$tam)
##CRIANDO BOXPLOTS##
boxplot(Famílias$tam~Famílias$local,
col = c("Gray","Pink","yellow"),
main = "Gráfico do local por tamanho da família",
xlab = "Local",
ylab = "Tamanho da família")
par(mfrow=c(1,1))
library(psych)
describeBy(Famílias$tam,
Famílias$local,
mat = TRUE)
## item group1 vars n mean sd median trimmed
## X11 1 Encosta do Morro 1 37 5.054054 1.413151 5 4.967742
## X12 2 Monte Verde 1 40 4.300000 1.453554 4 4.281250
## X13 3 Parque da Figueira 1 43 4.186047 1.592480 4 4.142857
## mad min max range skew kurtosis se
## X11 1.4826 3 9 6 0.5969957 0.1531191 0.2323207
## X12 1.4826 1 8 7 0.3155222 0.5319585 0.2298271
## X13 1.4826 1 8 7 0.2204054 -0.3192505 0.2428509
##TABELA COM RESUMO##
tabela1 <- table(Famílias$tam,Famílias$local)
tabela1
##
## Encosta do Morro Monte Verde Parque da Figueira
## 1 0 1 2
## 2 0 3 3
## 3 5 6 10
## 4 8 13 11
## 5 12 11 9
## 6 7 4 4
## 7 3 0 3
## 8 1 2 1
## 9 1 0 0
##PARÁGRAFO##
#Tendo em vista o que foi apresentado, pode-se observar que a maioria das famílias da Encosta do Morro possuem 5 pessoas, já em Monte Verde, a maioria das famílias possuem 4 integrantes e, por fim, a maior quantidade de famílias do Parque da Fiqueira constituem 4 seres humanos. Em Monte Verde, verifica-se dois outliers, o número de integrante(s) da família sendo 1 e, o outro, sendo 8, tendo uma concentração do tamanho da família por volta dos 4 e 5 integrantes na família.