Centros de Integración Juvenil en la Ciudad de México
Eduardo Antonio Rivera Osorio y Humberto Jair Mendoza Martínez
11/12/2021
En primer lugar activamos las siguientes dos librerias:
library(ggmap)## Loading required package: ggplot2## Google's Terms of Service: https://cloud.google.com/maps-platform/terms/.## Please cite ggmap if you use it! See citation("ggmap") for details.library(plotly)##
## Attaching package: 'plotly'## The following object is masked from 'package:ggmap':
##
## wind## The following object is masked from 'package:ggplot2':
##
## last_plot## The following object is masked from 'package:stats':
##
## filter## The following object is masked from 'package:graphics':
##
## layoutDescribimos un poco el tema.
¿Qué son los Centros de Integración Juvenil (CIJ)?
Los CIJ son una asociación civil no lucrativa incorporada al Sector Salud fundada en 1969, con el objetivo de atender el consumo de drogas entre los jóvenes, que en aquel entonces era apenas un incipiente problema de salud pública.
La labor pionera y visionaria de un grupo organizado de la comunidad, encabezado por la señora Kena Moreno, que se preocupó por contrarrestar el abuso de drogas y sensibilizar a los diversos sectores sociales del país acerca de este problema, se concretó con la fundación del Centro de Atención para Jóvenes Drogadictos, que más tarde sumó esfuerzos de diversos organismos y personas, entre ellas autoridades federales, y de la comunidad en general.
CIJ cuenta con una experiencia de 50 años y las actividades que realiza están encaminadas a la prevención, el tratamiento, la rehabilitación y la investigación científica sobre el consumo de drogas en México. Con el transcurso de los años, la institución ha ampliado su estructura, programas y servicios, basada en un compromiso compartido con la sociedad y en un espíritu renovado día con día.
Imagen obtenida de Google
¿Comó está constituido?
Centros de Integración Juvenil, A.C., institución de asistencia social especializada en la atención integral de la farmacodependencia, es un organismo de participación estatal mayoritaria, que desde septiembre de 1982 tiene como cabeza de sector a la Secretaría de Salud, y está sujeto a la normatividad que emite el gobierno federal para las entidades paraestatales.
Desde el 2 de octubre de 1973, CIJ se encuentra constituido como asociación civil bajo el gobierno de una Asamblea General de Asociados y un Patronato Nacional, integrados por destacadas personalidades de la comunidad con gran interés en la labor institucional.
Misión y visión
Misión
Proporcionar servicios de prevención y tratamiento para atender el consumo de drogas, con criterios de equidad, igualdad y no discriminación, basado en el conocimiento científico y formando personal profesional especializado.
Visión
Otorgar servicios de calidad con equidad de género y no discriminación en prevención, tratamiento, investigación y capacitación en materia de adicciones a nivel nacional e internacional, en respuesta a las tendencias epidemiológicas existentes.
Objetivo
Contribuir en la reducción de la demanda de drogas con la participación de la comunidad a través de programas de prevención y tratamiento, con equidad de género, basados en la evidencia para mejorar la calidad de vida de la población.
Imagen obtenida de Google
¿Qué servicios ofrece?
1. Prevención
2. Tratamiento
3. Investigación
4. Enseñanza
Ubicación
Los CIJ se encuentran distribuidos a lo largo de la república, sin embargo en está ocasión hablaremos de los centros que se encuentran ubicados en la Ciudad de México.
Activamos las siguientes librerias:
Creamos un chunk para ingresar los datos:
CIJ_Alvaro_Obregon_Centro<-c(-99.2315632, 19.3670474)
CIJ_Alvaro_Obregon_Oriente<-c(-99.1927641, 19.3795940)
CIJ_Azcapotzalco<-c(-99.1992867, 19.4990724)
CIJ_Benito_Juarez<-c(-99.1648203, 19.3973083)
CIJ_Coyoacan<-c(-99.1555104, 19.3571057)
CIJ_Cuajimalpa<-c(-99.2928370, 19.3577360)
CIJ_Cuauhtemoc_Oriente<-c(-99.1277836, 19.4374114)
CIJ_Cuauhtemoc_Poniente<-c(-99.1799298,19.4139996)
CIJ_Gustavo_A_Madero_Aragon<-c(-99.0587267, 19.4648839)
CIJ_Gustavo_A_Madero_Norte<-c(-99.1505344, 19.4917746)
CIJ_Gustavo_A_Madero_Oriente<-c(-99.0723028, 19.4691600)
Unidad_de_Hospitalizacion_Iztapalapa<-c(-99.0506736, 19.3581388)
CIJ_Iztapalapa_Oriente<-c(-99.0658641, 19.3473208)
CIJ_Iztapalapa_Poniente<-c(-99.1150377, 19.3660244)
CIJ_Miguel_Hidalgo<-c(-99.1748537, 19.4343417)
CIJ_Tlalpan<-c(-99.1585792, 19.2851161)
CIJ_Venustiano_Carranza<-c(-99.0927841, 19.4384420)
CIJ_Xochimilco<-c(-99.0221622,19.2581990)
CIJ<-rbind(CIJ_Alvaro_Obregon_Centro,CIJ_Alvaro_Obregon_Oriente,CIJ_Azcapotzalco,CIJ_Benito_Juarez,CIJ_Coyoacan,CIJ_Cuajimalpa,CIJ_Cuauhtemoc_Oriente,CIJ_Cuauhtemoc_Poniente,CIJ_Gustavo_A_Madero_Aragon,CIJ_Gustavo_A_Madero_Norte,CIJ_Gustavo_A_Madero_Oriente,Unidad_de_Hospitalizacion_Iztapalapa,CIJ_Iztapalapa_Oriente,CIJ_Iztapalapa_Poniente,CIJ_Miguel_Hidalgo,CIJ_Tlalpan,CIJ_Venustiano_Carranza,CIJ_Xochimilco)
colnames(CIJ)<-c("Longitud","Latitud")
CIJ## Longitud Latitud
## CIJ_Alvaro_Obregon_Centro -99.23156 19.36705
## CIJ_Alvaro_Obregon_Oriente -99.19276 19.37959
## CIJ_Azcapotzalco -99.19929 19.49907
## CIJ_Benito_Juarez -99.16482 19.39731
## CIJ_Coyoacan -99.15551 19.35711
## CIJ_Cuajimalpa -99.29284 19.35774
## CIJ_Cuauhtemoc_Oriente -99.12778 19.43741
## CIJ_Cuauhtemoc_Poniente -99.17993 19.41400
## CIJ_Gustavo_A_Madero_Aragon -99.05873 19.46488
## CIJ_Gustavo_A_Madero_Norte -99.15053 19.49177
## CIJ_Gustavo_A_Madero_Oriente -99.07230 19.46916
## Unidad_de_Hospitalizacion_Iztapalapa -99.05067 19.35814
## CIJ_Iztapalapa_Oriente -99.06586 19.34732
## CIJ_Iztapalapa_Poniente -99.11504 19.36602
## CIJ_Miguel_Hidalgo -99.17485 19.43434
## CIJ_Tlalpan -99.15858 19.28512
## CIJ_Venustiano_Carranza -99.09278 19.43844
## CIJ_Xochimilco -99.02216 19.25820En la CDMX se encuentran ubicados 18 Centros de Integración Juvenil distribuidos en 12 alcadías capitalinas:
- Álvaro Obregón - Azcapotzalco - Benito Juaréz - Coyoacán - Cuajimalpa - Cuauhtémoc - Gustavo A. Madero - Iztapalapa - Miguel Hidalgo - Tlalpan - Venustiano Carranza - Xochimilco
Se incorporan los CIJ con sus respectivas direcciones:
Nombres<-c("CIJ Álvaro Obregón Centro","CIJ Álvaro Obregón Oriente","CIJ Azcapotzalco","CIJ Benito Juárez","CIJ Coyoacán","CIJ Cuajimalpa","CIJ Cuauhtémoc Oriente","CIJ Cuauhtémoc Poniente","CIJ Gustavo A. Madero Aragón", "CIJ Gustavo A. Madero Norte", "CIJ Gustavo A. Madero Oriente", "Unidad de Hospitalización Iztapalapa" , "CIJ Iztapalapa Oriente", "CIJ Iztapalapa Poniente", "CIJ Miguel Hidalgo", "CIJ Tlalpan", "CIJ Venustiano Carranza", "CIJ Xochimilco")
Direccion<-c("2ª. Cerrada de Puerto de Mazatlán No. 21, Col. Ampliación Piloto, Álvaro Obregón, C.P. 1298, Teléfono: 55 5276 4488", "Cerrada de Vicente Ambrosi s/n, entre Girardón y Périferico, Col. Sta. Ma. Nonoalco, Mixcoac, Álvaro Obregón, C.P. 1420, Teléfonos: 55 5611 0028 y 55 5598 4811", "Tierra Negra No. 334, Col. Tierra Nueva, Azcapotzalco, C.P. 2130,Teléfono: 55 5382 0553", "Mier y Pesado N° 141, Col. Del Valle, Benito Juárez, C.P. 3100, Teléfono: 55 5543 9267", "Berlín No.30, Col. Del Carmen, Coyoacán, C.P. 4100, Teléfonos: 55 5554 4985 y 55 5554 9331", "Coahuila No.62 (Entre Juaréz y Antonio Ancona), Col. Cuajimalpa, Cuajimalpa de Morelos, C.P. 5000, Teléfono: 55 5813 1631", "Callejón Girón S/N, Esq. Rodriguez Puebla, Altos Mercado Abelardo Rodríguez, Col. Centro, Cuauhtémoc, C.P. 6020, Teléfono: 55 5702 0732", "Vicente Suárez No.149, Col. Condesa, Cuauhtémoc, C.P. 6140, Teléfonos: 55 5286 3893 y 55 5286 3893", "Villa Tenochtitlán No.4, Col. Villa de Aragón, Gustavo A. Madero, C.P. 7570, Teléfono: 55 2158 4083", "Nte. 27 No. 7, Col. Nueva Vallejo II Secc, Gustavo A. Madero, C.P. 07750, Télefono: 55 5567 6523", "Av. 414, San Juan de Áragon VII Sección, Gustavo A. Madero, C.P. 7910, Télefono: 55 5796 1818", "Av. Antonio Diaz Soto y Gama S/N, Col. Unidad Habitacional Vicente Guerrero, Iztapalapa, C.P. 9200, Télefonos: 55 5690 4639 y 55 5692 8201", "Calz. Ermita Iztapalapa No. 2206, Col. Constitución de 1917, Iztapalapa, C.P. 9260, Télefono: 55 5613 3794", "Sur 111 - A No. 620, Col. Sector Popular, Iztapalapa, C.P. 9060, Télefonos: 55 5582 5160 y 55 5670 1189", "Bahia de Coquí No. 76, Col. Verónica Anzures, Miguel Hidalgo, C.P. 11300, Télefono: 55 5260 0719", "Calle 2 No. 10, Esq. Viaducto Tlalpan, Col. San Buenaventura, Tlalpan, C.P. 14629, Télefonos: 55 5485 9149 y 55 5485 9062", "Oriente 166 No. 402, Col. Moctezuma, 2da. Sección, Venustiano Carranza, C.P. 15530, Télefono: 55 5762 1399", "Calle Cuauhtémoc s/n esq. 1a Cerrada de Cuauhtémoc, Col. Quirino Mendoza, Tulyehualco, Xochimilco, C.P. 16710, Télefono: 55 1547 4975")
Tabla<-data.frame(Nombres,Direccion)
Tabla## Nombres
## 1 CIJ Álvaro Obregón Centro
## 2 CIJ Álvaro Obregón Oriente
## 3 CIJ Azcapotzalco
## 4 CIJ Benito Juárez
## 5 CIJ Coyoacán
## 6 CIJ Cuajimalpa
## 7 CIJ Cuauhtémoc Oriente
## 8 CIJ Cuauhtémoc Poniente
## 9 CIJ Gustavo A. Madero Aragón
## 10 CIJ Gustavo A. Madero Norte
## 11 CIJ Gustavo A. Madero Oriente
## 12 Unidad de Hospitalización Iztapalapa
## 13 CIJ Iztapalapa Oriente
## 14 CIJ Iztapalapa Poniente
## 15 CIJ Miguel Hidalgo
## 16 CIJ Tlalpan
## 17 CIJ Venustiano Carranza
## 18 CIJ Xochimilco
## Direccion
## 1 2ª. Cerrada de Puerto de Mazatlán No. 21, Col. Ampliación Piloto, Álvaro Obregón, C.P. 1298, Teléfono: 55 5276 4488
## 2 Cerrada de Vicente Ambrosi s/n, entre Girardón y Périferico, Col. Sta. Ma. Nonoalco, Mixcoac, Álvaro Obregón, C.P. 1420, Teléfonos: 55 5611 0028 y 55 5598 4811
## 3 Tierra Negra No. 334, Col. Tierra Nueva, Azcapotzalco, C.P. 2130,Teléfono: 55 5382 0553
## 4 Mier y Pesado N° 141, Col. Del Valle, Benito Juárez, C.P. 3100, Teléfono: 55 5543 9267
## 5 Berlín No.30, Col. Del Carmen, Coyoacán, C.P. 4100, Teléfonos: 55 5554 4985 y 55 5554 9331
## 6 Coahuila No.62 (Entre Juaréz y Antonio Ancona), Col. Cuajimalpa, Cuajimalpa de Morelos, C.P. 5000, Teléfono: 55 5813 1631
## 7 Callejón Girón S/N, Esq. Rodriguez Puebla, Altos Mercado Abelardo Rodríguez, Col. Centro, Cuauhtémoc, C.P. 6020, Teléfono: 55 5702 0732
## 8 Vicente Suárez No.149, Col. Condesa, Cuauhtémoc, C.P. 6140, Teléfonos: 55 5286 3893 y 55 5286 3893
## 9 Villa Tenochtitlán No.4, Col. Villa de Aragón, Gustavo A. Madero, C.P. 7570, Teléfono: 55 2158 4083
## 10 Nte. 27 No. 7, Col. Nueva Vallejo II Secc, Gustavo A. Madero, C.P. 07750, Télefono: 55 5567 6523
## 11 Av. 414, San Juan de Áragon VII Sección, Gustavo A. Madero, C.P. 7910, Télefono: 55 5796 1818
## 12 Av. Antonio Diaz Soto y Gama S/N, Col. Unidad Habitacional Vicente Guerrero, Iztapalapa, C.P. 9200, Télefonos: 55 5690 4639 y 55 5692 8201
## 13 Calz. Ermita Iztapalapa No. 2206, Col. Constitución de 1917, Iztapalapa, C.P. 9260, Télefono: 55 5613 3794
## 14 Sur 111 - A No. 620, Col. Sector Popular, Iztapalapa, C.P. 9060, Télefonos: 55 5582 5160 y 55 5670 1189
## 15 Bahia de Coquí No. 76, Col. Verónica Anzures, Miguel Hidalgo, C.P. 11300, Télefono: 55 5260 0719
## 16 Calle 2 No. 10, Esq. Viaducto Tlalpan, Col. San Buenaventura, Tlalpan, C.P. 14629, Télefonos: 55 5485 9149 y 55 5485 9062
## 17 Oriente 166 No. 402, Col. Moctezuma, 2da. Sección, Venustiano Carranza, C.P. 15530, Télefono: 55 5762 1399
## 18 Calle Cuauhtémoc s/n esq. 1a Cerrada de Cuauhtémoc, Col. Quirino Mendoza, Tulyehualco, Xochimilco, C.P. 16710, Télefono: 55 1547 4975datosf<-data.frame(CIJ)
datosf## Longitud Latitud
## CIJ_Alvaro_Obregon_Centro -99.23156 19.36705
## CIJ_Alvaro_Obregon_Oriente -99.19276 19.37959
## CIJ_Azcapotzalco -99.19929 19.49907
## CIJ_Benito_Juarez -99.16482 19.39731
## CIJ_Coyoacan -99.15551 19.35711
## CIJ_Cuajimalpa -99.29284 19.35774
## CIJ_Cuauhtemoc_Oriente -99.12778 19.43741
## CIJ_Cuauhtemoc_Poniente -99.17993 19.41400
## CIJ_Gustavo_A_Madero_Aragon -99.05873 19.46488
## CIJ_Gustavo_A_Madero_Norte -99.15053 19.49177
## CIJ_Gustavo_A_Madero_Oriente -99.07230 19.46916
## Unidad_de_Hospitalizacion_Iztapalapa -99.05067 19.35814
## CIJ_Iztapalapa_Oriente -99.06586 19.34732
## CIJ_Iztapalapa_Poniente -99.11504 19.36602
## CIJ_Miguel_Hidalgo -99.17485 19.43434
## CIJ_Tlalpan -99.15858 19.28512
## CIJ_Venustiano_Carranza -99.09278 19.43844
## CIJ_Xochimilco -99.02216 19.25820Se crea un mapa de los CIJ en CDMX:
qmplot(Longitud, Latitud, data=datosf, color=I(rainbow(18)))## Using zoom = 12...## Source : http://tile.stamen.com/terrain/12/918/1821.png## Source : http://tile.stamen.com/terrain/12/919/1821.png## Source : http://tile.stamen.com/terrain/12/920/1821.png## Source : http://tile.stamen.com/terrain/12/921/1821.png## Source : http://tile.stamen.com/terrain/12/918/1822.png## Source : http://tile.stamen.com/terrain/12/919/1822.png## Source : http://tile.stamen.com/terrain/12/920/1822.png## Source : http://tile.stamen.com/terrain/12/921/1822.png## Source : http://tile.stamen.com/terrain/12/918/1823.png## Source : http://tile.stamen.com/terrain/12/919/1823.png## Source : http://tile.stamen.com/terrain/12/920/1823.png## Source : http://tile.stamen.com/terrain/12/921/1823.png## Source : http://tile.stamen.com/terrain/12/918/1824.png## Source : http://tile.stamen.com/terrain/12/919/1824.png## Source : http://tile.stamen.com/terrain/12/920/1824.png## Source : http://tile.stamen.com/terrain/12/921/1824.png
Se activan las librerias:
library(leaflet)
library(leaflet.extras)Se ingresa la información para la creación de un mapa interactivo:
### Registramos la información de los lugares
lugar1 <- c(Nombre = "CIJ Álvaro Obregón Centro", Alcaldía ="Álvaro Obregón", longitud = -99.23156, latitud = 19.36705)
lugar2 <- c(Nombre = "CIJ Álvaro Obregón Oriente", Alcaldía ="Álvaro Obregón", longitud = -99.19276, latitud = 19.37959)
lugar3 <- c(Nombre = "CIJ Azcapotzalco", Alcaldía ="Azcapotzalco", longitud = -99.19929, latitud = 19.49907)
lugar4 <- c(Nombre = "CIJ Benito Juaréz", Alcaldía ="Benito Juaréz", longitud = -99.16482, latitud = 19.39731)
lugar5 <- c(Nombre = "CIJ Coyoacán", Alcadía ="Coyoacán", longitud = -99.15551, latitud = 19.35711)
lugar6 <- c(Nombre = "CIJ Cuajimalpa", Alcaldía ="Cuajimalpa", longitud = -99.29284, latitud = 19.35774)
lugar7 <- c(Nombre = "CIJ Cuauhtémoc Oriente", Alcaldía ="Cuauhtémoc", longitud = -99.12778, latitud = 19.43741)
lugar8 <- c(Nombre = "CIJ Cuauhtémoc Poniente", Alcaldía ="Cuauhtémoc", longitud = -99.17993, latitud = 19.41400)
lugar9 <- c(Nombre = "CIJ Gustavo A. Madero Aragon", Alcaldía ="Gustavo A. Madero", longitud = -99.05873, latitud = 19.46488)
lugar10 <- c(Nombre = "CIJ Gustavo A. Madero Norte", Alcaldía ="Gustavo A. Madero", longitud = -99.15053, latitud = 19.49177)
lugar11 <- c(Nombre = "CIJ Gustavo A. Madero Oriente", Alcadía ="Gustavo A. Madero", longitud = -99.07230, latitud = 19.46916)
lugar12 <- c(Nombre = "Unidad de Hospitalizacion Iztapalapa", Alcaldía ="Iztapalapa", longitud = -99.05067, latitud = 19.35814)
lugar13 <- c(Nombre = "CIJ Iztapalapa Oriente", Alcaldía ="Iztapalapa", longitud = -99.06586, latitud = 19.34732)
lugar14 <- c(Nombre = "CIJ Iztapalapa Poniente", Alcaldía ="Iztapalapa", longitud = -99.11504, latitud = 19.36602)
lugar15 <- c(Nombre = "CIJ Miguel Hidalgo", Alcaldía ="Miguel Hidalgo", longitud = -99.17485, latitud = 19.43434)
lugar16 <- c(Nombre = "CIJ Tlalpan", Alcaldía ="Tlalpan", longitud = -99.15858, latitud = 19.28512)
lugar17 <- c(Nombre = "CIJ Venustiano Carranza", Alcadía ="Venustiano Carranza", longitud = -99.09278, latitud = 19.43844)
lugar18 <- c(Nombre = "CIJ Xochimilco", Alcaldía ="Xochimilco", longitud = -99.02216, latitud = 19.25820)
### Creamos una tabla de datos con la información de los lugares
lugares <- data.frame(rbind(lugar1, lugar2, lugar3, lugar4, lugar5, lugar6, lugar7, lugar8, lugar9, lugar10, lugar11, lugar12, lugar13, lugar14, lugar15, lugar16, lugar17, lugar18))
### Nos aseguramos de que la latitud y longitud sean números
lugares$longitud <- as.numeric(lugares$longitud)
lugares$latitud <- as.numeric(lugares$latitud)
### Creamos el mapa
mapa <- leaflet(lugares) %>% setView(lng = -99.3, lat = 19.4, zoom = 10) %>% addTiles() %>% addMarkers(~longitud, ~latitud, popup = paste(sep = "<br/>", "Nombre:", lugares$Nombre, "Alcaldía:", lugares$GAlcaldía))
### Agregamos el botón de reset y la barra de herramientas de dibujo al mapa
mapa %>% addResetMapButton() %>% addDrawToolbar(editOptions = editToolbarOptions(selectedPathOptions = selectedPathOptions())) ### Imprimimos el mapa
mapaCONTACTO
CIJ Contigo Ciudad de México 52 12 12 12 (www.gob.mx/salud/cij) (www.cij.org.mx)