Introdução

Sam Easton é o fundador da Imobiliária Easton, recentemente recebeu reclamações de subvalorização na venda de imóveis de dois clientes. Este estudo de caso tem como motivo verificar através de análise dos dados, se as reclamações são de fato verdadeiras ou não.

Banco de Dados

library(readxl)
Base_de_dados_Easton_Imobiliaria <- read_excel("C:/Users/nanyc/Downloads/Base de dados/Base_de_dados-master/Base de dados - Easton Imobiliaria.xlsx")
head(Base_de_dados_Easton_Imobiliaria)
## # A tibble: 6 x 7
##     Mês  Preço Tamanho Quartos Idade Localização Corretora
##   <dbl>  <dbl>   <dbl>   <dbl> <dbl>       <dbl>     <dbl>
## 1     3 172950    174.       3     2           1         0
## 2     3 167250    183.       3     2           1         0
## 3     3 158250    172.       3     2           1         0
## 4     3 150750    210.       4     2           3         0
## 5     3 139050    190.       3     2           2         1
## 6     3 138150    129.       2     2           1         0

LEGENDA

Localização:

1 -> Dallas, 2 -> Fort Worth, 3 -> Arredores da área

Corretora:

1 -> Easton, 0 -> Outras Corretoras

Mês:

3 -> Março, 4 -> Abril, 5 -> Maio, 6 -> Junho

Panorama média das variáveis

summary(Base_de_dados_Easton_Imobiliaria)
##       Mês            Preço           Tamanho          Quartos     
##  Min.   :3.000   Min.   : 99000   Min.   : 99.31   Min.   :2.000  
##  1st Qu.:3.000   1st Qu.:121800   1st Qu.:154.13   1st Qu.:3.000  
##  Median :4.000   Median :138600   Median :169.27   Median :3.000  
##  Mean   :4.421   Mean   :140057   Mean   :173.48   Mean   :3.111  
##  3rd Qu.:5.000   3rd Qu.:157200   3rd Qu.:192.40   3rd Qu.:3.000  
##  Max.   :6.000   Max.   :190650   Max.   :266.82   Max.   :4.000  
##      Idade         Localização     Corretora      
##  Min.   : 1.000   Min.   :1.00   Min.   :0.00000  
##  1st Qu.: 5.000   1st Qu.:1.00   1st Qu.:0.00000  
##  Median : 6.000   Median :2.00   Median :0.00000  
##  Mean   : 6.139   Mean   :1.74   Mean   :0.09978  
##  3rd Qu.: 8.000   3rd Qu.:2.00   3rd Qu.:0.00000  
##  Max.   :13.000   Max.   :3.00   Max.   :1.00000

Preço por Quantidade de Casas

hist(Base_de_dados_Easton_Imobiliaria$Preço, col="orange",xlab= "Preço",ylab="Quantidade", main="Quantidade de casas por Preço")

Preço por Tamanho

plot(Base_de_dados_Easton_Imobiliaria$Preço~Base_de_dados_Easton_Imobiliaria$Tamanho, col="green",xlab="Tamanho", ylab="Preço", main="Preço por Tamanho")
abline(lm(Base_de_dados_Easton_Imobiliaria$Preço~Base_de_dados_Easton_Imobiliaria$Tamanho))

Preço por Corretora

boxplot(Base_de_dados_Easton_Imobiliaria$Preço~Base_de_dados_Easton_Imobiliaria$Corretora,col="yellow",xlab="Corretora",ylab="Preço",main="Preço por corretora")

Preço por Localização

boxplot(Base_de_dados_Easton_Imobiliaria$Preço~Base_de_dados_Easton_Imobiliaria$Localização,col="darkblue",xlab="Localização",ylab="Preço",main="Preço por Localização")

Preço por Quantidade de Quartos

boxplot(Base_de_dados_Easton_Imobiliaria$Preço~Base_de_dados_Easton_Imobiliaria$Quartos,col="purple",xlab="Quantidade de Quartos",ylab="Preço",main="Preço por quantidade de quartos")

Preço por Idade

boxplot(Base_de_dados_Easton_Imobiliaria$Preço~Base_de_dados_Easton_Imobiliaria$Idade,col="red",xlab="Idade",ylab="Preço",main="Preço por Idade")

Preço por Mês

boxplot(Base_de_dados_Easton_Imobiliaria$Preço~Base_de_dados_Easton_Imobiliaria$Mês,col="gray",xlab="Mês",ylab="Preço",main="Preço por Mês")

Dados das Casas Reclamadas

  1. A primeira casa é em Arlington, tem 4 anos, tem 203 m², 3 quartos e foi vendida por 88.500 dólares.

  2. A segunda casa é em Fort Worth, tem 9 anos, tem 172 m², 3 quartos e foi vendida por 79.500.

Conclusão

Através das analises dos dados e dos gráficos podemos verificar que primeiramente, vemos que as reclamações não podem se basear em um artigo de um jornal local sobre vendas de casa, pois tal pesquisa não utilizou variáveis para verificar as informações, como a idade da casa, quantidade de quartos, utilizou somente de um padrão baseado nas casas típicas da área DFW e as vendas tidas nos últimos 12 meses. Sendo que nesse tempo ocorreu uma crise, que teve como consequência a redução do valor médio das casas. Fazendo o comparação com outras corretoras, podemos ver que as diferenças não são tão significativas. Podemos desse modo concluir que não houve subvalorização dos preços das casas, e sim a Imobiliaria foi realista em meio a posição de declinio que se encontrava o mercado.