[med-svn] r2353 - trunk/community/talks/200808_debconf8

[tille at alioth.debian.org]

Author: tille
Date: 2008-07-28 13:12:12 +0000 (Mon, 28 Jul 2008)
New Revision: 2353

Added:
   trunk/community/talks/200808_debconf8/list_stats
Modified:
   trunk/community/talks/200808_debconf8/debian_med_stats
Log:
Add script which creates graph comparison between CDD lists


Modified: trunk/community/talks/200808_debconf8/debian_med_stats
===================================================================
--- trunk/community/talks/200808_debconf8/debian_med_stats	2008-07-28 12:35:23 UTC (rev 2352)
+++ trunk/community/talks/200808_debconf8/debian_med_stats	2008-07-28 13:12:12 UTC (rev 2353)
@@ -19,7 +19,8 @@
         # legend = colnames(dmstats[,2:4]),
         main = "Number of dependencies of selected Debian Med metapackages"
         )
-legend(x="topleft", colnames(dmstats[,2:4]),fill=rainbow(3), inset=0.05
+legend(x="topleft", colnames(dmstats[,2:4]),fill=rainbow(3), inset=0.05,
+       text.col=textcolor
       )
 
 EOT

Added: trunk/community/talks/200808_debconf8/list_stats
===================================================================
--- trunk/community/talks/200808_debconf8/list_stats	                        (rev 0)
+++ trunk/community/talks/200808_debconf8/list_stats	2008-07-28 13:12:12 UTC (rev 2353)
@@ -0,0 +1,32 @@
+#!/bin/sh
+# This script draws a plot to compare mailing list activities on
+# CDDs and related projects.
+
+DATFILE="liststat_year.dat"
+psql -t cddlistarchives -c 'SELECT BuildQueryCDDsYear() ;' | \
+   psql cddlistarchives \
+   >"$DATFILE"
+      
+sed -i -e '/^[-+]\+$/d' -e '/^([0-9]\+ [A-Za-z]\+)$/d' -e 's/[[:space:]]*|[[:space:]]*/\t/g' "$DATFILE"
+      
+R --no-save <<EOT
+library(plotrix)
+dmstats <- read.table(file='$DATFILE', sep = '\t', fill=TRUE, header=TRUE )
+# png("dmstats.png", width = 800, height = 600)
+textcolor="yellow"
+pdf("liststat.pdf", fg=textcolor)
+par(col.axis=textcolor,col.main=textcolor)
+dmstats.mat <- as.matrix(dmstats)[,2:9]
+rownames(dmstats.mat) <- dmstats[['year']]
+dmstats.mat <- t(dmstats.mat)
+
+# barplot(dmstats.mat,beside=TRUE,col=rainbow(3),legend.text=TRUE)
+barplot(dmstats.mat,beside=TRUE,col=rainbow(8))
+# plot(dmstats.mat,col=rainbow(8))
+legend(x="topleft", colnames(dmstats[,2:9]),fill=rainbow(8), inset=0.05,
+       text.col=textcolor
+      )
+
+EOT
+
+rm $DATFILE


Property changes on: trunk/community/talks/200808_debconf8/list_stats
___________________________________________________________________
Name: svn:executable
   + *