Carregando a base de dados

library(readxl)
AptosCriciuma <- read_excel("D:/Users/isaac/Documents/Isaac/Base_de_dados-master/AptosCriciuma.xls")
View(AptosCriciuma)

Corrigindo problema na variável “local”.

AptosCriciuma$Local = ifelse(AptosCriciuma$Local==1,"Região mais valorizada", 
                             "Região menos valorizada")

Problema resolvido

Histograma da variável “VALOR”

hist(AptosCriciuma$Valor,col = "steelblue4",
     main = "Valor dos Imóveis",
     xlab = "Valor em milhares de Reais",
     ylab = "Frequência")

Assimétrico e com uma única moda

Calculando média e desvio-padrão

mean(AptosCriciuma$Valor)
## [1] 107.5063
sd(AptosCriciuma$Valor)
## [1] 90.73032

O preço médio de cada apartamento é de R$ 107.567,00 e o desvio-padrão é de 90.73032.

Conclusão

Como observa-se no histograma, ele pode ser classificado como assimétrico e com uma única moda e há uma tendência dos preços dos apartamentos serem abaixo do valor de R$ 200.000,00, apresentando uma média de 107 mil reais e com um desvio-padrão de 90.73032 e do tipo precipício à esquerda.