From: Joerg Jaspert Date: Fri, 14 Aug 2009 20:35:20 +0000 (+0200) Subject: ftpstats.r X-Git-Url: https://err.no/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=f06f23ab8165af6e231f3262b81d32a44c3a7639;p=dak ftpstats.r add the file to git so others can play with it Signed-off-by: Joerg Jaspert --- diff --git a/scripts/debian/ftpstats.R b/scripts/debian/ftpstats.R new file mode 100644 index 00000000..62846c76 --- /dev/null +++ b/scripts/debian/ftpstats.R @@ -0,0 +1,20 @@ +arch <- c("source", "all", "amd64", "i386", "alpha", "arm", "armel", "hppa", "hurd-i386", "ia64", + "mips", "mipsel", "powerpc", "s390", "sparc") +palette(c("midnightblue", "gold", "turquoise", "cyan", "black", "red", "OrangeRed", "green3", "blue", + "magenta", "tomato4", + "violetred2","thistle4", "steelblue2", "springgreen4", + "salmon","gray")) +cname <- c("date",arch) +plotsize <- function(file,title,p,height=11.8,width=16.9) { + bitmap(file=file,type="png16m",width=16.9,height=11.8) + barplot(t(p),col = 1:15, main=title, + xlab="date", ylab="size (MiB)") + legend(par("usr")[1]+xinch(5),par("usr")[4]-yinch(0.1),legend=colnames(t), + ncol=3,fill=1:15,xjust=1,yjust=1) +} +t <- (read.table("/org/ftp.debian.org/misc/ftpstats.data",sep=",",header=0,row.names=1,col.names=cname))/1024/1024 +v <- t[(length(t$all)-90):(length(t$all)),1:15] + +#plotsize("/org/ftp.debian.org/web/size.png","Daily dinstall run size by arch",t) +plotsize("/org/ftp.debian.org/web/size-quarter.png","Daily dinstall run size by arch (past quarter)",v) +