gistfile1.r

library(ggplot2)
# Generated with lp:txpkgme
#
# $ ./bin/py ./bin/parse-subunit-output --format csv /PATH/TO/SCOREBOARD/OUTPUT
#
# Scoreboard output is obtained by running retry-all-apps on emim.
scoreboard <- read.csv("~/Desktop/scoreboard-2012-09-20.csv")
commercial <- scoreboard[which(scoreboard$error != "UNPACKAGEABLE" & scoreboard$state == 'Published' & scoreboard$queue == "commercial"),]
qplot(commercial$backend, fill=commercial$error, xlab="Backend") + 
    scale_fill_discrete(
      name="Outcome", 
      breaks=c("", "MISSING-DEP", "MULTI-ARCH", "NO-BACKEND", "NOT-IMPLEMENTED-YET", "TIMEOUT", "OTHER"), 
      labels=c(
        "Success", 
        "Missing dependency", 
        "i386 and amd64", "No backend", 
        "Not implemented yet", 
        "Timeout", 
        "Other"))