[Piuparts-commits] [piuparts] 01/05: p-r: reorder stacking in the bts_stats plot

[Holger Levsen]

This is an automated email from the git hooks/post-receive script.

holger pushed a commit to branch develop
in repository piuparts.

commit c186983432660949dec1c9120202483891eef338
Author: Andreas Beckmann <anbe at debian.org>
Date:   Sat Mar 18 12:47:20 2017 +0100

    p-r: reorder stacking in the bts_stats plot
    
    Signed-off-by: Andreas Beckmann <anbe at debian.org>
    Signed-off-by: Holger Levsen <holger at layer-acht.org>
---
 debian/changelog   | 1 +
 piuparts-report.py | 9 ++++-----
 2 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/debian/changelog b/debian/changelog
index 6f66ff2..4f1f924 100644
--- a/debian/changelog
+++ b/debian/changelog
@@ -24,6 +24,7 @@ piuparts (0.77) UNRELEASED; urgency=medium
   * piuparts-report.py:
     - Plot all states in the graphs.
     - Support new states in plots (varying number of columns in counts.txt).
+    - Reorder stacking in the bts_stats plot.
   * custom-scripts: Check for dummy package "TARBALL" to detect tarball
     creation phase.
   * master-bin/detect_archive_issues:
diff --git a/piuparts-report.py b/piuparts-report.py
index bb169cd..fb93885 100644
--- a/piuparts-report.py
+++ b/piuparts-report.py
@@ -1680,15 +1680,14 @@ def make_bts_stats_graph(master_dir, out_dir):
     grdevices.png(file=pngfile, width=1600, height=900, pointsize=10, res=100)
     r = robjects.r
     r('t <- (read.table("' + countsfile + '",sep=",",header=1,row.names=1))')
-    r('cname <- c("date",rep(colnames(t)))')
     # make graph since day 1
-    r('v <- t[0:nrow(t),0:4]')
+    r('v <- t[c(4, 2, 3, 1)]')  # reorder columns
     # tango colors again:
-    r('palette(c("#8ae234", "#ef2929", "#4e9a06", "#a40000"))')
-    r('barplot(t(v),col = 1:5, \
+    r('palette(c("#a40000", "#ef2929", "#4e9a06", "#8ae234"))')
+    r('barplot(t(v),col = 1:4, \
         main="Bugs with usertag=piuparts and user=debian-qa at lists.debian.org", \
         xlab="", ylab="Total number of RC and non-RC bugs submitted and closed", space=0, border=NA)')
-    r('legend(x="bottom",legend=colnames(t), ncol=2,fill=1:5,xjust=0.5,yjust=0,bty="n")')
+    r('legend("right", legend=rev(colnames(v)), fill=rev(1:4), inset=0.05, bty="n")')
     grdevices.dev_off()
 
 

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/piuparts/piuparts.git