Bonjour.

J'utilise le package "plan" pour superposer deux gantts et ainsi visualiser les écarts entre deux 'planifications'.

voici un exemple simplifié:

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
library(plan)
 
# avancement des pharses
av <- c(
  100, # Définir
  100, # Mesurer
  30,  # Analyse
  10,  # Améliorer
  50   # Maîtriser
)
ap <- c(
  100, # Définir
  100, # Mesurer
  66,  # Analyse
  25,  # Améliorer
  60   # Maîtriser
)
 
gantt <- as.gantt(
  key = c(1:10),
  rep(c("Définir", "Mesurer", "Analyser", "Améliorer", "Maîtriser"),2),
  rep(c("2018-07-07", "2018-08-15", "2019-03-01","2019-04-01","2019-05-01"),2),
  rep(c("2018-08-15", "2018-11-15", "2019-04-15","2019-05-20","2019-07-07"),2),
  c(av, ap)
)
 
# graph
plot(gantt,
           col.notdone="darkorange",
           col.done = "darkgreen",
           grid.col = "red"
)
J'ai besoin de différencier les deux gantt tout en les gardant sur ma même grille. Par exemple en ajoutant un rectangle de couleur semi-transparent sur chacun d'eux avec un 'phase X' écrit en haut à droite de chaque rectangle.

Si quelqu'un a une idée pour les distinguer d'un coup œil, je suis preneur.