Graphique barres avec ggplot (novice)

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:

---

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:

---

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:

---

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.

Bonjour,

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

Code:

---

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

---

Code:

---

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:

---

1 2 3

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

---

Pièce jointe 563805

Cordialement,