Gráfico circular en RStudio

1. Instalación y carga del paquete ggplot2

install.packages("ggplot2")

2. library(ggplot2) carga el paquete ggplot2 en el espacio de trabajo actual de R.

library(ggplot2)

3. datos <- data.frame(Sector = c(...), Porcentaje = c(...)) crea un data frame llamado datos con dos columnas: Sector y Porcentaje.

datos <- data.frame(Sector = c("Suministro de electricidad y agua", "Acuicultura y pesca de camarón", "Alojamiento y servicios de comida", "Pesca", "Transporte", "Comercio"),
Porcentaje = c(0.269, 0.222, 0.194, 0.118, 0.108, 0.102))

4. Creación del gráfico de torta o circular

• datos <- data.frame(Sector = c(...), Porcentaje = c(...)) crea un data frame llamado datos con dos columnas: Sector y Porcentaje.
• p <- ggplot(datos, aes(x="", y=Porcentaje, fill=Sector)) + ... crea un objeto gráfico llamado p utilizando ggplot2. El gráfico se basa en el data frame datos y se establecen las asignaciones estéticas (aes) para x, y y fill.
• geom_bar(width = 1, stat = "identity") agrega una capa de barras al gráfico con un ancho de 1 y un estado de «identidad».
• coord_polar("y", start=0) establece las coordenadas polares para el eje y con un punto de inicio en 0.
• scale_fill_brewer(palette = "Paired") establece la escala de llenado para utilizar la paleta Paired de RColorBrewer.
• ggtitle("Distribución del PIB por sector"), xlab("") y ylab("Porcentaje") establecen el título, la etiqueta del eje x y la etiqueta del eje y respectivamente.
• theme_void() establece un tema vacío para el gráfico.
• geom_text(aes(label=paste(round(100 * Porcentaje, 2), "%")), position = position_stack(vjust = 0.5)) agrega una capa de texto al gráfico con los porcentajes correspondientes a cada sección de la torta, con una justificación vertical en 0.5.
• theme(plot.title = element_text(hjust = 0.5, face = "bold", family = "Times New Roman")) establece la propiedad de título del gráfico con una alineación horizontal en 0.5, una fuente en negrita y una familia de fuentes «Times New Roman»

p <- ggplot(datos, aes(x="", y=Porcentaje, fill=Sector)) +
geom_bar(width = 1, stat = "identity") +
coord_polar("y", start=0) +
scale_fill_brewer(palette = "Paired") +
ggtitle("Distribución del PIB por sector") +
xlab("") +
ylab("Porcentaje") +
theme_void() +
geom_text(aes(label=paste(round(100 * Porcentaje, 2), "%")),
position = position_stack(vjust = 0.5)) +
theme(plot.title = element_text(hjust = 0.5,
face = "bold",
family = "Times New Roman"))

5. Finalmente utiliza la función ggsave` para guardar el gráfico.

ggsave("grafico_torta.png", plot = p, width = 6, height = 4)