¿Cómo anotar un clúster o grupo específico en ggplot2 en R?

El método ggplot en el lenguaje de programación R se usa para hacer visualizaciones de gráficos usando el marco de datos especificado. Se utiliza para instanciar un objeto ggplot. 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(datos = NULL, mapeo = aes(), relleno = )

Argumentos:

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 trama usando varios métodos. El método geom_point() en R se puede usar para agregar puntos al diagrama de dispersión en el gráfico creado en R, que puede o no contener asignaciones estéticas, por ejemplo, color. 

geom_point(aes(color= ))

El color se puede asignar a los grupos respectivos de la columna del marco de datos. Los puntos en el marco de datos se pueden etiquetar usando puntos en el gráfico. Por lo tanto, se puede crear un gráfico de dispersión creando los puntos. Estos puntos pueden o no pertenecer a los mismos grupos. Estos grupos se pueden etiquetar de manera diferente en el gráfico. 

Método 1: usar el paquete geom_mark_circle

El método geom_mark_circle geom permite al usuario anotar conjuntos de puntos a través de círculos. El método puede contener un conjunto de asignaciones estéticas, que se especifican mediante el color, la posición o las etiquetas. 

geom_mark_circle(aes(color = ))

A los puntos se les pueden asignar diferentes colores según el valor de la columna de agrupación al que correspondan. Estos puntos están marcados con diferentes colores. Luego se construyen los círculos a su alrededor usando el método geom_mark_circle() en R. Este segrega los puntos marcados pertenecientes a diferentes grupos. Inicialmente, los puntos col1 se marcan como puntos del eje x x y col2 como puntos del eje y correspondientes al marco de datos. Los puntos se marcan con diferentes colores que se pueden especificar mediante las asignaciones estéticas y se agregan como componentes al método ggplot(). A los puntos se les asignan colores usando el componente geom_point().

# importing the required library
library(ggplot2)
data_frame < - data.frame(stringsAsFactors=FALSE,
                          col1=c(rep(LETTERS[1:3], each=4)),
                          col2=c(rep(1: 4, each=3)),
                          col3=c(1: 12))
print("original dataframe")
print(data_frame)
data_frame % >%
ggplot(aes(x=col2,
           y=col3))+
  
# marking circles
geom_mark_circle(aes(color=col1))+
  
# marking points on the plot
geom_point(aes(color=col1))

Producción

[1] "original dataframe"
> print(data_frame)
  col1 col2 col3
1     A    1    1
2     A    1    2
3     A    1    3
4     A    2    4
5     B    2    5
6     B    2    6
7     B    3    7
8     B    3    8
9     C    3    9
10    C    4   10
11    C    4   11
12    C    4   12

Método 2: Usar el método geom_mark_ellipse

El método geom_mark_ellipse() permite al usuario anotar conjuntos de puntos a través de círculos. El método puede contener un conjunto de asignaciones estéticas, que se especifican mediante color, posición. Las etiquetas también se pueden asignar usando el argumento de la etiqueta en este método. 

geom_mark_circle(aes(color = , label =  ))

A los puntos se les pueden asignar diferentes colores según el valor de la columna de agrupación al que correspondan. Estos puntos están marcados con diferentes colores. Luego se construyen las elipses a su alrededor usando el método geom_mark_ellipse() en R. Este segrega los puntos marcados pertenecientes a diferentes grupos. 

# importing the required library
library(tidyverse)
data_frame < - data.frame(stringsAsFactors=FALSE,
                          col1=c(rep(LETTERS[1:3], each=4)),
                          col2=c(rep(1: 4, each=3)),
                          col3=c(1: 12))
print("original dataframe")
print(data_frame)
data_frame % >%
ggplot(aes(x=col2,
           y=col3))+
  
geom_mark_ellipse(aes(color=col1,
                      label=col1),
                  )+
  
geom_point(aes(color=col1))

Producción

[1] "original dataframe"
> print(data_frame)
 col1 col2 col3
1     A    1    1
2     A    1    2
3     A    1    3
4     A    2    4
5     B    2    5
6     B    2    6
7     B    3    7
8     B    3    8
9     C    3    9
10    C    4   10
11    C    4   11
12    C    4   12