2 args = commandArgs(trailingOnly=TRUE)
6 # Load and relabel the data
7 df = pajeng_read(args[1])
9 # rename some columns to use simgrid terminology
10 rename(Actor = Container,
14 geom_segment(aes(x=Start, xend=End, y=Actor, yend=Actor, color=State), size=5) -> p
16 # Cosmetics to compact the resulting graph
17 p.height <- length(unique(df$state$Actor)) * 0.05 + 2
18 pdf(height = p.height)
20 # Produce the pdf file