I. Activando las librerías

library(ggplot2) #Gráficas más bonitas
library(plotly) #Gráficas interactivas
library(ggmap) #Mapas

II. Conociendo el problema

Un enfermo de covid estuvo desplazándose en la Ciudad de México durante 21 días. Como el gobierno recopila los datos de su gps, es posible determinar la longitud y latitud de los lugares en los que estuvo:

dia<-1:21
longitud<-sample(seq(-99.2,-99.1,0.01), 21, T)
latitud<-sample(seq(19.4,19.5,0.01), 21, T)
gps<-data.frame(dia,longitud,latitud)
gps
##    dia longitud latitud
## 1    1   -99.14   19.44
## 2    2   -99.20   19.43
## 3    3   -99.10   19.42
## 4    4   -99.16   19.49
## 5    5   -99.18   19.43
## 6    6   -99.11   19.47
## 7    7   -99.10   19.44
## 8    8   -99.20   19.48
## 9    9   -99.17   19.41
## 10  10   -99.11   19.45
## 11  11   -99.15   19.42
## 12  12   -99.19   19.50
## 13  13   -99.20   19.50
## 14  14   -99.16   19.43
## 15  15   -99.19   19.48
## 16  16   -99.12   19.41
## 17  17   -99.10   19.41
## 18  18   -99.13   19.42
## 19  19   -99.18   19.42
## 20  20   -99.13   19.42
## 21  21   -99.15   19.41

III. Graficando con ggplot y geom_point

Vamos a utilizar la función ggplot y la función geom_point para hacer una grafica de puntos:

ruta_enfermo<-ggplot(gps)+geom_point(aes(x=longitud,y=latitud), color = dia)
ruta_enfermo

IV. Graficando con ggplot y geom_text

Vamos a utilizar la función ggplot y la función geom_text para hacer una grafica con los números de los días que el enfermo de covid estuvo en la ciudad:

ruta_con_dias<-ggplot(gps)+ geom_text(aes(longitud, latitud, label = gps$dia))
ruta_con_dias

V. Haciendo una gráfica interactiva con ggplotly

Vamos a utilizar la función ggplotly para hacer una grafica interactiva:

ggplotly(ruta_con_dias)

VI. Graficando los datos del gps del enfermo de covid en un mapa con la función qmplot

La función qmplot nos permite crear mapas de forma rápida siempre y cuando tengamos información sobre latitud y la longitud:

qmplot(longitud, latitud, data = gps)

VII. Personalizando nuestro mapa

Podemos cambiar el color y el tamaño de los puntos de nuestro mapa agregando los parámetros color y size:

qmplot(longitud, latitud, data = gps, color = dia, size = I(5))

VIII. Mapa de densidad

Podemos agregar el parámetro geom = c("point","density2d") para hacer un mapa de puntos y densidad:

qmplot(longitud, latitud, data = gps, geom = c("point","density2d"))

Esta obra fue generada mediante R en November 11, 2020 y forma parte de las actividades realizadas en las materias de Matemáticas I y Taller III, Facultad de Economía, UNAM.
Esta obra está bajo una licencia de Creative Commons Reconocimiento-NoComercial-CompartirIgual 4.0 Internacional. Creative Commons (CC).Licencia de Creative Commons