Cree múltiples gráficos circulares usando ggplot2 en R

El gráfico circular, también conocido como gráfico circular, es la representación gráfica del tamaño relativo o la frecuencia de los datos en un formato circular. Básicamente, ayuda a visualizar el tamaño relativo o la frecuencia de un grupo particular de datos como parte del todo. Este artículo explica cómo se pueden crear varios gráficos circulares en un marco para realizar comparaciones consecutivas.

Función utilizada:

• La función pie(), como sugiere el nombre, se utiliza para visualizar un gráfico circular.

Sintaxis: pie (x, etiquetas, radio, principal, columna, en el sentido de las agujas del reloj)

Parámetros:

• x: este parámetro es el vector que contiene el valor del gráfico circular.
• etiquetas: este parámetro es el vector que contiene las etiquetas de todos los sectores en el gráfico circular.
• radio: este parámetro es el valor del radio del gráfico circular. Este valor está entre -1 a 1.
• main: este parámetro es el título del gráfico.
• col: este parámetro es el color utilizado en el gráfico circular.
• en el sentido de las agujas del reloj: este parámetro es el valor lógico que se utiliza para dibujar los cortes en el sentido de las agujas del reloj o en el sentido contrario a las agujas del reloj.

• La función coord_polar() se usa para crear un sistema de coordenadas polares, lo que ayuda a dibujar un gráfico circular.

Sintaxis:

coord_polar(theta = “x”, inicio = 0, dirección = 1, clip = “on”)

Parámetro:

• theta representa el ángulo
• inicio utilizado para establecer el desplazamiento
• dirección 
• clip decide si el dibujo debe ser recortado o no

• facet_grid() crea una array para mostrar filas y columnas variables de facetas

Sintaxis:

facet_grid(facetas, márgenes=FALSO, escalas=”fijo”, espacio=”fijo”, encoger=VERDADERO, etiquetador=”valor_etiqueta”, as.table=VERDADERO, soltar=VERDADERO)

Primero creemos un gráfico circular regular

Programa 1 : Gráfico circular regular

x <- c(3,3,2,1,1)
  
labels <- c('ADA','CN','PDS','CPDP','PE')
  
pie(x, labels, main="Credits of subjects", col=rainbow(length(x)))

Producción:

Para crear un gráfico circular en R, podemos usar el paquete ggplot2, pero no tiene un método directo para hacerlo. En su lugar, trazamos un gráfico de barras y luego lo convertimos en un gráfico circular usando la función coord_polar(). 

Acercarse:

• Importar biblioteca
• Crear datos
• Crear marco de datos
• Trazar un gráfico de barras
• Convertir gráfico de barras en gráfico circular
• Eliminar valores numéricos y cuadrícula

Programa 2: gráfico circular usando ggplot2

library(ggplot2)
  
df = data.frame(x <- c(3,3,2,1,1),
                labels <- c('ADA','CN','PDS','CPDP','PE'))
  
ggplot(df, aes(x="", y=x, fill=labels)) +geom_bar(width = 1, stat = "identity") +
  coord_polar("y", start=0) +theme_void()

Producción:

Para trazar múltiples gráficos circulares en R usando ggplot2, tenemos que usar un método adicional llamado facet_grid() . Este método forma una array definida por variables de facetado de fila y columna. Cuando tenemos dos variables diferentes y necesitamos una array con todas las combinaciones de estas dos variables, usamos este método.

Acercarse:

• Importar biblioteca
• Crear marco de datos
• Convertir variables en variables categóricas
• Trazar gráfico de barras
• Convertir en gráfico circular
• Añadir facet_grid()

Programa 3: Gráfico circular múltiple 

library(ggplot2)
df = data.frame(subject <- c('ADA','ADA','ADA','CN','CN','CN','PDS','PDS','PDS','CPDP',
                         'CPDP','CPDP'),
                credit <- c('Midsem','Viva','Attendance','Midsem','Viva','Attendance',
                            'Midsem','Viva','Attendance','Midsem','Viva','Attendance'),
                value <- c(50,30,20,40,40,20,50,35,15,50,40,10))
  
df$subject <- factor(df$subject)
df$credit <- factor(df$credit) 
  
ggplot(data=df, aes(x=" ", y=value, group=credit, colour=credit, fill=credit)) +
         geom_bar(width = 1, stat = "identity") +
         coord_polar("y", start=0) + 
         facet_grid(.~ subject) +theme_void()

Producción:

También podemos trazar múltiples gráficos circulares en forma de gráfico de anillos usando ggplot2 en R. 

Acercarse:

• Importar biblioteca
• Crear marco de datos
• Convertir variables en variables categóricas
• Trazar gráfico de barras usando geom_col()
• Agrega un elemento vacío antes de los sujetos usando scale_x_discrete()
• Convertir en gráfico circular usando coord_polar()

Programa 4: gráfico circular múltiple/gráfico de anillos 

library(ggplot2)
df = data.frame(subject <- c('ADA','ADA','ADA','CN','CN','CN','PDS','PDS','PDS'),
                credit <- c('Midsem','Viva','Attendance','Midsem','Viva','Attendance',
                            'Midsem','Viva','Attendance'),
                value <- c(50,30,20,40,40,20,50,35,15))
  
df$subject <- factor(df$subject) # converts to a categorical variable
df$credit <- factor(df$credit) # converts to a categorical variable
  
  
ggplot(df, aes(x = subject, y = value, fill = credit)) +
  geom_col() +scale_x_discrete(limits = c(" ", "ADA","CN","PDS")) +coord_polar("y")

Producción: