Proyecto Final
César Campos González
20/12/2020
Ubicacion de los centros LUNAS en la ciudad de México
1. Limpieza, ante todo.
En primera instancia siempre recomiendo un entorno limpio en R, con el fin de prevenir posibles errores.
rm(list=ls())2. Librerías.
Tendremos que cargar las librerías que utilizaremos, en este caso haremos uso de ggplot2 herramienta útil para la creación de Graficas más estilizadas, así como plotly para que estas graficas puedan ser interactivas. Por último, cargaremos ggmap, librería necesaria para la generación de mapas.
library(plotly)
library(ggmap) 3. Datos.
Se necesitarán datos con los cuales trabajar, yo utilizare los proporcionados por el Gobierno de la Ciudad de México. Para efectos prácticos yo hare uso de la la ubicación de las LUNAS, que son los servicios de atención a la violencia de género durante la contingencia sanitaria.
4. Importación de datos.
La importación de datos se puede llevar a cabo de 2 maneras:
4.1. Directamente de la página.
La primera es que directamente de la página de internet con la función read.csv seguido del link de internet donde se ubican los datos.
Por experiencia personal hay veces que se tiene que probar varias veces para que funcione, la razón detrás de esto la ignoro.
datos1<-read.csv('https://datos.cdmx.gob.mx/explore/dataset/lunas/download/?format=csv&timezone=America/Mexico_City&lang=es&use_labels_for_header=true&csv_separator=%2C')4.2. Descargándolos.
La segunda forma es descargar la base de datos en la misma carpeta que se esta trabajando.
datos<-read.csv('lunas.csv')Una vez que tenemos la tabla podemos observar que hay columnas que nos resultan inútiles para el presente ejemplo como los son la No.2 (responsable), No.3 (Correo Electrónico), No.4 (Dirección), No.5 (Teléfono 1), No.6 (Teléfono 2), No.7 (Servicios), No.8 (Horarios)
datos## ï..Alcaldia Responsable
## 1 AZCAPOTZALCO Sara Moreno González
## 2 GUSTAVO A. MADERO Ma. Enriqueta Elvia López MartÃnez
## 3 IZTACALCO MarÃa de Lourdes RodrÃguez Rosas
## 4 MILPA ALTA MarÃa de Lourdes Valdés Murillo
## 5 ALVARO OBREGON MarÃa de Lourdes Sánchez Islas
## 6 BENITO JUAREZ Cecilia del Carmen Olivos Santoyo
## 7 BENITO JUAREZ Cecilia del Carmen Olivos Santoyo
## 8 GUSTAVO A. MADERO Ma. Enriqueta Elvia López MartÃnez
## 9 IZTACALCO MarÃa de Lourdes RodrÃguez Rosas
## 10 IZTAPALAPA Alma Erika Lerma MartÃnez
## 11 MAGDALENA CONTRERAS Mariana Matus Ruiz
## 12 TLAHUAC Rita Imelda Fernández González
## 13 TLALPAN Norma Raquel Moreno RÃos
## 14 XOCHIMILCO Patricia Silva Rosales
## 15 ALVARO OBREGON MarÃa de Lourdes Sánchez Islas
## 16 COYOACAN Nelly Gabriela Orozco Reyes
## 17 COYOACAN Nelly Gabriela Orozco Reyes
## 18 CUAJIMALPA MarÃa Fernanda Peña Navarrete
## 19 CUAJIMALPA MarÃa Fernanda Peña Navarrete
## 20 CUAUHTEMOC Concepción Cueto Reyes
## 21 CUAUHTEMOC Concepción Cueto Reyes
## 22 MIGUEL HIDALGO Gloria Belmont Hernández
## 23 MIGUEL HIDALGO Gloria Belmont Hernández
## 24 MILPA ALTA MarÃa de Lourdes Valdés Murillo
## 25 TLALPAN Norma Raquel Moreno RÃos
## 26 VENUSTIANO CARRANZA Claudia Romero Hernández
## 27 XOCHIMILCO Patricia Silva Rosales
## Correo.electronico
## 1 luna.azcapotzalco@gmail.com
## 2 luna.gam19@gmail.com
## 3 luna.iztacalco@gmail.com
## 4 luna.milpaalta@gmail.com
## 5 luna.alvaroobregon@gmail.com
## 6 luna.bj@gmail.com
## 7 luna.bj@gmail.com
## 8 luna.gam19@gmail.com
## 9 luna.iztacalco@gmail.com
## 10 lunaeniztapalapa@gmail.com
## 11 luna.magdalenacontreras@gmail.com
## 12 luna.tlahuac1@gmail.com
## 13 luna.tlalpan2019@gmail.com
## 14 luna.xochimilco@gmail.com
## 15 luna.alvaroobregon@gmail.com
## 16 luna.coyoacan@gmail.com
## 17 luna.coyoacan@gmail.com
## 18 luna.cuajimalpa@gmail.com
## 19 luna.cuajimalpa@gmail.com
## 20 lunas.cuauhtemoc@gmail.com
## 21 lunas.cuauhtemoc@gmail.com
## 22 luna.miguelhidalgo@gmail.com
## 23 luna.miguelhidalgo@gmail.com
## 24 luna.milpaalta@gmail.com
## 25 luna.tlalpan2019@gmail.com
## 26 lunavcarranza@gmail.com
## 27 luna.xochimilco@gmail.com
## Dirección
## 1 Av. 22 de febrero No. 421, Col. Barrio San Marcos, Alcaldia Azcapotzalco, C.P. 02260
## 2 Calle Oriente 95 y Norte 50, Col La Joyita, C.P. 07860.
## 3 Av. Santiago s/n esq. Playa Rosarito, Col. Barrio Santiago (Dentro del centro social â\200œJosefina DÃazâ\200\235), AlcaldÃa Iztacalaco, C.P. 08800.
## 4 Av. Puebla 250, s/n, esq. Av. Nuevo León, Col. Villa Milpa Alta (interior de la Casa de Cultura CALMECAC), C.P. 12000.
## 5 Prolongación Calle 4, Col. Tolteca, dentro del parque de la juventud, Alcaldia Ã\201lvaro Obregón, C.P. 01150.
## 6 Eje Central Lázaro Cárdenas No. 695, 1er piso, Col. Narvarte, Alcaldia Benito Juárez, C.P. 03020
## 7 Eje 5 Sur Ramos Millán No. 95, Col. Niños Héroes de Chapultepec, Alcaldia Benito Juárez, C.P. 03440.
## 8 Av. Fray Juan de Zumárraga s/n, Col. Aragón la Villa, AlcaldÃa Gustavo A. Madero, C.P. 07050.
## 9 Av. Sur 8, s/n, casi esp. con Av. Rojo Gómez (atrás del deportivo Leandro Valle), Col. AgrÃcola Oriental, C.P. 08500
## 10 Centro Social Villa Estrella, Módulo 4, Camino Cerro de la Estrella s/n, Col. El Santuario Aculco, C.P. 09009.
## 11 Centro Social Atacaxco: Calle Piaztic s/n (frente a secundaria No. 262), Col. San José Atacaxco, AlcaldÃa Iztapalapa, C.P. 10378
## 12 Margarita No. 5 entre Geranio y Jacaranda Col. Quiahuatla, C.P. 13090
## 13 Camino a Santa Ursula # 24, esq. Textitlán, Col. Santa Ursula Xitla, Cp. 14420.
## 14 Francisco I. Madero No. 11, Col. Barrio el Rosario C.P. 16070.
## 15 Calle 22 y Av. Hidalgo esq. Calle 17, Col. Preconcreto, C.P. 01400
## 16 Leopoldo Salazar s/n, casi esq. Carlos González Peña, Col. Copilco el Alto, Alcaldia Coyoacan, C.P. 04360
## 17 Av. Nezahualcóyotl, esq. Yaquis, Col. Ajusco Huayamilpas(interior del Parque Ecológico Huayamilpas), C.P. 04390
## 18 Prolongación 16 de septiembre, casi esq. Av. Veracruz, Col. El contadero, Alcaldia Cuajimalpa de Morelos, C.P. 05000
## 19 José MarÃa Castorena #187 Col. Cuajimalpa, AlcaldÃa Cuajimalpa de Morelos, C.P. 05000.
## 20 Aldama, Violeta y Mina, sótano edificio de la AlcaldÃa, Col. Buenavista, AlcaldÃa Cuauhtémoc, C.P. 06357
## 21 Calle RÃo Danubio S/N, Altos del Mercado Cuauhtémoc, Col. Cuauhtémoc, C.P. 06500
## 22 Av. Parque Lira No. 128, Col. Ampliación Daniel Garza, AlcaldÃa Miguel Hidalgo, C.P. 11800
## 23 Av. Observatorio s/n esq. General José MarÃa Mendevil, Colonia Daniel Garza, AlcaldÃa Miguel Hidalgo, C.P. 11830.
## 24 Calle Yucatán s/s, esq. Calle Constitución, Col. Centro Villa Milpa Alta (arriba del mercado Benito Juárez), AlcaldÃa Milpa Alta, C.P. 12000.
## 25 Carretera Federal a Cuernavaca No. 2, Col. La Joya, AlcaldÃa Tlalpan, C.P. 14090
## 26 Prolong. Lucas Alaman No. 11, 1er, Piso, Col. Del Parque, AlcaldÃa Venustiano Carranza, C.P. 15960
## 27 Calle Dalia s/n, Plaza San Cristóbal, Col. Barrio San Cristóbal, Cp. 16080
## Telefono.1 Telefono.2 Geolocalizacion.1 Geolocalizacion.2
## 1 5353-9762 53536470 -99.18175 19.48746
## 2 55370535 -99.11765 19.46409
## 3 9180-0983 -99.12542 19.39047
## 4 58441921 -99.03107 19.19810
## 5 5276-68 87 5276-68 89 -99.19805 19.39120
## 6 9180-0495 -99.14676 19.39088
## 7 55904817 -99.14359 19.38358
## 8 57814339 -99.11708 19.48330
## 9 22354614 -99.07343 19.40021
## 10 5685-2546 26361367 -99.09198 19.35166
## 11 5595-9247 56812734 -99.24857 19.31530
## 12 2161-6074 -99.00421 19.26265
## 13 55139835 -99.17833 19.28087
## 14 5676-9612 -99.10524 19.26181
## 15 55932716 -99.21146 19.37448
## 16 56595587 -99.17742 19.33277
## 17 54217331 -99.15035 19.32311
## 18 2163-1225 5812-1414 -99.30307 19.34825
## 19 58122521 -99.29486 19.35645
## 20 2452-3369 -99.15199 19.44123
## 21 55102131 ext. 1070 -99.13703 19.42105
## 22 5086-4267 -99.18917 19.40655
## 23 26143582 -99.19922 19.40267
## 24 5844-6148 -99.02145 19.19112
## 25 55732196 -99.16736 19.27802
## 26 5764-3226 -99.11896 19.41878
## 27 56758270 -99.09913 19.26101
## Servicios
## 1 AsesorÃas legales y psicológicas y, en caso necesario, canalización a otras dependencias para una atención correspondiente especializada.\nOrientación sobre salud sexual y reproductiva, bienestar fÃsico y emocional, derechos económicos de las mujeres, equidad, y democracia en las familias, entre otros.\nAsesorÃas para el desarrollo económico
## 2 AsesorÃas legales y psicológicas y, en caso necesario, canalización a otras dependencias para una atención correspondiente especializada.\nOrientación sobre salud sexual y reproductiva, bienestar fÃsico y emocional, derechos económicos de las mujeres, equidad, y democracia en las familias, entre otros.\nAsesorÃas para el desarrollo económico
## 3 AsesorÃas legales y psicológicas y, en caso necesario, canalización a otras dependencias para una atención correspondiente especializada.\nOrientación sobre salud sexual y reproductiva, bienestar fÃsico y emocional, derechos económicos de las mujeres, equidad, y democracia en las familias, entre otros.\nAsesorÃas para el desarrollo económico
## 4 AsesorÃas legales y psicológicas y, en caso necesario, canalización a otras dependencias para una atención correspondiente especializada.\nOrientación sobre salud sexual y reproductiva, bienestar fÃsico y emocional, derechos económicos de las mujeres, equidad, y democracia en las familias, entre otros.\nAsesorÃas para el desarrollo económico
## 5 AsesorÃas legales y psicológicas y, en caso necesario, canalización a otras dependencias para una atención correspondiente especializada.\nOrientación sobre salud sexual y reproductiva, bienestar fÃsico y emocional, derechos económicos de las mujeres, equidad, y democracia en las familias, entre otros.\nAsesorÃas para el desarrollo económico
## 6 AsesorÃas legales y psicológicas y, en caso necesario, canalización a otras dependencias para una atención correspondiente especializada.\nOrientación sobre salud sexual y reproductiva, bienestar fÃsico y emocional, derechos económicos de las mujeres, equidad, y democracia en las familias, entre otros.\nAsesorÃas para el desarrollo económico
## 7 AsesorÃas legales y psicológicas y, en caso necesario, canalización a otras dependencias para una atención correspondiente especializada.\nOrientación sobre salud sexual y reproductiva, bienestar fÃsico y emocional, derechos económicos de las mujeres, equidad, y democracia en las familias, entre otros.\nAsesorÃas para el desarrollo económico
## 8 AsesorÃas legales y psicológicas y, en caso necesario, canalización a otras dependencias para una atención correspondiente especializada.\nOrientación sobre salud sexual y reproductiva, bienestar fÃsico y emocional, derechos económicos de las mujeres, equidad, y democracia en las familias, entre otros.\nAsesorÃas para el desarrollo económico
## 9 AsesorÃas legales y psicológicas y, en caso necesario, canalización a otras dependencias para una atención correspondiente especializada.\nOrientación sobre salud sexual y reproductiva, bienestar fÃsico y emocional, derechos económicos de las mujeres, equidad, y democracia en las familias, entre otros.\nAsesorÃas para el desarrollo económico
## 10 AsesorÃas legales y psicológicas y, en caso necesario, canalización a otras dependencias para una atención correspondiente especializada.\nOrientación sobre salud sexual y reproductiva, bienestar fÃsico y emocional, derechos económicos de las mujeres, equidad, y democracia en las familias, entre otros.\nAsesorÃas para el desarrollo económico
## 11 AsesorÃas legales y psicológicas y, en caso necesario, canalización a otras dependencias para una atención correspondiente especializada.\nOrientación sobre salud sexual y reproductiva, bienestar fÃsico y emocional, derechos económicos de las mujeres, equidad, y democracia en las familias, entre otros.\nAsesorÃas para el desarrollo económico
## 12 AsesorÃas legales y psicológicas y, en caso necesario, canalización a otras dependencias para una atención correspondiente especializada.\nOrientación sobre salud sexual y reproductiva, bienestar fÃsico y emocional, derechos económicos de las mujeres, equidad, y democracia en las familias, entre otros.\nAsesorÃas para el desarrollo económico
## 13 AsesorÃas legales y psicológicas y, en caso necesario, canalización a otras dependencias para una atención correspondiente especializada.\nOrientación sobre salud sexual y reproductiva, bienestar fÃsico y emocional, derechos económicos de las mujeres, equidad, y democracia en las familias, entre otros.\nAsesorÃas para el desarrollo económico
## 14 AsesorÃas legales y psicológicas y, en caso necesario, canalización a otras dependencias para una atención correspondiente especializada.\nOrientación sobre salud sexual y reproductiva, bienestar fÃsico y emocional, derechos económicos de las mujeres, equidad, y democracia en las familias, entre otros.\nAsesorÃas para el desarrollo económico
## 15 AsesorÃas legales y psicológicas y, en caso necesario, canalización a otras dependencias para una atención correspondiente especializada.\nOrientación sobre salud sexual y reproductiva, bienestar fÃsico y emocional, derechos económicos de las mujeres, equidad, y democracia en las familias, entre otros.\nAsesorÃas para el desarrollo económico
## 16 AsesorÃas legales y psicológicas y, en caso necesario, canalización a otras dependencias para una atención correspondiente especializada.\nOrientación sobre salud sexual y reproductiva, bienestar fÃsico y emocional, derechos económicos de las mujeres, equidad, y democracia en las familias, entre otros.\nAsesorÃas para el desarrollo económico
## 17 AsesorÃas legales y psicológicas y, en caso necesario, canalización a otras dependencias para una atención correspondiente especializada.\nOrientación sobre salud sexual y reproductiva, bienestar fÃsico y emocional, derechos económicos de las mujeres, equidad, y democracia en las familias, entre otros.\nAsesorÃas para el desarrollo económico
## 18 AsesorÃas legales y psicológicas y, en caso necesario, canalización a otras dependencias para una atención correspondiente especializada.\nOrientación sobre salud sexual y reproductiva, bienestar fÃsico y emocional, derechos económicos de las mujeres, equidad, y democracia en las familias, entre otros.\nAsesorÃas para el desarrollo económico
## 19 AsesorÃas legales y psicológicas y, en caso necesario, canalización a otras dependencias para una atención correspondiente especializada.\nOrientación sobre salud sexual y reproductiva, bienestar fÃsico y emocional, derechos económicos de las mujeres, equidad, y democracia en las familias, entre otros.\nAsesorÃas para el desarrollo económico
## 20 AsesorÃas legales y psicológicas y, en caso necesario, canalización a otras dependencias para una atención correspondiente especializada.\nOrientación sobre salud sexual y reproductiva, bienestar fÃsico y emocional, derechos económicos de las mujeres, equidad, y democracia en las familias, entre otros.\nAsesorÃas para el desarrollo económico
## 21 AsesorÃas legales y psicológicas y, en caso necesario, canalización a otras dependencias para una atención correspondiente especializada.\nOrientación sobre salud sexual y reproductiva, bienestar fÃsico y emocional, derechos económicos de las mujeres, equidad, y democracia en las familias, entre otros.\nAsesorÃas para el desarrollo económico
## 22 AsesorÃas legales y psicológicas y, en caso necesario, canalización a otras dependencias para una atención correspondiente especializada.\nOrientación sobre salud sexual y reproductiva, bienestar fÃsico y emocional, derechos económicos de las mujeres, equidad, y democracia en las familias, entre otros.\nAsesorÃas para el desarrollo económico
## 23 AsesorÃas legales y psicológicas y, en caso necesario, canalización a otras dependencias para una atención correspondiente especializada.\nOrientación sobre salud sexual y reproductiva, bienestar fÃsico y emocional, derechos económicos de las mujeres, equidad, y democracia en las familias, entre otros.\nAsesorÃas para el desarrollo económico
## 24 AsesorÃas legales y psicológicas y, en caso necesario, canalización a otras dependencias para una atención correspondiente especializada.\nOrientación sobre salud sexual y reproductiva, bienestar fÃsico y emocional, derechos económicos de las mujeres, equidad, y democracia en las familias, entre otros.\nAsesorÃas para el desarrollo económico
## 25 AsesorÃas legales y psicológicas y, en caso necesario, canalización a otras dependencias para una atención correspondiente especializada.\nOrientación sobre salud sexual y reproductiva, bienestar fÃsico y emocional, derechos económicos de las mujeres, equidad, y democracia en las familias, entre otros.\nAsesorÃas para el desarrollo económico
## 26 AsesorÃas legales y psicológicas y, en caso necesario, canalización a otras dependencias para una atención correspondiente especializada.\nOrientación sobre salud sexual y reproductiva, bienestar fÃsico y emocional, derechos económicos de las mujeres, equidad, y democracia en las familias, entre otros.\nAsesorÃas para el desarrollo económico
## 27 AsesorÃas legales y psicológicas y, en caso necesario, canalización a otras dependencias para una atención correspondiente especializada.\nOrientación sobre salud sexual y reproductiva, bienestar fÃsico y emocional, derechos económicos de las mujeres, equidad, y democracia en las familias, entre otros.\nAsesorÃas para el desarrollo económico
## Horarios
## 1 Lunes a jueves de 09:00 a 17:00 horas y viernes de 09:00 a 15:00 horas
## 2 Lunes a jueves de 09:00 a 17:00 horas y viernes de 09:00 a 15:00 horas
## 3 Lunes a jueves de 09:00 a 17:00 horas y viernes de 09:00 a 15:00 horas
## 4 Lunes a jueves de 09:00 a 17:00 horas y viernes de 09:00 a 15:00 horas
## 5 Lunes a jueves de 09:00 a 17:00 horas y viernes de 09:00 a 15:00 horas
## 6 Lunes a jueves de 09:00 a 17:00 horas y viernes de 09:00 a 15:00 horas
## 7 Lunes a jueves de 09:00 a 17:00 horas y viernes de 09:00 a 15:00 horas
## 8 Lunes a jueves de 09:00 a 17:00 horas y viernes de 09:00 a 15:00 horas
## 9 Lunes a jueves de 09:00 a 17:00 horas y viernes de 09:00 a 15:00 horas
## 10 Lunes a jueves de 09:00 a 17:00 horas y viernes de 09:00 a 15:00 horas
## 11 Lunes a jueves de 09:00 a 17:00 horas y viernes de 09:00 a 15:00 horas
## 12 Lunes a jueves de 09:00 a 17:00 horas y viernes de 09:00 a 15:00 horas
## 13 Lunes a jueves de 09:00 a 17:00 horas y viernes de 09:00 a 15:00 horas
## 14 Lunes a jueves de 09:00 a 17:00 horas y viernes de 09:00 a 15:00 horas
## 15 Lunes a jueves de 09:00 a 17:00 horas y viernes de 09:00 a 15:00 horas
## 16 Lunes a jueves de 09:00 a 17:00 horas y viernes de 09:00 a 15:00 horas
## 17 Lunes a jueves de 09:00 a 17:00 horas y viernes de 09:00 a 15:00 horas
## 18 Lunes a jueves de 09:00 a 17:00 horas y viernes de 09:00 a 15:00 horas
## 19 Lunes a jueves de 09:00 a 17:00 horas y viernes de 09:00 a 15:00 horas
## 20 Lunes a jueves de 09:00 a 17:00 horas y viernes de 09:00 a 15:00 horas
## 21 Lunes a jueves de 09:00 a 17:00 horas y viernes de 09:00 a 15:00 horas
## 22 Lunes a jueves de 09:00 a 17:00 horas y viernes de 09:00 a 15:00 horas
## 23 Lunes a jueves de 09:00 a 17:00 horas y viernes de 09:00 a 15:00 horas
## 24 Lunes a jueves de 09:00 a 17:00 horas y viernes de 09:00 a 15:00 horas
## 25 Lunes a jueves de 09:00 a 17:00 horas y viernes de 09:00 a 15:00 horas
## 26 Lunes a jueves de 09:00 a 17:00 horas y viernes de 09:00 a 15:00 horas
## 27 Lunes a jueves de 09:00 a 17:00 horas y viernes de 09:00 a 15:00 horasPor lo tanto solo nos interesa la No.1 (ALcaldia), No.7 (Geolocalizacion 1) y la No.8 (Geolocalizacion 2)
5. Filtrado.
Para poder limpiar la base de datos debemos tomar en cuenta que R considera como [Líneas, Columnas] y cuando cualquiera de estos tiene más de un valor se debe agrupar bajo el comando de concatenar que se escribe: c(). Bajo esta premisa nosotros queremos mantener todas las líneas, pero solo la columna 1 y 7 por lo tanto nuestro comando quedaría de la siguiente manera:
datosfiltrados<-datos[,c(1,7,8)]Se puede observar cómo solo quedan los datos que nosotros queremos:
datosfiltrados## ï..Alcaldia Geolocalizacion.1 Geolocalizacion.2
## 1 AZCAPOTZALCO -99.18175 19.48746
## 2 GUSTAVO A. MADERO -99.11765 19.46409
## 3 IZTACALCO -99.12542 19.39047
## 4 MILPA ALTA -99.03107 19.19810
## 5 ALVARO OBREGON -99.19805 19.39120
## 6 BENITO JUAREZ -99.14676 19.39088
## 7 BENITO JUAREZ -99.14359 19.38358
## 8 GUSTAVO A. MADERO -99.11708 19.48330
## 9 IZTACALCO -99.07343 19.40021
## 10 IZTAPALAPA -99.09198 19.35166
## 11 MAGDALENA CONTRERAS -99.24857 19.31530
## 12 TLAHUAC -99.00421 19.26265
## 13 TLALPAN -99.17833 19.28087
## 14 XOCHIMILCO -99.10524 19.26181
## 15 ALVARO OBREGON -99.21146 19.37448
## 16 COYOACAN -99.17742 19.33277
## 17 COYOACAN -99.15035 19.32311
## 18 CUAJIMALPA -99.30307 19.34825
## 19 CUAJIMALPA -99.29486 19.35645
## 20 CUAUHTEMOC -99.15199 19.44123
## 21 CUAUHTEMOC -99.13703 19.42105
## 22 MIGUEL HIDALGO -99.18917 19.40655
## 23 MIGUEL HIDALGO -99.19922 19.40267
## 24 MILPA ALTA -99.02145 19.19112
## 25 TLALPAN -99.16736 19.27802
## 26 VENUSTIANO CARRANZA -99.11896 19.41878
## 27 XOCHIMILCO -99.09913 19.261016. Nombres de las columnas.
Procedemos a cambiar de nombre tanto para Geolocalizacion.1 como para Geolocalizacion.2 por los correspondientes Longitud y Latitud para poder representarlos en el mapa. Esto se pude hacer con el comando colnames()
colnames(datosfiltrados)<-c("Alcaldia","Longitud","Latitud")
datosfiltrados## Alcaldia Longitud Latitud
## 1 AZCAPOTZALCO -99.18175 19.48746
## 2 GUSTAVO A. MADERO -99.11765 19.46409
## 3 IZTACALCO -99.12542 19.39047
## 4 MILPA ALTA -99.03107 19.19810
## 5 ALVARO OBREGON -99.19805 19.39120
## 6 BENITO JUAREZ -99.14676 19.39088
## 7 BENITO JUAREZ -99.14359 19.38358
## 8 GUSTAVO A. MADERO -99.11708 19.48330
## 9 IZTACALCO -99.07343 19.40021
## 10 IZTAPALAPA -99.09198 19.35166
## 11 MAGDALENA CONTRERAS -99.24857 19.31530
## 12 TLAHUAC -99.00421 19.26265
## 13 TLALPAN -99.17833 19.28087
## 14 XOCHIMILCO -99.10524 19.26181
## 15 ALVARO OBREGON -99.21146 19.37448
## 16 COYOACAN -99.17742 19.33277
## 17 COYOACAN -99.15035 19.32311
## 18 CUAJIMALPA -99.30307 19.34825
## 19 CUAJIMALPA -99.29486 19.35645
## 20 CUAUHTEMOC -99.15199 19.44123
## 21 CUAUHTEMOC -99.13703 19.42105
## 22 MIGUEL HIDALGO -99.18917 19.40655
## 23 MIGUEL HIDALGO -99.19922 19.40267
## 24 MILPA ALTA -99.02145 19.19112
## 25 TLALPAN -99.16736 19.27802
## 26 VENUSTIANO CARRANZA -99.11896 19.41878
## 27 XOCHIMILCO -99.09913 19.261017. Transformación.
Para la creación del mapa como de las gráficas es necesario transformar nuestra tabla en un data.frame que se hace de la siguiente manera:
datosf<-data.frame(datosfiltrados)
datosf## Alcaldia Longitud Latitud
## 1 AZCAPOTZALCO -99.18175 19.48746
## 2 GUSTAVO A. MADERO -99.11765 19.46409
## 3 IZTACALCO -99.12542 19.39047
## 4 MILPA ALTA -99.03107 19.19810
## 5 ALVARO OBREGON -99.19805 19.39120
## 6 BENITO JUAREZ -99.14676 19.39088
## 7 BENITO JUAREZ -99.14359 19.38358
## 8 GUSTAVO A. MADERO -99.11708 19.48330
## 9 IZTACALCO -99.07343 19.40021
## 10 IZTAPALAPA -99.09198 19.35166
## 11 MAGDALENA CONTRERAS -99.24857 19.31530
## 12 TLAHUAC -99.00421 19.26265
## 13 TLALPAN -99.17833 19.28087
## 14 XOCHIMILCO -99.10524 19.26181
## 15 ALVARO OBREGON -99.21146 19.37448
## 16 COYOACAN -99.17742 19.33277
## 17 COYOACAN -99.15035 19.32311
## 18 CUAJIMALPA -99.30307 19.34825
## 19 CUAJIMALPA -99.29486 19.35645
## 20 CUAUHTEMOC -99.15199 19.44123
## 21 CUAUHTEMOC -99.13703 19.42105
## 22 MIGUEL HIDALGO -99.18917 19.40655
## 23 MIGUEL HIDALGO -99.19922 19.40267
## 24 MILPA ALTA -99.02145 19.19112
## 25 TLALPAN -99.16736 19.27802
## 26 VENUSTIANO CARRANZA -99.11896 19.41878
## 27 XOCHIMILCO -99.09913 19.261018. Creación del mapa.
para poder crear un mapa adecuado y poder realizar un análisis más profundo se requieren varios pasos:
8.1. puntos
primero crearemos los puntos correspondientes a cada una de las \(27\) observaciones de nuestro data.frame con el siguiente comando:
dispersion<-ggplot(datosf)+geom_text(aes(Latitud,Longitud),label= rownames(datosf))+geom_point(aes(Latitud,Longitud),color= rainbow(27))
ggplotly(dispersion)8.2 Mapa.
El mapa se crea utilizando el comando qmplot:
qmplot(Longitud, Latitud, data=datosf, color=I(rainbow(27)))
8.3. Mapa de puntos y densidad
Podemos hacer un análisis de densidad con el siguiente comando:
qmplot(Longitud, Latitud, data=datosf, geom=c("point","density2d"))
8.4. Gráfica de dispersión
Podemos crear una gráfica de dispersión con los datos que tenemos de Altitud y latitud, con el simple objetivo de confirmar la ubicación de los centros. Estos puntos se concentran en el centro con tendencia hacia el norte de la capital.
plot(x = datosf$Longitud, y = datosf$Latitud, col= c('red','black'), ylab = 'Longitud', xlab = 'Latitud')
8.5. Gráfica con datos filtrados
Se pueden hacer diferentes 6 diferentes graficas usando las columnas de alcaldía, latitud y longitud.
plot(datosf)
9. Grafica con tabla entera
Sin embargo, no son las únicas que se pueden crear graficas, podemos hacer lo mismo con todas las columnas que importamos inicialmente.
plot(datos)