Scénario de gestion
Il vous a été demandé de créer un diagramme qui affiche le chiffre d'affaires et la marge brute par ligne de produits et région. Ils souhaitent que les utilisateurs puissent utiliser un contrôle d'entrée pour filtrer les données par année.
Pour ce faire, vous décidez d'ajouter une visualisation R pour créer le graphique à barres horizontales double personnalisé avec un contrôle de saisie pour l'année dans votre présentation à l'aide du code R.
Tâche 1: Ajout d'un widget de visualisation R à une page de présentation
Flux de tâches : dans cet exercice pratique, vous allez :
- Examiner les visualisations R dans la présentation
- Ajouter un widget de visualisation R à la présentation et configurer les dimensions et les mesures
- Ajouter le script initial à la visualisation R
Tâche 2: Ajouter le scripting à la visualisation R
Flux de tâches : dans cet exercice pratique, vous allez :
- Modifier la couleur de la ligne et remplir les barres du diagramme
- Modifier l'orientation du diagramme de verticale à horizontale
- Ajouter et configurer des libellés
- Ajuster la largeur des barres dans le diagramme
- Réorganiser les régions des plus petites aux plus grandes valeurs
- Mettre à jour les étiquettes sur les axes x et y
- Modifier le thème du graphique
Tâche 3: Ajouter et configurer des lignes de produits
Flux de tâches : dans cet exercice pratique, vous allez :
- Ajouter des lignes aux dimensions
- Configurer le diagramme
- Créer un diagramme à barres empilées
- Configurer le titre du diagramme et ajouter une légende
- Mise à l'échelle du chiffre d'affaires
Tâche 4: Ajout et configuration d'un deuxième diagramme dans la visualisation R
Flux de tâches : dans cet exercice pratique, vous allez :
- Mettez à jour le graphique pour ajouter la marge brute aux mesures.
- Ajouter un deuxième graphique à la visualisation R
- Supprimer le titre et le sous-titre
- Ajouter un contrôle de saisie pour l'année
Code R complet utilisé dans cet exercice
Le code R final dans la fenêtre Éditeur de l'éditeur de script de visualisation R est le suivant :
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))