library(readxl)
datos = read_excel("C:/Users/portatil/Desktop/Datos R/Datos_Vivienda.xlsx")
ID=1:dim(datos)[1]
datos=data.frame(ID,datos)
pos=which(datos$Barrio=="melendez")
datos_sub=datos[pos,]
require(RecordLinkage)
pos2=which(jarowinkler("melendez",datos$Barrio)>0.8 & datos$Tipo=="Apartamento")
datos_sub=datos[pos2,]
head(datos_sub)
## ID Zona piso Estrato precio_millon Area_contruida parqueaderos Banos
## 62 62 Zona Sur 3 3 130 58 NA 2
## 860 860 Zona Sur 3 3 109 52 NA 2
## 1082 1082 Zona Sur 4 4 108 58 NA 2
## 3442 3442 Zona Sur 1 3 75 40 NA 1
## 3946 3946 Zona Sur 5 3 115 58 1 1
## 3947 3947 Zona Sur NA 3 130 50 1 1
## Habitaciones Tipo Barrio cordenada_longitud Cordenada_latitud
## 62 2 Apartamento melendez -76.47397 3.42529
## 860 3 Apartamento melv©ndez -76.50400 3.40000
## 1082 3 Apartamento melendez -76.50963 3.46510
## 3442 2 Apartamento melendez -76.52629 3.43252
## 3946 3 Apartamento melv©ndez -76.52900 3.41300
## 3947 3 Apartamento melv©ndez -76.52900 3.41300
promedio_precio=mean(datos_sub$precio_millon,na.rm=TRUE)
mediana_precio=median(datos_sub$precio_millon,na.rm=TRUE)
promedio_area=mean(datos_sub$Area_contruida,na.rm=TRUE)
cantidad_ofertas=length(datos_sub$Zona)
resultado=data.frame(promedio_precio,mediana_precio,promedio_area,cantidad_ofertas)
resultado
## promedio_precio mediana_precio promedio_area cantidad_ofertas
## 1 133.6885 125 66.5482 61
require(leaflet)
leaflet() %>% addCircleMarkers(lng = datos_sub$cordenada_longitud,lat = datos_sub$Cordenada_latitud,radius = 0.3,color = "black",label = datos_sub$ID) %>% addTiles()
require(ggplot2)
require(plotly)
g1=ggplot(data = datos_sub,aes(y=precio_millon,x=Area_contruida)) + geom_point() + geom_smooth()
ggplotly(g1)
pos3=which(datos_sub$Area_contruida<200)
datos_sub2=datos_sub[pos3,]
g2=ggplot(data = datos_sub2,aes(y=precio_millon,x=Area_contruida)) + geom_point() + geom_smooth()
ggplotly(g2)