X-Git-Url: http://git.onelab.eu/?p=monitor.git;a=blobdiff_plain;f=statistics%2Fnode_history_may0809.r;h=ac7c3dfd6e530907b291a9eca8381abe7fa7a89f;hp=0b6b8f39b3e90e19ba499e4d92318c20e3130589;hb=a403ef9f15068971de470ce7c66c59252b118f39;hpb=db84a19276e861081756a7daec54aba8a1507abe

diff --git a/statistics/node_history_may0809.r b/statistics/node_history_may0809.r
index 0b6b8f3..ac7c3df 100644
--- a/statistics/node_history_may0809.r
+++ b/statistics/node_history_may0809.r
@@ -15,51 +15,72 @@ months <- format(dates, "%b")
 hbreaks<-unclass(as.POSIXct(dates))
 
 x_start<-unclass(as.POSIXct("2008-05-07", origin="1970-01-01"))[1]
-x_end  <-unclass(as.POSIXct("2009-06-1", origin="1970-01-01"))[1]
-
-par(mfrow=c(1,1))
-par(mai=c(.9,.8,.5,.4))
-start_image("daily-node-count.png", height=400)
-#plot(dnc2$start[which(!is.na(dnc2$available))], dnc2$registered[which(!is.na(dnc2$available))], 
-#    type='l', col='blue', ylim=c(0,1000), xlim=c(x_start, x_end),
-#    xlab="Date", ylab="Node Count", axes=F)
+x_end  <-unclass(as.POSIXct("2009-07-1", origin="1970-01-01"))[1]
+
+par(mfrow=c(2,1))
+par(mai=c(.9,.8,.2,.2))
+#start_image("daily-node-count.png", height=400)
 plot(dnc2$start[which(!is.na(dnc2$available))], dnc2$available[which(!is.na(dnc2$available))], 
     type='l', col='red', ylim=c(0,600), xlim=c(x_start, x_end),
     xlab="Date", ylab="Online Node Count", axes=F)
+
+lines(dnc2$start[which(!is.na(dnc2$available) & dnc2$start > tstamp_0510 & dnc2$start <= tstamp_0815)], dnc2$available[which(!is.na(dnc2$available)& dnc2$start > tstamp_0510 & dnc2$start <= tstamp_0815)], type='l', col='green')
+
+lines(dnc2$start[which(!is.na(dnc2$available) & dnc2$start > tstamp_1105 & dnc2$start <= tstamp_0223)], dnc2$available[which(!is.na(dnc2$available)& dnc2$start > tstamp_1105 & dnc2$start <= tstamp_0223)], type='l', col='blue')
 #lines(dnc2$start[which(!is.na(dnc2$available))], dnc2$available[which(!is.na(dnc2$available))], 
 #type='l', col='red', ylim=c(0,1000))
 axis(2, las=1)
-axis(1, labels=months, at=hbreaks)
+axis(1, cex.axis=0.7, labels=months, at=hbreaks)
+       
 
 
-tstamp_0610 <-abline_at_date("2008-06-10", col='grey20', lty=2)
+#tstamp_0510 <-abline_at_date("2008-05-10", col='grey20', lty=0, height=570)
 # dates takes from reboot_image() output for API events.
-tstamp_0815 <-abline_at_date("2008-08-15", col='grey20', lty=2)
-tstamp_0905 <-abline_at_date("2008-09-05", col='grey70')
-tstamp_0924 <-abline_at_date("2008-09-24", col='grey20', lty=2)
-tstamp_1015 <-abline_at_date("2008-10-15", col='grey20', lty=2)
-tstamp_1105 <-abline_at_date("2008-11-05", col='white', lty=2)
-tstamp_1214 <-abline_at_date("2008-12-14", col='grey70')
-tstamp_0223 <-abline_at_date("2009-02-23", col='grey70')
-tstamp_0313 <-abline_at_date("2009-03-13", col='grey70')
-
-
-text(x=c(tstamp_0610+(tstamp_0815-tstamp_0610)/2,
-         tstamp_0815+(tstamp_0905-tstamp_0815)/2,
-         tstamp_0924+(tstamp_1015-tstamp_0924)/2, 
-         tstamp_1015+(tstamp_1214-tstamp_1015)/2, 
-         tstamp_1214+(tstamp_0223-tstamp_1214)/2, 
-         tstamp_0223+(tstamp_0313-tstamp_0223)/2), 
-     y=c(0),
-     labels=c("Kernel bug", 'fix1', 'fix2', 'fix3', 'Notice bug', 'fix4')) #, 'fix 2', 'fix 3', 'fix 4'))
+# green
+tstamp_0610 <-abline_at_date("2008-06-10", col='grey20', lty=2, height=570)
+tstamp_0815 <-abline_at_date("2008-08-15", col='grey70', lty=1, height=570)
+
+# red
+#tstamp_0905 <-abline_at_date("2008-09-05", col='grey70', height=570)
+tstamp_0924 <-abline_at_date("2008-09-24", col='grey70', lty=1, height=570)
+tstamp_1015 <-abline_at_date("2008-10-15", col='grey20', lty=2, height=570)
+# blue
+#tstamp_1105 <-abline_at_date("2008-11-05", col='white', lty=2, height=570)
+#tstamp_1214 <-abline_at_date("2008-12-14", col='grey70', height=570)
+tstamp_0223 <-abline_at_date("2009-02-23", col='grey70', height=570)
+# red
+#tstamp_0313 <-abline_at_date("2009-03-13", col='grey70', height=570)
+
+#text(x=c(tstamp_0610+(tstamp_0815-tstamp_0610)/2,
+#         tstamp_0815+(tstamp_0905-tstamp_0815)/2,
+#         tstamp_0924+(tstamp_1015-tstamp_0924)/2, 
+#         tstamp_1015+(tstamp_1214-tstamp_1015)/2, 
+#         tstamp_1214+(tstamp_0223-tstamp_1214)/2, 
+#         tstamp_0223+(tstamp_0313-tstamp_0223)/2), 
+#     y=c(0),
+#     labels=c("bug1", 'fix1', 'fix2', 'fix3', 'bug2', 'fix4')) #, 'fix 2', 'fix 3', 'fix 4'))
+
+text(x=c(tstamp_0610,
+         tstamp_0815,
+         tstamp_0924),
+     y=c(610),
+     adj=c(1, 0.5),
+     labels=c("bug1", 'fix1', 'fix2')) #, 'fix 2', 'fix 3', 'fix 4'))
+
+
+text(x=c(tstamp_1015,
+         tstamp_0223),
+     adj=c(0, 0.5),
+     y=c(610),
+     labels=c('bug2', 'fix3')) #, 'fix 2', 'fix 3', 'fix 4'))
 
 mtext("2008                                 2009", 1,2)
-legend(unclass(as.POSIXct("2009-03-13", origin="1970-01-01"))[1], 100,
-        cex=0.7,
-        legend=c("Online", 'Kernel Update', 'MyOps Event'),
+legend(unclass(as.POSIXct("2009-02-23", origin="1970-01-01"))[1], 200,
+        cex=0.5,
+        legend=c("Kernel Bug", "Notice Bug", "Typical MyOps", 'Bugs', 'Fixes'),
         pch=c('-', '-', '-'),
-        col=c('red', 'grey20', 'grey70'),
-        lty=c(1, 2, 1), merge=T)
+        col=c('green', 'blue', 'red', 'grey20', 'grey70'),
+        lty=c(1, 1, 1, 2, 1), merge=T)
 
         #legend=c("Registered", "Online", 'Kernel Update', 'MyOps Event'),
         #pch=c('-', '-', '-', '-'),