ggplot2 - Gráficos divergentes
En los capítulos anteriores, echamos un vistazo a varios tipos de gráficos que se pueden crear usando el paquete "ggplot2". Ahora nos centraremos en la variación de los mismos, como gráficos de barras divergentes, gráficos de paleta y muchos más. Para empezar, comenzaremos con la creación de gráficos de barras divergentes y los pasos a seguir se mencionan a continuación:
Comprender el conjunto de datos
Cargue el paquete requerido y cree una nueva columna llamada 'nombre del automóvil' dentro del conjunto de datos de mpg.
#Load ggplot
> library(ggplot2)
> # create new column for car names
> mtcars$`car name` <- rownames(mtcars)
> # compute normalized mpg
> mtcars$mpg_z <- round((mtcars$mpg - mean(mtcars$mpg))/sd(mtcars$mpg), 2)
> # above / below avg flag
> mtcars$mpg_type <- ifelse(mtcars$mpg_z < 0, "below", "above")
> # sort
> mtcars <- mtcars[order(mtcars$mpg_z), ]
El cálculo anterior implica la creación de una nueva columna para los nombres de los coches, calculando el conjunto de datos normalizado con la ayuda de la función redonda. También podemos usar el indicador de promedio por encima y por debajo para obtener los valores de la funcionalidad "tipo". Luego, ordenamos los valores para crear el conjunto de datos requerido.
La salida recibida es la siguiente:
Convierta los valores en factor para mantener el orden ordenado en un gráfico en particular como se menciona a continuación:
> # convert to factor to retain sorted order in plot.
> mtcars$`car name` <- factor(mtcars$`car name`, levels = mtcars$`car name`)
El resultado obtenido se menciona a continuación:
Gráfico de barras divergentes
Ahora cree un gráfico de barras divergentes con los atributos mencionados que se toman como coordenadas requeridas.
> # Diverging Barcharts
> ggplot(mtcars, aes(x=`car name`, y=mpg_z, label=mpg_z)) +
+ geom_bar(stat='identity', aes(fill=mpg_type), width=.5) +
+ scale_fill_manual(name="Mileage",
+ labels = c("Above Average", "Below Average"),
+ values = c("above"="#00ba38", "below"="#f8766d")) +
+ labs(subtitle="Normalised mileage from 'mtcars'",
+ title= "Diverging Bars") +
+ coord_flip()
Note - Un gráfico de barras divergente marca para algunos miembros de dimensión que apuntan hacia arriba o hacia abajo con respecto a los valores mencionados.
La salida del gráfico de barras divergentes se menciona a continuación, donde usamos la función geom_bar para crear un gráfico de barras:
Gráfico de piruletas divergentes
Cree un gráfico de piruletas divergentes con los mismos atributos y coordenadas con solo el cambio de función que se utilizará, es decir, geom_segment () que ayuda a crear los gráficos de piruletas.
> ggplot(mtcars, aes(x=`car name`, y=mpg_z, label=mpg_z)) +
+ geom_point(stat='identity', fill="black", size=6) +
+ geom_segment(aes(y = 0,
+ x = `car name`,
+ yend = mpg_z,
+ xend = `car name`),
+ color = "black") +
+ geom_text(color="white", size=2) +
+ labs(title="Diverging Lollipop Chart",
+ subtitle="Normalized mileage from 'mtcars': Lollipop") +
+ ylim(-2.5, 2.5) +
+ coord_flip()
Gráfico de puntos divergentes
Cree un diagrama de puntos divergentes de manera similar donde los puntos representan los puntos en diagramas dispersos en una dimensión mayor.
> ggplot(mtcars, aes(x=`car name`, y=mpg_z, label=mpg_z)) +
+ geom_point(stat='identity', aes(col=mpg_type), size=6) +
+ scale_color_manual(name="Mileage",
+ labels = c("Above Average", "Below Average"),
+ values = c("above"="#00ba38", "below"="#f8766d")) +
+ geom_text(color="white", size=2) +
+ labs(title="Diverging Dot Plot",
+ subtitle="Normalized mileage from 'mtcars': Dotplot") +
+ ylim(-2.5, 2.5) +
+ coord_flip()
Aquí, las leyendas representan los valores "Por encima del promedio" y "Por debajo del promedio" con distintos colores de verde y rojo. El diagrama de puntos transmite información estática. Los principios son los mismos que los del gráfico de barras divergentes, excepto que solo se utilizan puntos.