X-Git-Url: http://bilbo.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/blobdiff_plain/5ed5698f8045a03bb3a8dac94146f1ccdcd440c1..refs/heads/deprecation:/docs/source/tuto_s4u/draw_gantt.R

diff --git a/docs/source/tuto_s4u/draw_gantt.R b/docs/source/tuto_s4u/draw_gantt.R
index 2d0c4e4df1..e412cd494a 100644
--- a/docs/source/tuto_s4u/draw_gantt.R
+++ b/docs/source/tuto_s4u/draw_gantt.R
@@ -1,23 +1,22 @@
 #!/usr/bin/env Rscript
 args = commandArgs(trailingOnly=TRUE)
-library(ggplot2)
-df = read.csv(args[1], header=F, strip.white=T)
-names(df) = c("Type", "Actor", "Container", "Start", "End", "Duration", "Level", "State"); 
-ggplot(df) + 
-    geom_segment(aes(x=Start, xend=End,
-                     y=Actor, yend=Actor,color=State), size=5) +
-    scale_fill_brewer(palette="Set1") +
-    theme_bw() +
-    theme (
-        plot.margin = unit(c(0,0,0,0), "cm"),
-        legend.spacing = unit(1, "mm"),
-        panel.grid = element_blank(),
-        legend.position = "top",
-        legend.justification = "left",
-        legend.box.spacing = unit(0, "pt"),
-        legend.box.margin = margin(0,0,0,0)) -> p;
+library(tidyverse)
+library(pajengr)
 
-p.height <- length(unique(df$Actor)) * 0.05 + 2;
+# Load and relabel the data
+df = pajeng_read(args[1])
+df$state %>%
+    # rename some columns to use SimGrid terminology
+    rename(Actor = Container,
+           State = Value) %>%
+    # do the plot
+    ggplot() +
+    geom_segment(aes(x=Start, xend=End, y=Actor, yend=Actor, color=State), size=5) -> p
+
+# Cosmetics to compact the resulting graph
+p.height <- length(unique(df$state$Actor)) * 0.05 + 2
 pdf(height = p.height)
+
+# Produce the pdf file
 plot(p)
 dev.off()