Cómo anotar una parcela con círculo en R

En este artículo, discutiremos cómo anotar una trama con un círculo en el lenguaje de programación R. Podemos hacerlo usando el paquete ggplot2

 Se pueden crear asignaciones estéticas al objeto de trazado para determinar la relación entre los ejes x e y respectivamente. Se pueden agregar componentes adicionales al objeto ggplot creado.

Sintaxis:

ggplot(data = NULL, mapping = aes())

Parámetros:

• data: conjunto de datos predeterminado para usar en la gráfica.
• mapeo: lista de mapeos estéticos para usar en la trama.

Se pueden agregar geomas a la gráfica para calcular varias representaciones gráficas de los datos en la gráfica (puntos, líneas, barras). Los geoms también se pueden especificar con las asignaciones adicionales, como el color para colorear de manera diferente los puntos pertenecientes a diferentes grupos.

Sintaxis :

geom_point(aes(color = ))

La anotación de un gráfico con un círculo se usa para resaltar una parte específica del gráfico en R. Se puede agregar un círculo en una ubicación y un radio específicos al gráfico de dispersión existente en R.

El método geom_circle() en el paquete ggforce anota la trama con el círculo en la ubicación dada. Toma como entrada las coordenadas x e y como el centro y el radio para anotar un círculo alrededor del gráfico. 

Sintaxis: 

geom_circle( mapping , inherit.aes )

Parámetros: 

• mapeo: conjunto de mapeos estéticos para el método
• heredar.aes: indicador de si heredar las asignaciones predeterminadas

Ejemplo:

library("ggplot2")
library("ggforce")
  
# creating a data frame
df < - data.frame(col1=sample(rep(c(1, 20, 40), each=26)),
                  col2=sample(rep(c(1: 6), each=13))
                  )
  
# plotting the data
ggplot(df, aes(x=col1, y=col2)) +
geom_point(aes(color=factor(col1)))+
geom_circle(aes(x0=38.5, y0=2, r=4.3),
            inherit.aes=FALSE)

Producción

Ejemplo: se puede agregar el método coord_fixed() para corregir la relación de aspecto de la trama

library("ggplot2")
library("ggforce")
  
# creating a data frame
df < - data.frame(col1=sample(rep(c(1, 20, 40), each=26)),
                 col2=sample(rep(c(1: 6), each=13))
                 )
  
# plotting the data
ggplot(df, aes(x=col1, y=col2)) +
  geom_point(aes(color=factor(col1)))+
  geom_circle(aes(x0=20, y0=2, r=4.3),
              inherit.aes=FALSE)+
 coord_fixed()

Producción