-start_image("daily-node-count.png")
-plot(dnc2$start[which(!is.na(dnc2$available))], dnc2$registered[which(!is.na(dnc2$available))],
- type='l', col='blue', ylim=c(0,900), xlim=c(x_start, x_end),
- xlab="Date", ylab="Node Count", axes=F)
-lines(dnc2$start[which(!is.na(dnc2$available))], dnc2$available[which(!is.na(dnc2$available))], type='l', col='red', ylim=c(0,900))
-axis(2)
+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)
+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$available[which(!is.na(dnc2$available))],
+#type='l', col='red', ylim=c(0,1000))
+axis(2, las=1)