Gráficos circulares en R usando ggplot2

Un gráfico circular o gráfico circular es una técnica gráfica estadística circular que divide el círculo en proporciones numéricas para representar los datos como parte del todo. En Circle Chart, la longitud del arco de cada sector es proporcional a la cantidad que representa. Los gráficos circulares son muy utilizados en el mundo de los negocios y los medios de comunicación para comprender las tendencias. 

Acercarse

  • Módulo de importación
  • Crear datos
  • Organice las filas de un marco de datos por los valores de las columnas seleccionadas.
  • Mutar para crear una nueva variable a partir de un conjunto de datos
  • Trazar gráfico circular
  • Gráfico de visualización

Ejemplo 1:

R

library(ggplot2)
library(dplyr)
  
count.data <- data.frame(
    pilot_class = c("A++(Senior pilot)", "A+(Junior pilot)", "A-(Trainee pilot)", "Crew"),
    n = c(389, 256, 589, 466),
    proportion = c(22.88, 15.0588, 34.647, 27.411)
)
  
count.data
  
count.data <- count.data %>%
    arrange(desc(pilot_class)) %>%
    mutate(lab.ypos = cumsum(proportion) - 0.6*proportion)
  
count.data
  
mycols <- c("#42f55a", "#42f5e6", "#ecf542", "#f56f42")
  
ggplot(count.data, aes(x = "", y = proportion, fill = pilot_class)) +
    geom_bar(width = 1, stat = "identity", color = "black") +
    coord_polar("y", start = 0)+
    geom_text(aes(y = lab.ypos, label = proportion), color = "black")+
    scale_fill_manual(values = mycols) +
    theme_void()

Producción:

Ejemplo 2:

R

Name_of_student <- c("Ankit", "Jack", "Prakhar", "Madahav", "shef", 
            "sama", "karthik", "Ritwik", "Agnim", "Harsh")
  
contribution_in_project <- c(.103, .097, .103, .103,.097, .097, .10,.10,.10,.10 )
  
top_ten_contributors <- data.frame(Name_of_student,contribution_in_project)
top_ten_contributors
  
pie_2 <- ggplot(top_ten_contributors, aes(x = factor(1), fill = factor(contribution_in_project))) +
    geom_bar(width = 1)
  
pie_2 + coord_polar(theta = "y")

Producción:

Publicación traducida automáticamente

Artículo escrito por ankitkhandewal2018 y traducido por Barcelona Geeks. The original can be accessed here. Licence: CCBY-SA

Deja una respuesta

Tu dirección de correo electrónico no será publicada. Los campos obligatorios están marcados con *