#Cargamos dataset escuelas

victimas siniestros

Calles

#Filtramos algunas escuelas

#En este mapa vemos las escuelas por su distancia a pasajes#

mapview(escuelas_pasajes, zcol ="dist_pasaje") + pasajes

Espacios verdes

#En este mapa vemos los espacios verdes privados de la ciudad#

# Example of referencing a column by name
mapview(Espacios_verdes, zcol = "TIPO_ESPAC")  # if the column name can be simplified

#En este mapa vemos los espacios verdes privados de las escuelas de la ciudad#

datatable(Espacios_verdes_Educacion)
mapview(Espacios_verdes_Educacion)

#En este mapa vemos las escuelas con, su distancia a parques y plazas, y la ubicación de pasajes#

mapview(escuelas_pasajes, zcol = "dist_EV") + mapview(pasajes, color = "brown") + mapview(parques_plazas, color ="green")
summary(escuelas_pasajes$dist_EV)
##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##     0.0   157.1   279.6   304.9   468.3   773.5

#En este mapa vemos las escuelas con las mayores distancias a parques y plazas#

mapview(escuelas_pasajes_lejos_EV, zcol = "dist_EV") + mapview(parques_plazas, color ="green") + mapview(pasajes, color = "brown") 
datatable(escuelas_pasajes_lejos_EV)