Discussion :

[Puppet_Master]

Bonjour.

J'ai un petit souci de mise en forme. J'ai deux graphiques, le deuxième découle du premier et j'utilise gridExtra pour les mettre côte à côte. Mais, je n'arrive pas à "aligner" les deux graphiques à cause des labels de l'axe X du premier graphique.

Voici un code pour illustrer mon problème:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
# dataframe de demo
df <- data.frame(
  nom = c(424242:424299),
  val1 = rnorm(58, 10, 1),
  val2 = rnorm(58, 10, 1)
)
 
# modules
library(ggplot2)
library(gridExtra)
 
# graph 1
g1 <- ggplot(df) +
  aes(x = as.factor(nom)) +
  geom_bar(stat = "identity", aes(y = df$val1), col = "darkred", fill = "green", alpha = 0.5) +
  geom_bar(stat = "identity", aes(y = df$val2), col = "darkgreen", fill = "red", alpha = 0.5) +
  geom_hline(yintercept = 10.5, lty = 2) +
  theme(axis.text.x=element_text(angle = 90, hjust = 0, vjust = 0.5)) +
  ylim( 0, max(df$val1, df$val2) + 5 ) +
  labs(
    title = "Super graph",
    subtitle = "truc en fonction des bidules",
    x = "truc",
    y = "bidule"
  )
 
g1
 
# graph 2
g2 <- ggplot(df) +
  aes(x = val1 , y = ..density.. ) +
  geom_histogram(aes( fill = ..count..)) +
  geom_density() +
  geom_vline(xintercept = 10.5, lty = 2) +
  xlim(0, max(df$val1, df$val2) + 5) +
  labs(
    title = "",
    subtitle = "",
    x = "",
    y = "Density"
  ) +
  coord_flip()
 
g2
 
# assemblage
grid.arrange(g1, g2, ncol = 2, widths = c(3,1))

quelqu'un a-t-il une solution à mon petit souci ?

[VonVelten]

Bonjour,

Je vous conseille d'utiliser la fonction multiplot(g1,g2) pour réaliser cela.

Vous trouverez le code ici -> http://www.cookbook-r.com/Graphs/Mul...age_(ggplot2)/

Après je ne sais pas trop si cela répond à votre question, car je ne sais pas trop quel est le problème d'alignement que vous évoquez.

VV

[Puppet_Master]

Bonjour VonVelten.

Merci de votre réponse. J'ai fait des essais avec cette fonction, mais j'ai le même problème.

Je vais préciser mon problème à l'aide d'une image

Je souhaite aligner les graphiques pour que les axes Y correspondent. Mais j'ai un décalage: (les deux grosses lignes rouges) :

[VonVelten]

Bonjour,

simplement, il suffit de jouer sur le positionnement des axes du 2e graphique. Pour cela, j'ai décalé la valeur minimale du coup des ordonnées vers le bas, pour faire remonter le 0 et aligner les axes.

J'ai fait cela avec la commande scale_x_continuous(). Par contre il faut regarder sur l'exportation du graphique pour le rendu final. En effet selon la taille du graphique exporté , il faut ajuster cette valeur pour avoir la bonne valeur.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
g2 <- ggplot(df) +
  aes(x = val1 , y = ..density.. ) +
  geom_histogram(aes( fill = ..count..)) +
  geom_density() +
  geom_vline(xintercept = 10.5, lty = 2) +
  labs(
    title = "",
    subtitle = "",
    x = "",
    y = "Density"
  ) +
  coord_flip()+
  scale_x_continuous(limits=c(-2,max(df$val1, df$val2) + 5),breaks=c(0,5,15)) # Il faut jouer sur la valeur basse du y (ici -2)
 
# g2

Voilà le rendu :

VV

[Puppet_Master]

Bonjour.

OK. La solution est valide. Il me suffit de fixer les dimensions du graphique final et de trouver le bon modificateur a appliqué à la limite basse de l'axe Y du deuxième graphique.

Merci VonVelten.