Tarea 1 - CDC
Juan Pablo Ruozi
27/5/2021
###Tarea 1 - Mapear Información Geográfica
library(tidyverse)## -- Attaching packages --------------------------------------- tidyverse 1.3.1 --## v ggplot2 3.3.3 v purrr 0.3.4
## v tibble 3.1.0 v dplyr 1.0.5
## v tidyr 1.1.3 v stringr 1.4.0
## v readr 1.4.0 v forcats 0.5.1## -- Conflicts ------------------------------------------ tidyverse_conflicts() --
## x dplyr::filter() masks stats::filter()
## x dplyr::lag() masks stats::lag()library(sf)## Linking to GEOS 3.9.0, GDAL 3.2.1, PROJ 7.2.1espacios_verdes <- st_read("espacio-verde-publico.geojson.txt", stringsAsFactors=TRUE)## Reading layer `espacio_verde_publico_WGS84' from data source `C:\Users\juanp\Documents\Curso Ciencia de Datos\Ciclo 2 - Tareas\espacio-verde-publico.geojson.txt' using driver `GeoJSON'
## Simple feature collection with 1731 features and 31 fields
## Geometry type: MULTIPOLYGON
## Dimension: XY
## Bounding box: xmin: -58.53175 ymin: -34.70557 xmax: -58.33983 ymax: -34.52657
## Geodetic CRS: WGS 84dim(espacios_verdes)## [1] 1731 32summary(espacios_verdes)## nombre
## Cantero Av 27 de Febrero : 7
## Predio Villa Olímpica (no oficial) : 4
## Hungría : 3
## Paseo del Ballet Argentino : 3
## Cancha auxiliar abierta - Club Atl. Boca Juniors: 2
## (Other) :952
## NA's :760
## nombre_ev clasificac
## SIN NOMBRE :275 PLAZOLETA :650
## S/D :137 CANTERO CENTRAL :620
## SIN DENOMINACION : 63 PLAZA :343
## CANTERO AV. 27 DE FEBRERO (no oficial): 7 PARQUE : 56
## PREDIO VILLA OLIMPICA (NO OFICIAL) : 4 JARDÍN : 27
## (Other) :947 PATIO RECREATIVO: 18
## NA's :298 (Other) : 17
## patio_de_j apadrinada
## NO :1223 NO : 568
## SI : 370 GATORADE : 14
## NA's: 138 PATAGONIA FLOORING S.A. -EN TRÁMITE DE RENOVACIÓN-: 7
## DIFERENTES NOMBRES : 4
## PATAGONIA FLOORING S.A. : 4
## (Other) : 119
## NA's :1015
## observacio
## ESPACIOS VERDES :220
## no incluidos en el nomenclador de espacios verdes : 25
## Redigitalización en Febrero 2020 en base a información enviada por DG Regeneración Urbana : 20
## Agregado en Diciembre de 2017. Veredón verde. Dentro del denominado Barrio Municipal Alte Brown : 19
## Redigitalización en Febrero de 2020 en base a información enviada por la DG Regeneración Urbana. Se incorporaron los canteros del Metrobus: 19
## (Other) :953
## NA's :475
## fuente_geo fuente_ins
## DIGITALIZACION 2009 : 9 E.V. :693
## ESPACIOS VERDES :684 USIG :863
## ESPACIOS VERDES - USIG: 1 USIG 2:122
## USIG :998 NA's : 53
## NA's : 39
##
##
## ubicacion
## DELLEPIANE, LUIS J., TTE. GRAL., AV. E/ LARRAZABAL, AV Y ESCALADA, AV. : 15
## DELLEPIANE, LUIS J., TTE. GRAL., AV. E/ PAZ, GRAL., AV. - RIO NEGRO Y CAÑADA DE GOMEZ : 14
## ROCA, CNEL., AV. E/ PORTELA Y PAZ, GRAL., AV (FALTA RELEVAR COMO SE CRUZAN LAS CALLES A FIN DE ESTABLECER LIMITES DE CANTEROS): 14
## CONJUNTO PLAZOLETAS HOLMBERG - CONGRESO - PLAZA - PARQUE (PROYECTO AUTOPISTA U5 : 13
## CONJUNTO DE CANTEROS UBICADOS ENTRE BACH, JUAN SEBASTIAN - PARQUE - DONADO - CONGRESO : 12
## (Other) :1561
## NA's : 102
## decreto fecha_decr ordenanza_ fecha_orde
## De Hecho: 58 16/10/2001: 25 45.591 : 21 18/09/2001: 29
## 2 : 22 02/01/1992: 20 27.387 : 20 07/12/1991: 23
## De hecho: 22 07/11/2003: 18 LEY N° 644 : 17 09/10/2003: 20
## 186/17 : 9 20/01/1998: 12 LEY 1.128 : 9 23/01/1973: 19
## 5.527 : 8 29/12/2014: 11 LEY N.º 5810: 9 16/07/2002: 14
## (Other) : 380 (Other) : 451 (Other) : 633 (Other) :640
## NA's :1232 NA's :1194 NA's :1022 NA's :986
## boletin_of fecha_bole BARRIO COMUNA
## ACTA : 49 24/10/2001: 27 VILLA LUGANO : 184 Min. : 0.000
## 1303 : 26 29/01/1973: 20 VILLA SOLDATI: 135 1st Qu.: 4.000
## 19.205 : 21 14/11/2003: 19 PALERMO : 123 Median : 8.000
## 14.467 : 20 27/01/1992: 19 RETIRO : 98 Mean : 7.682
## 1818 : 17 09/01/2015: 10 SAAVEDRA : 94 3rd Qu.:11.000
## (Other):642 (Other) :678 (Other) :1091 Max. :15.000
## NA's :956 NA's :958 NA's : 6
## Fech_padri Vig_padri
## 29-07-2013: 17 29-07-2016: 17
## 03-12-2009: 10 03-12-2012: 10
## 12-12-2013: 6 12-12-2016: 6
## 26-07-2013: 6 26-07-2016: 6
## 28-03-2011: 5 09-04-2015: 4
## (Other) : 25 (Other) : 25
## NA's :1662 NA's :1663
## Alc_conven
## Instalación y mantenimiento de estaciones aeróbicas: 15
## Jardinería fina, corte y limpieza : 14
## Corte y limpieza : 12
## Puesta en valor (no incluye corte y limpieza) : 10
## Puesta en valor, corte y limpieza : 6
## (Other) : 10
## NA's :1664
## nom_mapa id_ev_pub area
## Cantero Av 27 de Febrero : 7 Min. : 2.0 Min. : 0.0
## Paseo del Ballet Argentino: 3 1st Qu.: 601.5 1st Qu.: 224.0
## Complejo Villa Olímpica : 2 Median :1067.0 Median : 676.3
## Hungría : 2 Mean :1045.9 Mean : 9409.6
## Martín Boneo y Villalonga : 2 3rd Qu.:1504.0 3rd Qu.: 2782.2
## (Other) :952 Max. :1953.0 Max. :2352162.4
## NA's :763
## perimeter DGEV_Padri Mant_2017
## Min. : 0.00 SI : 82 SI : 83
## 1st Qu.: 0.00 NA's:1649 NA's:1648
## Median : 18.18
## Mean : 1945.19
## 3rd Qu.: 856.88
## Max. :15917.93
##
## TAREAS
## Riego - Patio de juegos con solado antigolpes - Hamaca inclusiva - Parquización - Nuevos solados: 5
## Parquización - Iluminación : 3
## Parquización - Nuevos solados : 3
## Riego - Parquización - Nuevos solados - Nuevo mobiliario y equipamiento - Iluminación : 3
## Riego - Parquización : 2
## (Other) : 67
## NA's :1648
## ESTADO SUP_TOTAL Canil Posta_aero
## Finalizada: 83 Min. : 0.0 - : 7 - : 5
## NA's :1648 1st Qu.: 0.0 NO : 130 NO : 104
## Median : 0.0 SI : 58 SI : 61
## Mean : 456.1 NA's:1536 NA's:1561
## 3rd Qu.: 0.0
## Max. :77100.0
##
## geometry
## MULTIPOLYGON :1731
## epsg:4326 : 0
## +proj=long...: 0
##
##
##
## ##Mapa número 1: Mapa coroplético que muestre la distribución geográfica de una variable numérica.
Se muestra la distribución geográfica de los espacios verdes en la Ciudad de Buenos Aires y su la densidad según el tamaño de cada uno de los espacios.
ggplot(espacios_verdes)+
geom_sf(aes(fill=area), color="green")+
labs(title="Espacios verdes en CABA",
subtitle="Densidad de los espacios")+
scale_fill_viridis_c(direction = +1)
##Mapa número 2: Mapa coroplético que muestre la distribución geográfica de una variable categórica.
espacios_verdes <- mutate(espacios_verdes,
Superficie=if_else(area>=500000, "mayor a 500k", "menor a 500k"))ggplot(espacios_verdes)+
geom_sf(aes(fill=Superficie))