Caso de Uso

Maria comenzó como agente de bienes raíces en Cali hace 10 años. Después de laborar dos años para una empresa nacional, se traslado a Bogotá y trabajó para otra agencia de bienes raíces. Sus amigos y familiares la convencieron de que con su experiencia y conocimientos del negocio debía abrir su propia agencia. Terminó por adquirir la licencia de intermediario y al poco tiempo fundó su propia compañía, C&A (Casas y Apartamentos) en Cali. Santiago y Lina, dos vendedores de la empresa anterior aceptaron trabajar en la nueva compaña. En la actualidad ocho agentes de bienes raíces colaboran con ella en C&A.

Actualmente las ventas de bienes raíces en Cali se han visto disminuidas de manera significativa en lo corrido del año. Durante este periodo muchas instituciones bancarias de ahorro y vivienda están prestando grandes sumas de dinero para la industria y la construcción comercial y residencial. Cuando el efecto producto de las tensiones políticas y sociales disminuya, se espera que la actividad económica de este sector se reactive.

Hace dos días, María recibió una carta solicitando asesoría para la compra de dos viviendas por parte de una compañía internacional que desea ubicar a dos de sus empleados con sus familias en la ciudad.

devtools::install_github("dgonxalex80/paqueteMODELOS", force =TRUE)
## Downloading GitHub repo dgonxalex80/paqueteMODELOS@HEAD
## 
## ── R CMD build ─────────────────────────────────────────────────────────────────
##   
   checking for file ‘/private/var/folders/fd/t79b145j0hv0njltjf27np940000gp/T/RtmpL6BjRQ/remotes26ba2be31993/dgonxalex80-paqueteMODELOS-cb6c7d9/DESCRIPTION’ ...
  
✔  checking for file ‘/private/var/folders/fd/t79b145j0hv0njltjf27np940000gp/T/RtmpL6BjRQ/remotes26ba2be31993/dgonxalex80-paqueteMODELOS-cb6c7d9/DESCRIPTION’
## 
  
─  preparing ‘paqueteMODELOS’:
##    checking DESCRIPTION meta-information ...
  
✔  checking DESCRIPTION meta-information
## 
  
─  checking for LF line-endings in source and make files and shell scripts
## 
  
─  checking for empty or unneeded directories
## 
  
─  building ‘paqueteMODELOS_0.1.0.tar.gz’
## 
  
   
## 
## Warning in i.p(...): installation of package
## '/var/folders/fd/t79b145j0hv0njltjf27np940000gp/T//RtmpL6BjRQ/file26ba4aa41867/paqueteMODELOS_0.1.0.tar.gz'
## had non-zero exit status
library(paqueteMODELOS)
data("vivienda")
head(vivienda)
##     id         zona piso estrato preciom areaconst parqueaderos banios
## 1 1147 Zona Oriente <NA>       3     250        70            1      3
## 2 1169 Zona Oriente <NA>       3     320       120            1      2
## 3 1350 Zona Oriente <NA>       3     350       220            2      2
## 4 5992     Zona Sur   02       4     400       280            3      5
## 5 1212   Zona Norte   01       5     260        90            1      2
## 6 1724   Zona Norte   01       5     240        87            1      3
##   habitaciones        tipo      barrio  longitud latitud
## 1            6        Casa 20 de julio -76.51168 3.43382
## 2            3        Casa 20 de julio -76.51237 3.43369
## 3            4        Casa 20 de julio -76.51537 3.43566
## 4            3        Casa  3 de julio -76.54000 3.43500
## 5            3 Apartamento       acopi -76.51350 3.45891
## 6            3 Apartamento       acopi -76.51700 3.36971

Vivienda 1

  1. Realice un filtro a la base de datos e incluya solo las ofertas de : base1: casas, de la zona norte de la ciudad. Presente los primeros 3 registros de las bases y algunas tablas que comprueben la consulta. (Adicional un mapa con los puntos de las bases. Discutir si todos los puntos se ubican en la zona correspondiente o se presentan valores en otras zonas, por que?).
base1 = subset(vivienda, vivienda$tipo == "Casa" & vivienda$zona == "Zona Norte")
knitr::kable (head(base1, 3), caption = "Primeras Tres Casas - Base1")
Primeras Tres Casas - Base1
id zona piso estrato preciom areaconst parqueaderos banios habitaciones tipo barrio longitud latitud
9 1209 Zona Norte 02 5 320 150 2 4 6 Casa acopi -76.51341 3.47968
10 1592 Zona Norte 02 5 780 380 2 3 3 Casa acopi -76.51674 3.48721
11 4057 Zona Norte 02 6 750 445 NA 7 6 Casa acopi -76.52950 3.38527 
library(mice)
## 
## Attaching package: 'mice'
## The following object is masked from 'package:stats':
## 
##     filter
## The following objects are masked from 'package:base':
## 
##     cbind, rbind
md.pattern(base1, rotate.names = TRUE)

##     id zona estrato preciom areaconst banios habitaciones tipo barrio longitud
## 254  1    1       1       1         1      1            1    1      1        1
## 181  1    1       1       1         1      1            1    1      1        1
## 96   1    1       1       1         1      1            1    1      1        1
## 191  1    1       1       1         1      1            1    1      1        1
##      0    0       0       0         0      0            0    0      0        0
##     latitud parqueaderos piso    
## 254       1            1    1   0
## 181       1            1    0   1
## 96        1            0    1   1
## 191       1            0    0   2
##           0          287  372 659
base1 <- base1[complete.cases(base1),]
md.pattern(base1, rotate.names = TRUE)
##  /\     /\
## {  `---'  }
## {  O   O  }
## ==>  V <==  No need for mice. This data set is completely observed.
##  \  \|/  /
##   `-----'

##     id zona piso estrato preciom areaconst parqueaderos banios habitaciones
## 254  1    1    1       1       1         1            1      1            1
##      0    0    0       0       0         0            0      0            0
##     tipo barrio longitud latitud  
## 254    1      1        1       1 0
##        0      0        0       0 0
library(leaflet)
leaflet() %>% addTiles() %>% 
  setView(lng = -76.52, lat = 3.44, zoom = 12)  %>%  # Centrar
  addCircleMarkers(
    lng = base1$longitud,
    lat = base1$latitud,
    popup = as.character(paste0(base1$zona, " Tipo:", base1$tipo, " Estrato:", base1$estrato, " Precio:", base1$preciom, "'000.000", " Pisos:", base1$piso)),
    stroke = FALSE,
    fillOpacity = 1,
    radius = 4,
    color="blue"
  )

Vivienda 2