bonjour à tous,

D'abord je suis surpris de la difficulté à trouver des renseignements simples pour faire quelques choses de simples

Je cherche à faire un basique graphique de Gantt, de tâche.

J'ai trouvé sur Stackoverflow quelque chose qui fait presque l'affaire après adaptation, simple, court et qui affiche ce que je veux.

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
 
rm(list = ls())
library(reshape2)
library(ggplot2)
tasks <- c("Task1", "Task2", "Task3", "Task4")
dfr <- data.frame(
  name        = factor(tasks, levels = tasks),
  start.date  = as.Date(c("2019-08-24", "2019-10-01", "2019-11-01", "2019-02-14")),
  end.date    = as.Date(c("2022-10-31", "2022-12-14", "2020-02-28", "2019-04-30")),
  is.critical = c(TRUE, FALSE, FALSE, TRUE)
)
mdfr <- melt(dfr, measure.vars = c("start.date", "end.date"))
mdfr <- melt(dfr, measure.vars = c("start.date", "end.date"))
ggplot(mdfr, aes(value, name, legend = "red")) + 
  geom_line(size = 6) +
  xlab(NULL) + 
  ylab(NULL)
Ma question maintenant, savez-vous comment ajouter pour une même tâche deux occurrences?
Ce qui évidement pose problème ici, puisque on définit un vecteur tâche de dimension 4 et on veut entrer les vecteurs start.date et end.date en 5 dimension..

Vos avis conseils?

Merci à vous,