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)

RELATED STORIES

Crear un efecto visual tipo araña en QGIS

julio 2, 2025

Modelado de Inundaciones 2D con RAS 2025

mayo 19, 2025

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)