- Se carga el paquete ggplot2 con la función library().
library(ggplot2)
2. Se establece la ubicación de los datos en el ordenador con la función setwd().
setwd(«D:/RUTA»)
3. Se generan tres variables aleatorias para género, ingresos y nivel educativo. La función sample() se utiliza para generar muestras aleatorias de los valores posibles.
4. La función factor() se utiliza para crear una variable categórica a partir de la variable género.
set.seed(1)
Género <- factor(sample(c("Hombre", "Mujer"),
size = 50, replace = TRUE),
levels = c("Hombre", "Mujer"))
Ingresos <- sample(1:4, size = 50, replace = TRUE)
Nivel_educativo <- sample(c("Alto", "Medio", "Bajo"),
size = 50, replace = TRUE)
5. Se crea un data.frame a partir de las variables generadas.
df <- data.frame(x = Género, y = Ingresos, grupo = Nivel_educativo)
6. Se crea un gráfico de barras apiladas utilizando ggplot(), pasándole como argumentos el data.frame y la especificación de las variables a utilizar en el eje x (Género), y (Ingresos) y para rellenar las barras (grupo). La función geom_bar() se utiliza para crear las barras y la función stat = "identity" especifica que se quiere mostrar la identidad de los datos.
7. Se añade un título al gráfico con ggtitle().
8. Se aplica la función scale_fill_brewer() para cambiar la paleta de colores utilizada en la leyenda.
9. Se personaliza el aspecto del gráfico con la función theme(). En este caso, se ajusta la posición del título y se le da un tamaño y formato de fuente adecuados.
10. Se añade una leyenda con guides(), especificando el título de la leyenda con guide_legend().
df <- data.frame(x = Género, y = Ingresos, grupo = Nivel_educativo)
GApi <- ggplot(df, aes(x = Género, y = Ingresos, fill = grupo)) +
geom_bar(stat = "identity") +
ggtitle("Ingresos por género")+
scale_fill_brewer() +
theme(plot.title = element_text(hjust = 0.5, size = 18, face = "bold")) +
guides(fill = guide_legend(title = "Nivel educativo"))
11. Se plotea el gráfico
GApi
12. Finalmente, se guarda el gráfico con ggsave(), especificando el nombre del archivo, el tamaño del gráfico y las unidades de medida.
ggsave("grafico_barras_apiladas.png", plot = GApi, width = 8, height = 6, units = "in")
