Faire un simple graphique de tâche (Gantt chart)
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:
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,
