Agregar tabla dentro de la región de trazado de un ggplot en R

En este artículo, vamos a ver cómo agregar la tabla del marco de datos en la región de la trama usando la biblioteca ggplot2 en el lenguaje de programación R.

Conjunto de datos en uso:

Aquí estamos trazando un diagrama de dispersión, lo mismo se puede hacer para cualquier otro gráfico. Para trazar un diagrama de dispersión en ggplot2, usamos la función geom_point(). 

Sintaxis:

geom_point(mapping=NULL, data=NULL, stat=”identidad”, position=”identidad”,…)

Parámetro:

• tamaño : Para asignar tamaño a los puntos.
• forma: para asignar la forma, la biblioteca ggplot2 tiene varias formas que se asignan con un valor numérico que oscila entre [0,25].

Dibujemos primero un gráfico regular sin tabla, para que la diferencia sea evidente.

Ejemplo:

library(ggplot2)
  
# Inserting data
vacc <- data.frame(catgry=rep(c("Covishield", "Covaxin"), each=2),
                   dose=rep(c("D1", "D2"),2),
                   slots=c(33, 45, 66, 50))
  
# To create ggplot2 scatter plot
plt <- ggplot(vacc, aes(dose, slots, color = catgry))+
  geom_point(shape=8,size = 5)
  
plt

Producción:

Para agregar una tabla a la gráfica, primero creamos la tabla usando cbind(). Ahora anotamos la tabla usando la función annotate(). Se utiliza para especificar la ubicación de la tabla en el ggplot. 

Sintaxis:

anotar(geom,x,y,xmin,xmax,ymin,ymax,label,vjust,hjust,….)

Parámetros:

• geom: el nombre de la geom que está aquí en la tabla para la cual se debe realizar la anotación
• x,y,xmax,ymax,xmin,ymin : Cualquiera de estos debe mencionarse para establecer la ubicación de la tabla en el gráfico.
• label : Label es la ggp_table aquí que queremos agregar en la región de la trama.
• vjust, hjust : Configuración del ajuste horizontal y vertical de la mesa

Antes de continuar, necesitamos instalar y cargar otra biblioteca en R llamada ggpmisc que representa Miscellaneous Extensions to ggplot. Para instalar y cargar, escriba el siguiente comando en R Console:

instalar.paquetes(“ggpmisc”)

biblioteca (ggpmisc)

Esta biblioteca es útil para colocar la tabla en la región de trazado usando la palabra clave:

geom=”tabla” // dentro de la función de anotación

Ejemplo:

library(ggplot2)
library(ggpmisc)
  
# Inserting data
vacc <- data.frame(catgry=rep(c("Covishield", "Covaxin"), each=2),
                   dose=rep(c("D1", "D2"),2),
                   slots=c(33, 45, 66, 50))
head(vacc)
  
# To create ggplot2 scatter plot
ggplot(vacc, aes(dose, slots, color = catgry))+
geom_point(shape=8,size = 5)+ annotate(geom = "table",x = 4,y = 12,
                                       label = list(cbind(vacc)))

Producción: