CASO EASTON
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. Este trabalho tem como objetivo mostrar que o motivo pelos quais as casas foram vendidas por um preço menor não foi uma subvalorização e sim efeitos da crise que afetou tanto a Easton quanto suas concorrentes e com isso concluir que as reclamações não são verdadeiras.
library(readxl)
Easton.xlsx <- read_excel("C:/Users/Gabriel/Downloads/Easton.xlsx")
summary(Easton.xlsx)
## 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
tabela <- xtabs(~Corretora+Localização , data=Easton.xlsx)
tabela
## Localização
## Corretora 1 2 3
## 0 210 123 82
## 1 7 24 15
summary(Easton.xlsx$Preço)
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 99000 121800 138600 140057 157200 190650
Primeira Casa: Localizada em Fort Worth; Idade: 9 anos; Tamanho: 172m²; Valor que foi vendida: 79500 dólares;
Segunda Casa: Localizada em Arlington; Idade: 4 anos; Tamanho: 203m²; Valor que foi vendida: 88500 dólares;
Conforme observado, ambos os imóvies foram vendidos abaixo do valor mínimo de $99.000 e também abaixo do valor da média de venda de $104.250 da área de Dallas-Fort Worth. Entretano, a primeira casa possui o tamanho médio de imóveis maior que 172m2, enquanto que a segunda casa possui o mesmo tamanho da média dos imóveis.
library(ggplot2)
ggplot(Easton.xlsx) +
aes(x = Tamanho, y = Preço, colour = Localização) +
geom_point(size = 2.46) +
scale_color_viridis_c(option = "plasma") +
labs(x = "Tamanho das casas", y = "Valor", title = "Valor X Tamanho das Casas") +
theme_minimal()
boxplot(Easton.xlsx$Preço~Easton.xlsx$Localização, col=c("Purple","Orange","Gray"),names=c("Dallas","Fort Worth","Arredores"), xlab="Regiao",ylab="Valor", main="Valor das casas x Regiao")
boxplot(Easton.xlsx$Preço~Easton.xlsx$Mês, col=c("Blue", "Green","Red","Yellow"),names=c("Marco","Abril","Maio","Junho"),xlab="Mes",ylab="Valor", main="Valor das casas x Mes")
Cabe ressaltar, em primeiro plano, que nem sempre o tamanho da casa influenciará o preço. Por meio do gráfico 1, isto pode ser observado melhor. Nele, pode-se ver casas que tem mais de 200 metros quadrados e que possuem um valor de venda menor do que casas que tem menos de 200 metros quadrados. O que pode ser diretamente relacionado com o preço de venda é a localização do imóvel. Tanto no gráfico 1 quanto no gráfico 2 percebe-se que os imóveis na região de Dallas(1) possuem preços maiores que nas regiões de Fort Worth(2) e Região Metropolitan(3). A mediana na região de Dallas é no valor de $150.00 dólares, enquanto que em Fort Wort e Região Metropolitana é um pouco mais de $120.000 dólares.
É importante destacar também por meio do gráfico 3, que nos últimos 4 meses (Março, Abril, Maio e Junho) tantos os imóveis da Easton quanto das outras imobiliárias tiveram seus valores reduzidos devido à crise.
Dessa forma, percebe-se que as casas vendidas pela Easton nas regiões de Fort Worth e Região Metroplitana (Arlington), não tiveram quedas grandes em seus preços e sim quedas normais, provocadas também pela crise. Com isso, conclui-se que realmente os proprietários tendem a supervalorizar a sua casa em relação ao valor de venda, porém como se foi mostrado acima nos gráficos, houve uma queda de preços tanto na Easton quanto nas concorrentes e com isso não teve subvalorização alguma nas vendas por parte da Easton Imobiliária.