Introdução

Sam Easton é dono de uma imobiliaria e recentemente recebeu uma carta do conselho local dos corretores de imóveis.O Conselho havia recebido reclamações de duas pessoas que venderam suas casas através da Easton Imobiliaria, afirmando que a easton imobiliaria havia subvalorizado suas casas quando foram vendidas, logo , poderiam ter ganho mais dinheiro na venda dessas casas ,logo tiveram prejuizo por conta disso. Nesse estudo de caso, devemos ajudar Sam Easton, a mostrar que as reclamações de subvalorização das casas, feitas pelas dois clientes, são ou não verdadeiras.A primeira casa é em Arlington, tem 4 anos, tem 203 m² e foi vendida por 88.500 dólares, enquanto a segunda casa é em Fort Worth, tem 9 anos, tem 172 m² e foi vendida por 79.500,ambas as casas em questão têm três quartos.

a Base de Dados Easton Imolibiaria.xlsx que contém todos os dados de casas vendidas na área de Dallas-Fort Worth nos últimos quatro meses, será usada para comprovar se houve realmente a subvalorização nas duas casas

Banco de dados

library(readxl)
EastonImobiliaria <- read_excel("C:/Users/T-Gamer/Downloads/Base_de_dados-master/Base_de_dados-master/EastonImobiliaria.xlsx")
View(EastonImobiliaria)

Resumo das variaveis

summary(EastonImobiliaria$Preço)
##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##   99000  121800  138600  140057  157200  190650
summary(EastonImobiliaria$Tamanho)
##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##   99.31  154.13  169.27  173.48  192.40  266.82

Obs: inclui todas as casas vendidas em Dallas, Fort Worth, Arlington e as pequenas cidades entre elas, nos últimos 12 meses.

Obs2:existe uma diferença entre a média e a mediana correspondente aos meses de março, abril, maio e junho , sendo que neste período a situação financeira era a mesma.

EastonImobiliaria$Mês <- as.factor(EastonImobiliaria$Mês)
levels(EastonImobiliaria$Mês)<- c("Março","Abril","Maio","Junho")

EastonImobiliaria$Corretora <- as.factor(EastonImobiliaria$Corretora)
levels(EastonImobiliaria$Corretora)<- c("Easton","Outra imobiliária")

EastonImobiliaria$Localização <- as.factor(EastonImobiliaria$Localização)
levels(EastonImobiliaria$Localização)<- c("Dallas","Fort Worth", "Arredores" )

Tabela de Frequência

Tabela <- xtabs(~Corretora+Localização, data=EastonImobiliaria)
Tabela
##                    Localização
## Corretora           Dallas Fort Worth Arredores
##   Easton               210        123        82
##   Outra imobiliária      7         24        15

Casas dos proprietarios que reclamaram

Primeira Casa : Está localizada em Arlington , tem 4 anos , Tem 203m² e foi vendida por 88500 doláres

Podemos ver que o valor é abaixo do valor mínimo de $99.500,00, abaixo do preço médio de venda que é de 104.250 dólares na área de Dallas-Fort Worth, e acima do tamanho médio de imóveis vendidos que é de 172 m².

Segunda casa : Está localizada em Fort Worth, tem 9 anos de idade e 172m², tendo sido vendida por 79500 doláres

Podemos ver que o valor está abaixo do valor mínimo $99.000,00, abaixo do preço médio de venda de 104.250 dólares na área de Dallas-Fort Worth, e exatamente do tamanho médio de imóveits que é 172 m²

Mostrando se a Easton Imobiliaria tem subvalorizado as casas

Gráficos para comparação

.Preço por Localização

par(bg="yellow")  
boxplot(Preço~Localização, data=EastonImobiliaria, id=list(method="y"),main="Gráfico: Preço X Localização",col="turquoise")

.Preço por Mês

par(bg="tomato")
boxplot(Preço~Mês, data=EastonImobiliaria, id=list(method="y"),main="Gráfico: Preço X Mês",col="yellowgreen")

.Preço X Tamanho por Localização

library(ggplot2)
ggplot(EastonImobiliaria) +
 aes(x = Tamanho, y = Preço, colour = Localização, size = Corretora) +
 geom_point() +
 scale_color_hue() +
 labs(title = "Gráfico", subtitle = "Tamanho por Preço (Localização e Corretora Inclusos)") +
 theme_minimal()
## Warning: Using size for a discrete variable is not advised.

## `geom_smooth()` using method = 'loess' and formula 'y ~ x'

Conclusão

Podemos perceber que não existe uma subvalorização quando analisamos as casas vendidas pela EastonImobiliaria em relação ao seus competidores,logo,há uma coerencia nos preços.Porém , as duas casas em questão foram realmente subvalorizadas. A primeira casa pela faixa de tamanho e a localização deveria custar no minimo 100.000 doláres,porém, foi vendida por 88.500 doláres, enquanto a segunda , localizada em Fort Worth , custa no minimo 99.000 pela EastonImobiliaria,entretanto foi vendida por 79.500. Os clientes ao ver a notícia no jornal deduziram que poderiam ter recebido mais dinheiro pela venda das casas, entretanto não se sabe o estado das casas e nem o real motivo da subvalorização, já que mesmo em crise. as imobiliárias segundo os dados apresentados, tem mantido coerência no preço nas vendas.