Inicio

Para comenzar, se empezará por el primer componente de la gramática de datos: Set de datos.

Set de datos

ggplot es una librería que permite guardar el conjunto de datos con cada gráfica que se produce por lo que grandes bases de datos requieren mayor tiempo de procesamiento. Por lo tanto, antes de emplear herramientas de visualización para una base de datos resulta conveniente obtener una muestra de los datos y realizar las pruebas de gráficos con esta. Cuando los gráficos han sido probados se puede ejecutar el código con la base de datos completa.

Al set de datos debe realizarle el debido proceso de limpieza y organización que se observo en el taller respectivo a este tema. Para este taller se comenzará con una muestra de la base de datos limpia. Cargue la base de datos limpia sobre la cual se trabajará todo el taller. La base de datos puede encontrarla en https://github.com/TRACE-LAC/TRACE-LAC-data/blob/main/muestra_covid.RDS?raw=true.

url_data <- "https://github.com/TRACE-LAC/TRACE-LAC-data/blob/main/muestra_covid.RDS?raw=true"

covid <- readr::read_rds(url_data)

Una vez obtenida la muestra es necesario explorar sus datos para conocer su estado actual. Tras observar el estado actual se debe preguntar que datos desea graficar y para ello que variables necesita tener. En caso de que no tenga las variables pero si los datos para obtenerlas puede crearlas. Una vez conforme con la exploración de los datos puede continuar con el segundo componente de la gramática de datos: Sistema de coordenadas.

Sistema de coordenadas

El sistema de coordenadas contiene el plano y las variables que se emplearán como ejes en la gráfica. El primer elemento es el sistema de coordenadas es el plano. Para crear un plano ejecute el siguiente comando.

#Por fines educativos en este taller las variables reciben nombres genéricos pero significativos. No es obligatorio que tengan los nombres que les asignamos en el taller, pero si que sean claros y significativos.
coordenadas <- covid %>% ggplot(); coordenadas

¿Qué puede observar?

Ese espacio en blanco es el plano para el gráfico que se construirá. Exploré el objeto en el cual guardó el gráfico.

str(coordenadas, vec.len = 3)

Como puede observar se ha creado una lista. Las lista pueden contener numerosos elementos de R sin importar su tipo o longitud. En esta lista se encuentran 9 elementos de los cuales la base de datos que se emplea en este taller es solo uno de ellos, de ahí la importancia de obtener una muestra de los datos.

Ahora que se tiene el plano se puede construir sobre el. Es hora de poner los ejes al plano. Los ejes pueden ser variables continuas o discretas, sin embargo, cada tipo de gráfica responde a una necesidad diferente. Dada la estructura de ggplot en capas puede hacer uso de elementos ggplot ya creados para continuar con la elaboración del gráfico.

Haga uso de los datos (data) almacenados en el objeto ggplot coordenadas y adicione una nueva característica.

coordenadas <- coordenadas$data %>% 
  ggplot(aes(x = tiempo_recuperacion, y = edad));coordenadas

## Este resultado también puede obtenerlo directamente empleando
# covid %>% 
#   ggplot(aes(x = tiempo_recuperacion, y = edad))

Ahora que el plano está creado puede adicionarse el última componente de la gramática de datos: Geometrías.

Geometrías

Las geometrías se refieren a los elementos gráficos que se contendrán en la gráfica. Las geometrías siempre empiezan por el nombre geom_. Algunos ejemplos:

Tabla traducida de: Little J. ggplot2 - quick and easy [Internet]. Rfun. 2022
Tipo de gráfica	Nombre geom
Gráfica de barras:	geom_bar() geom_col()
Histograma:	geom_hist()
Gráfico de dispersión:	geom_point() geom_jitter()
Gráfico de líneas:	geom_line()
Gráfico de cajas y bigotes	geom_boxplot()
Gráfico de densidad:	geom_density() geom_violin()
Mapa de calor:	geom_heatmap()
Creación de mapas:	geom_sf()
Línea de regresión:	geom_smooth() ¹
Gráfico de punto:	geom_point()

Ya se tiene el plano y los ejes. Ahora agréguele puntos.

geometrias_continuas <- coordenadas + geom_point(); geometrias_continuas
## Warning: Removed 1105 rows containing missing values (geom_point).

## Este resultado también puede obtenerlo directamente empleando sin #
# covid %>% 
#   ggplot(aes(x = tiempo_recuperacion, y = edad)) + 
#   geom_point()

Entre las ventajas de ggplot esta que se pueden sumar elementos a los ya existente. Por ejemplo, agréguele una línea de regresión.

geometrias_continuas <- geometrias_continuas + geom_smooth(); geometrias_continuas
## `geom_smooth()` using method = 'gam' and formula 'y ~ s(x, bs = "cs")'
## Warning: Removed 1105 rows containing non-finite values (stat_smooth).
## Warning: Removed 1105 rows containing missing values (geom_point).

## Este resultado también puede obtenerlo directamente empleando sin #
# covid %>% 
#   ggplot(aes(x = edad, y = tiempo_recuperacion)) + 
#   geom_point() + 
#   geom_smooth()

Con ggplot es posible usar funciones de dplyr junto a ggplot. Para obtener una visualización más clara puede filtrar por el tiempo de recuperación.

grafica_base <-
covid %>% 
  filter(tiempo_recuperacion >= 50) %>% 
   ggplot(aes(x = edad, y = tiempo_recuperacion)) + 
   geom_point() + 
   geom_smooth(); grafica_base
## `geom_smooth()` using method = 'loess' and formula 'y ~ x'

ggplot permite dar otras características a las gráficas a partir de variables. Entre estas se puede encontrar característica como color de borde, color de relleno, forma o dividir la gráfica.

grafica_base + facet_wrap(~sexo)
## `geom_smooth()` using method = 'loess' and formula 'y ~ x'

## Este resultado también puede obtenerlo directamente empleando sin #
# covid %>% 
#  filter(tiempo_recuperacion >= 50) %>% 
#   ggplot(aes(x = edad, y = tiempo_recuperacion)) + 
#   geom_point() + 
#   geom_smooth() + 
#   facet_wrap(~sexo)

ggplot permite añadir múltiple geometrías usando el mismo set de datos, y cada geometría puede presentar distintos atributos de visualización.

Es importante diferencias dos tipos de atributos en ggplot: globales y locales

Los atributos globales son aquellos aplicados a todas las geometrías del gráfico a través de la función ggplot.
Los atributos locales son los aplicados exclusivamente a una geometría.

covid %>%
  filter(tiempo_recuperacion >= 50) %>%
  ggplot(aes(x = edad, y = tiempo_recuperacion, colour = "red")) +
  geom_point() +
  geom_smooth() +
  facet_wrap(~sexo)
## `geom_smooth()` using method = 'loess' and formula 'y ~ x'

## Este resultado también puede obtenerlo con este código
# grafica_base +
#   (aes(colour = "red")) +
#   facet_wrap(~sexo)

Puede observar que tanto la geometría de puntos como la de la línea de regresión tomaron el color rojo.

Además, puede asignar color por variable. Por ejemplo,

covid %>% 
  ggplot(aes(x = edad, y = tiempo_recuperacion, colour = sexo)) + 
  geom_point() +
  facet_wrap(~sexo)
## Warning: Removed 1105 rows containing missing values (geom_point).

Si bien hay diferentes colores, esta es un atributo global, es decir, que aplicará a todas las geometrías. Si quiere dar el atributo a una geometría específica tiene que poner el atributo dentro de la geometría. Por ejemplo,

covid %>% 
  filter(tiempo_recuperacion >= 50) %>%
  ggplot(aes(x = edad, y = tiempo_recuperacion)) + 
  geom_point(colour = "red") + 
  geom_smooth(colour = "blue") +
  facet_wrap(~sexo)
## `geom_smooth()` using method = 'loess' and formula 'y ~ x'

Para explorar variables discretas puede emplear la geometría geom_bar.

covid %>% 
  ggplot() + 
  geom_bar(aes(sexo))

O se puede asignar divisiones a una variable continua. Por ejemplo,

covid %>% 
  mutate(rangos_edad = cut(edad, breaks = c(0, 30, 60, 90, 120))) %>%
  ggplot() + geom_bar(aes(rangos_edad))

Es posible dar nombres a estos cortes, dentro de la función cut, emplee el argumento ``

covid %>% 
  mutate(rangos_edad = 
           cut(edad, breaks = c(0, 30, 60, 90, 120), 
               labels = c("0 a 30 años", 
                          "30 a 60 años", 
                          "60 a 90 años", 
                          "90 a 120 años"))) %>%
  ggplot() + geom_bar(aes(rangos_edad))

Además, es posible cambiar los nombres de los ejes con xlab para el eje x y con ylab para el eje y.

covid %>% 
  mutate(rangos_edad = 
           cut(edad, breaks = c(0, 30, 60, 90, 120), 
               labels = c("0 a 30 años", 
                          "30 a 60 años", 
                          "60 a 90 años", 
                          "90 a 120 años"))) %>%
  ggplot() + 
  geom_bar(aes(rangos_edad)) +
  xlab("Rangos de edad") +
  ylab("Conteo")

Para agregar más características puede agregar la capa labs. En esta puede agregar los argumentos: título title, subtítulo subtitle, leyenda caption.

covid %>% 
  mutate(rangos_edad = 
           cut(edad, breaks = c(0, 30, 60, 90, 120), 
               labels = c("0 a 30 años", 
                          "30 a 60 años", 
                          "60 a 90 años", 
                          "90 a 120 años"))) %>%
  ggplot() + 
  geom_bar(aes(rangos_edad)) +
  xlab("Rangos de edad") +
  ylab("Conteo") +
  labs(title = "Gráfico de barras", 
       subtitle = "Rangos de edad",
       caption = "Tomado de: Taller ggplot")

Ejercicio

Con la variable continua edad realice una gráfica de barras, dividala por grupo etario, agreguele un título, dividala por sexo y asignele color por estado.

Para la división de grupos etarios podría usar “Primera infancia” (0 a 5),“Infancia” (6 a 11),“Adolescencia” (12 a 18),“Juventud” (19 a 26),“Adultez” (27 a 59),“Adulto mayor” (60 a 71),“Viejo Viejo” (72 en adelante)

Taller ggplot

24/10/2022

Introducción

Estructura base

Objetivos

Conceptos básicos a desarrollar

Bibliotecas necesarias para el taller

Inicio

Set de datos

Sistema de coordenadas

Geometrías

Ejercicio

Sobre este documento

Contribuciones

Asuntos legales