Introdução

Sam Easton é o fundador da imobiliária Easton e recebeu reclamações de subvalorização na venda de imóvel de 2 clientes da Easton Imobiliária. O Trabalho a ser publicado objetifica mostrar o motivo pelo qual as casas tiveram seu valor depreciado ou se a Easton Imobiliária subvalorizou os imóveis por conta própria.

Base de Dados utilizada

library(readxl)
Base_Easton_Imobiliaria <- read_excel("Trabalhos_Tiago/Base_Easton_Imobiliaria.xlsx")
View(Base_Easton_Imobiliaria)

Breve apresentação dos Dados

summary(Base_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
summary(Base_Easton_Imobiliaria$Tamanho)
##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##   99.31  154.13  169.27  173.48  192.40  266.82
summary(Base_Easton_Imobiliaria$Preço)
##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##   99000  121800  138600  140057  157200  190650
Dados da Primeira Casa: Fort Worth, 9 anos, 172m², vendida por 79.500 doláres.
Dados da Segunda Casa: Arlington, 4 anos, 203m², vendida por 88.500 dólares.
Pode-se obser que, os dois imóveis foram vendidos abaixo do valor mínimo(99.000 dólares). Mas também, abaixo do valor médio - 104.250 doláres - na área de estudo.
summary(Base_Easton_Imobiliaria$Mês)
##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##   3.000   3.000   4.000   4.421   5.000   6.000

Tabela no que diz respeito a Frequência

table<- xtabs(~Corretora+Localização, data = Base_Easton_Imobiliaria)
table
##          Localização
## Corretora   1   2   3
##         0 210 123  82
##         1   7  24  15

Boxplot I - Relação entre o preço do imóvel e o Mês do ano

boxplot(Base_Easton_Imobiliaria$Preço~Base_Easton_Imobiliaria$Mês, col = c("lightblue"),
        main= "Boxplot - Preço x Mês", xlab= "Mês", ylab= "Preço")

Boxplot II - Relação entre o Preço e a Localização do Imóvel

boxplot(Preço~Localização, data = Base_Easton_Imobiliaria, id=list(method="y"), main= "Boxplot - Preço x Localização", col = "lightblue")

Legenda: Localização 1 - Dallas, Localização 2 - Forth Worth, Localiazação 3 - Arredores

Gráfico III - Diagrama relacionando o Preço e o tamanho dos objetos de estudos

par(mfrow=c(1,1))
plot(Base_Easton_Imobiliaria$Preço~Base_Easton_Imobiliaria$Tamanho, col= "red", pch=4, xlab= "Preço", ylab= "Tamanho", main= "Diagrama - Preço x Tamanho")

Conclusão

Nota-se que, a diferença de preço das casas, apresentadas por outras imobiliárias, não foi tão grande quanto parecia ser devido as reclamações dos proprietários. Também não houve uma grande crise de cunho imobiliário para que o preço dos imóveis diminuisse tanto.Dessa maneira, é possível percerber que, o caso não passou de uma mera especulação por parte dos próprios proprietários. Que muitas vezes, por serem muito apegados a casa, querem que seu valor seja mais alto do que realmente é.