Análisis de Avisos de Ciudadanos en Referencia al Reciclado en Buenos Aires (CABA) desde Enero 2017 a Agosto 2019

LLAMADO DE LIBRERIAS EN R

# Procedemos a llamar las librerías para conectarnos con las base de datos Postgres + PostGIS y acceder los datos

library(tidyverse)
library(sf)
library(ggplot2)
library(lubridate)
library(osmdata)
library(ggmap)
library(leaflet)
library(ggspatial)

CREANDO LAS TABLAS DE DATOS Y LAS CAPAS CARTOGRAFICAS

#Capa de Avisos
reciclaje <- st_read("C:/Users/20958699825/Desktop/QGIS Blog/criminalidad/R Analisis/suaci_reciclaje.geojson") 

## Reading layer `suaci_reciclaje' from data source `C:\Users\20958699825\Desktop\QGIS Blog\criminalidad\R Analisis\suaci_reciclaje.geojson' using driver `GeoJSON'
## Simple feature collection with 59531 features and 21 fields
## geometry type:  POINT
## dimension:      XY
## bbox:           xmin: -58.53038 ymin: -34.7038 xmax: -58.34865 ymax: -34.53508
## epsg (SRID):    4326
## proj4string:    +proj=longlat +datum=WGS84 +no_defs

VISUALIZACION DE LOS DATOS

dim(reciclaje)

## [1] 59531    22

La cantidad de quejas denunciadas entre enero del 2017 y agostro del 2019 son 59531 avisos con 22 columnas

summary(reciclaje)

##        id                contacto        periodo      
##  Min.   :    47   00000052/19:    1   Min.   :201701  
##  1st Qu.:135826   00000053/17:    1   1st Qu.:201711  
##  Median :313547   00000123/19:    1   Median :201805  
##  Mean   :338760   00000130/19:    1   Mean   :201803  
##  3rd Qu.:516439   00000133/17:    1   3rd Qu.:201901  
##  Max.   :893280   00000173/19:    1   Max.   :201908  
##                   (Other)    :59525                   
##                                  categoria    
##  FISCALIZACION ACTIVIDADES COMERCIALES:    6  
##  LIMPIEZA Y RECOLECCION               :54727  
##  MEDIO AMBIENTE Y RECICLADO           :  223  
##  RECICLADO Y PROTECCION AMBIENTAL     : 4575  
##                                               
##                                               
##                                               
##                                      subcategoria  
##  CESTOS Y CONTENEDORES                     :13624  
##  CONDICIONES DE SEGURIDAD                  :    6  
##  ELEMENTOS CON IMPACTO AMBIENTAL           :  151  
##  IMPACTO AMBIENTAL                         :   74  
##  LIMPIEZA DE VIA PUBLICA                   :41103  
##  OCUPACION INDEBIDA                        :  149  
##  RECUPERADOR URBANO Y CAMIONES DE RECICLADO: 4424  
##                                                                     concepto    
##  RECOLECCION DE RESIDUOS FUERA DEL CONTENEDOR                           :41103  
##  INSTALACION DE CAMPANA VERDE                                           : 6486  
##  VACIADO DE CAMPANA VERDE                                               : 4758  
##  LIMPIEZA/HIGIENIZACION DE ESPACIOS PUBLICOS POR ASENTAMIENTOS PRECARIOS: 2300  
##  LIMPIEZA DE CAMPANA VERDE                                              : 1244  
##  REPARACION DE CAMPANA VERDE                                            : 1136  
##  (Other)                                                                : 2504  
##   tipo_prestacion  fecha_ingreso          hora_ingreso     domicilio_cgpc 
##  DENUNCIA :  284   Min.   :2017-01-01   07:42:28:   12   COMUNA 13: 6206  
##  QUEJA    :  403   1st Qu.:2017-11-08   10:51:54:   10   COMUNA 11: 5255  
##  SOLICITUD:58844   Median :2018-05-09   09:48:25:    9   COMUNA 14: 5084  
##                    Mean   :2018-05-22   08:32:15:    8   COMUNA 8 : 5037  
##                    3rd Qu.:2019-01-28   08:42:31:    8   COMUNA 10: 4848  
##                    Max.   :2019-08-31   09:11:32:    8   COMUNA 9 : 4376  
##                                         (Other) :59476   (Other)  :28725  
##      domicilio_barrio                   domicilio_calle  domicilio_altura
##  PALERMO     : 5084   RIVADAVIA AV.             :  498   Min.   :    1   
##  VILLA LUGANO: 3292   ALBERDI, JUAN BAUTISTA AV.:  359   1st Qu.: 1164   
##  BELGRANO    : 3191   SANTA FE AV.              :  327   Median : 2318   
##  CABALLITO   : 2987   YERBAL                    :  294   Mean   : 2577   
##  FLORES      : 2698   LAFERRERE, GREGORIO DE    :  285   3rd Qu.: 3635   
##  RECOLETA    : 2344   PARAGUAY                  :  268   Max.   :17007   
##  (Other)     :39935   (Other)                   :57500   NA's   :7172    
##   domicilio_esquina_proxima      lat              long       
##  RIVADAVIA AV. :   77       Min.   :-34.70   Min.   :-58.53  
##  SANTA FE AV.  :   57       1st Qu.:-34.63   1st Qu.:-58.48  
##  PARAGUAY      :   47       Median :-34.61   Median :-58.46  
##  ZUVIRIA       :   47       Mean   :-34.61   Mean   :-58.45  
##  CORRIENTES AV.:   42       3rd Qu.:-34.59   3rd Qu.:-58.42  
##  (Other)       : 6902       Max.   :-34.54   Max.   :-58.35  
##  NA's          :52359                                        
##      canal               genero      estado_del_contacto    hora_anglo   
##  147    :44197   DESCONOCIDO:  892   ABIERTO: 4747       07:42:28:   12  
##  APP    : 6586   FEMENINO   :36265   CERRADO:54784       10:51:54:    9  
##  COMUNAS:  540   MASCULINO  :22374                       00:47:33:    8  
##  WEB    : 8208                                           08:42:31:    8  
##                                                          09:48:25:    8  
##                                                          10:00:55:    8  
##                                                          (Other) :59478  
##                                                  geom      
##  0101000020E6100000825629150E3A4DC049A77E2C1A5141C0:   46  
##  0101000020E6100000755996C14C394DC09B0DA941D74D41C0:   40  
##  0101000020E6100000326C93C14C394DC03A43AA41D74D41C0:   36  
##  0101000020E61000009474F2E498374DC0AE4F035F934C41C0:   35  
##  0101000020E610000057B75C03D42F4DC078BCE4A0DB4E41C0:   34  
##  0101000020E61000001EA47098E0394DC03AD343E1E14B41C0:   33  
##  (Other)                                           :59307  
##           geometry    
##  POINT        :59531  
##  epsg:4326    :    0  
##  +proj=long...:    0  
##                       
##                       
##                       
## 

Con la consulta a la capa de avisos podemos saber que:

• Existen 54727 avisos o reclamos de vecinos con la categoria la LIMPIEZA Y RECOLECCION
• Existen 13624 avisos o reclamos de vecinos con la subcategoria la CESTOS Y CONTENEDORES
• Existen 41103 avisos o reclamos de vecinos con el concepto la RECOLECCION DE RESIDUOS FUERA DEL CONTENEDOR
• Existen 6486 avisos o reclamos de vecinos con el concepto la INSTALACION DE CAMPANA VERDE
• El domicilio_cgpc que más reclamos de vecinos presenta es la COMUNA 13 con 6206 avisos.
• El domicilio_barrio que más reclamos de vecinos presenta es la PALERMO con 5084 avisos.
• El domicilio_calle que más reclamos de vecinos presenta es la RIVADAVIA AV. con 498 avisos.
• La distribución de genero para los reclamos de vecinos presenta 892 DESCONOCIDO, 36265 FEMENINO y 22374 MASCULINO.

Para hacer el análisis haremos especial énfasis en las columnas “categoria”, “subcategoria” y “concepto” las cuales definen los tipos de avisos denunciados.

Verificamos si posee registros nulos:

sum(is.na(reciclaje$categoria))

## [1] 0

sum(is.na(reciclaje$subcategoria))

## [1] 0

sum(is.na(reciclaje$concepto))

## [1] 0

No hay datos nulos.

Verificamos ahora las fechas y horas

sum(is.na(reciclaje$fecha_ingreso))

## [1] 0

sum(is.na(reciclaje$hora_anglo))

## [1] 0

Perfecto!, todos los avisos tienen fecha y hora.

Veamos ahora como es la categorización y la cantidad de avisos.

Grafiquemos esos datos por el contador de categorias

En la previa ya sabíamos que el aviso más denunciado es el LIMPIEZA Y RECOLECCION con 54727 casos en el período de enero 2017 a agosto del 2019.

Grafiquemos esos datos por el contador de subcategorias

En la previa ya sabíamos que el aviso más denunciado es el LIMPIEZA DE VIA PUBLICA con 41103 avisos y CESTOS Y CONTENEDORES con 13624 casos en el período de enero 2017 a agosto del 2019.

Grafiquemos esos datos por el contador de conceptos

En la previa ya sabíamos que los aviso más denunciado es la RECOLECCION DE RESIDUOS FUERA DEL CONTENEDOR con 41103 avisos e INSTALACION DE CAMPANA VERDE con 6486 casos en el período de enero 2017 a agosto del 2019.

Veamos como se comportan por cada barrio los avisos

El gráfico muestra claramente que los barrios son los que poseen mayor cantidad de avisos por categorias.

El gráfico muestra claramente que los barrios son los que poseen mayor cantidad de avisos por subcategorias.

El gráfico muestra claramente que los barrios son los que poseen mayor cantidad de avisos por conceptos.

Veamos ahora como se comportan en el tiempo

reciclaje <- reciclaje %>% mutate(fecha = ymd(fecha_ingreso))

VISUALIZACION DE ESPACIO Y TIEMPO

Mapa Base

bbox <- c(min(reciclaje$long, na.rm = TRUE),
          min(reciclaje$lat, na.rm = TRUE),
          max(reciclaje$long, na.rm = TRUE),
          max(reciclaje$lat, na.rm = TRUE))

CABA <- get_stamenmap(bbox, maptype = "toner-lite")

## Warning: Removed 2 rows containing missing values (geom_tile).