Escenario empresarial
Se le ha pedido que cree un gráfico que muestre los ingresos de ventas y el margen bruto por línea de producto y región. Quieren que los usuarios puedan utilizar un control de entrada para filtrar los datos por año.
Para ello, decide añadir una visualización R para crear el gráfico de barras horizontales dual personalizado con un control de entrada para el año en su historia utilizando el código R.
Tarea 1: Añadir un widget de visualización R a una página de historia
Flujo de tareas: en este ejercicio práctico, podrá:
- Investigar las visualizaciones de R en la historia
- Añadir un widget de visualización de R a la historia y configurar las dimensiones y los indicadores
- Añadir el script inicial a la visualización de R
Tarea 2: Añadir scripting a la visualización R
Flujo de tareas: en este ejercicio práctico, podrá:
- Cambiar el color de la línea y rellenar las barras del gráfico
- Cambiar la orientación del gráfico de vertical a horizontal
- Añadir y configurar etiquetas
- Ajustar el ancho de las barras del gráfico
- Reordenar las regiones de los valores más pequeños a los más grandes
- Actualizar las etiquetas en los ejes x e y
- Cambiar el tema del gráfico
Tarea 3: Añadir y configurar líneas de productos
Flujo de tareas: en este ejercicio práctico, podrá:
- Añadir líneas a las dimensiones
- Configurar el gráfico
- Crear un gráfico de barras apiladas
- Configurar el título del gráfico y añadir una leyenda
- Escalar los ingresos de ventas
Tarea 4: Añadir y configurar un segundo gráfico en la visualización R
Flujo de tareas: en este ejercicio práctico, podrá:
- Actualice el gráfico para añadir margen bruto a los indicadores
- Añadir un segundo gráfico a la visualización de R
- Eliminar título y subtítulo
- Añadir un control de entrada para Año
Código R completo utilizado en este ejercicio
El código R final en la ventana Editor del editor de scripts de visualización R es el siguiente:
1234567891011121314151617181920212223
library(ggplot2)
library(dplyr)
library(grid)
library(gridExtra)
g1 <- ggplot(BestRunCorpRetail, aes(x = reorder(Lines,`Sales Revenue`/1000), y = `Sales Revenue`/1000 , fill = `Region` )) +
geom_col(stat = "identity" ) + coord_flip() +
scale_fill_brewer(palette="Blues") +
labs(title = " Sales Revenue (in k) by Product Line / Region", x = "Product Lines / Region ", y = " Sales Revenue") +
theme_light() +
theme(legend.position="bottom")
g2 <- ggplot(BestRunCorpRetail, aes(x = reorder(Lines,`Gross Margin`/1000), y = `Gross Margin`/1000 , fill = `Region` )) +
geom_col(stat = "identity" ) + coord_flip() +
scale_fill_brewer(palette="Reds") +
labs(title = " Gross Margin (in k) by Product Line / Region", x = "Product Lines / Region ", y = "Gross Margin") +
theme_light() +
theme(legend.position="bottom")
gg1 <- ggplot_gtable(ggplot_build(g1))
gg2 <- ggplot_gtable(ggplot_build(g2))
grid.arrange(gg1, gg2, ncol = 2, widths = c(1/2,1/2))