X-Git-Url: http://info.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/blobdiff_plain/720a0e4d7fd0be4eb53659c84e5431836a5898b4..f09bb64b852043292377203fcdeef18defe240de:/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 f3ab44d450..3e9afb7157 100644 --- a/docs/source/tuto_s4u/draw_gantt.R +++ b/docs/source/tuto_s4u/draw_gantt.R @@ -5,13 +5,13 @@ library(pajengr) # Load and relabel the data df = pajeng_read(args[1]) -names(df$state) = c("Type", "Actor", "Container", "Start", "End", "Duration", "Level", "State"); +names(df$state) = c("Type", "Actor", "Container", "Start", "End", "Duration", "Level", "State") # Actually draw the graph -p = ggplot(df$state) + geom_segment(aes(x=Start, xend=End, y=Actor, yend=Actor,color=State), size=5); +p = ggplot(df$state) + geom_segment(aes(x=Start, xend=End, y=Actor, yend=Actor,color=State), size=5) # Cosmetics to compact the resulting graph -p.height <- length(unique(df$state$Actor)) * 0.05 + 2; +p.height <- length(unique(df$state$Actor)) * 0.05 + 2 pdf(height = p.height) # Produce the pdf file