etc/graph.R

   1 arch <- c("amd64", "armel", "hurd-i386", "i386", "ia64", "kfreebsd-amd64",
   2         "kfreebsd-i386", "mips", "mipsel", "powerpc", "s390", "sparc")
   3 palette(c("black", "turquoise", "red", "OrangeRed", "green3", "cyan",
   4         "blue", "yellow", "magenta",
   5         "violetred2","thistle4", "steelblue2", "springgreen4",
   6         "salmon"))
   7
   8 readdata <- function (file,start) {
   9         t <- read.table(file,row.names=1,header=FALSE,
  10         sep=",",col.names=c("date","alpha","at","arm","art","hppa","ht","hurd-i386",
  11         "hit","i386","it","ia64","i6t","m68k","mt","mips","mit","mipsel","mipt",
  12         "powerpc","pt","s390","st","amd64","amdt","sparc","spt","armel","aret",
  13         "kfreebsd-amd64", "kfreebsd-amd64-t", "kfreebsd-i386", "kfreebsd-i386-t"))
  14         ts(as.matrix(data.frame(
  15         t[23]/t[24]*100, #amd64
  16         t[27]/t[28]*100, #armel
  17         t[7]/t[8]*100, #hurd-i386
  18         t[9]/t[10]*100, #i386
  19         t[11]/t[12]*100, #ia64
  20         t[29]/t[30]*100, #kfreebsd-amd64
  21         t[31]/t[32]*100, #kfreebsd-i386
  22         t[15]/t[16]*100, #mips
  23         t[17]/t[18]*100, #mipsel
  24         t[19]/t[20]*100, #powerpc
  25         t[21]/t[22]*100, #s390
  26         t[25]/t[26]*100 #sparc
  27         )),c(2001,start),frequency=365.25)
  28 }
  29
  30 plotwb <- function (file,title,p,linept=85,height=7.5,width=10,pch=1:16) {
  31         bitmap(file=file,type="png16m",width=width,height=height,res=64)
  32         layout(matrix(c(1,1,2,2),2,2),widths=c(0.85,0.15))
  33         par(mar=c(5,4,4,2)+0.1)
  34         par(lab=c(10,10,7))
  35         plot(p,type="o",plot.type="single",col=1:16,pch=pch,xlab="date",
  36                 ylab="percentage of packages",main=title,cex=2)
  37         abline(h=90,lty=2,col=3)
  38         abline(h=linept,lty=2,col=3)
  39         axis(4)
  40         plot.new()
  41         par(plt=c(0,1,0,1))
  42         legend(-1.2,1, arch, col=1:16, pch=pch, lwd=2, bg='gray90', cex=1.5)
  43 }
  44 v <- readdata("/org/wanna-build/etc/graph-data",164)
  45 plotwb("/org/buildd.debian.org/web/stats/graph.png","What percent is built for each architecture",v,85,7.5,10,".")
  46 plotwb("/org/buildd.debian.org/web/stats/graph-big.png","What percent is built for each architecture",v,85,15,20,".")
  47 plotwb("/org/buildd.debian.org/web/stats/graph-week.png","What percent is built for each architecture (past two weeks)",window(v,start=time(v)[length(time(v))-14]),85)
  48 plotwb("/org/buildd.debian.org/web/stats/graph-week-big.png","What percent is built for each architecture (past two weeks)",window(v,start=time(v)[length(time(v))-14]),85,15,20)
  49 plotwb("/org/buildd.debian.org/web/stats/graph-quarter.png","What percent is built for each architecture (past quarter)",window(v,start=time(v)[length(time(v))-90]),85)
  50 plotwb("/org/buildd.debian.org/web/stats/graph-quarter-big.png","What percent is built for each architecture (past quarter)",window(v,start=time(v)[length(time(v))-90]),85,15,20)
  51 v <- readdata("/org/wanna-build/etc/graph2-data",279)
  52 plotwb("/org/buildd.debian.org/web/stats/graph2.png","How architectures are keeping up",v,95,7.5,10,".")
  53 plotwb("/org/buildd.debian.org/web/stats/graph2-big.png","How architectures are keeping up",v,95,15,20,".")
  54 plotwb("/org/buildd.debian.org/web/stats/graph2-week.png","How architectures are keeping up (past two weeks)",window(v,start=time(v)[length(time(v))-14]),95)
  55 plotwb("/org/buildd.debian.org/web/stats/graph2-week-big.png","How architectures are keeping up (past two weeks)",window(v,start=time(v)[length(time(v))-14]),95,15,20)
  56 plotwb("/org/buildd.debian.org/web/stats/graph2-quarter.png","How architectures are keeping up (past quarter)",window(v,start=time(v)[length(time(v))-90]),95)
  57 plotwb("/org/buildd.debian.org/web/stats/graph2-quarter-big.png","How architectures are keeping up (past quarter)",window(v,start=time(v)[length(time(v))-90]),95,15,20)