Discussion :

[preliator]

Bonjour à tous,

Je travaille sur des données que j'aimerais représenter sous forme de graphique côte à côte en fonction de mes deux départements. J'ai généré un dataframe qui y ressemble :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
> test = data.frame(type_transport = sample(c("A PIED", "VOITURE", "TRANSPORT COMMUN"), 5000, replace = T), type_route = sample(c("N", "D", "A", "VC"), 5000, replace = T), departement = sample(c("VAR", "BOUCHE-DU-RHONE"), 5000, replace = T), longueur_troncon_km = sample(x = 0 : 17, 5000, replace = T))

En entrant cette formule, j'obtiens bien un graphique barres :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
> ggplot(test, aes(x = type_route, y = longueur_troncon_km, fill = departement)) + geom_bar(stat = "identity")

https://zupimages.net/viewer.php?id=20/19/vt1s.png

A présent, je voudrais séparer ces barres en deux, pour afficher les données en fonction de mes deux départements. Pour cela, j'utilise position = "dodge" :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
> ggplot(test, aes(x = type_route, y = longueur_troncon_km, fill = departement)) + geom_bar(stat = "identity", position = "dodge")

Mais là, il y a un problème. L'échelle en Y est beaucoup trop petite par rapport à la réalité (on passe de plusieurs milliers sur le premier graphique à 15 sur le deuxième). J'ai visiblement loupé quelque chose ...

https://zupimages.net/viewer.php?id=20/19/sbh5.png

D'après la doc, geom_col semble être plus approprié pour mon exemple car les valeurs sont "déjà calculées". Mais pour être honnête, j'ai passé un bon bout de temps à chercher une solution par mes propres moyens sur internet, forum, doc, etc. Je n'ai pas trouvé de solution à mon problème.

Merci.

[mgdondon]

Bonjour,

Je vous conseille d'agréger les données :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

testplot <- aggregate(longueur_troncon_km ~ type_route+departement, data=test, sum)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
  type_route     departement longueur_troncon_km
1          A BOUCHE-DU-RHONE                5167
2          D BOUCHE-DU-RHONE                5825
3          N BOUCHE-DU-RHONE                5070
4         VC BOUCHE-DU-RHONE                5432
5          A             VAR                5764
6          D             VAR                5200
7          N             VAR                4962
8         VC             VAR                5135

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
library(ggplot2)
ggplot(testplot, aes(x = type_route, y = longueur_troncon_km, fill = departement)) +
                 geom_bar(stat = "identity", position = "dodge")

Cordialement,