# bottom, left, top, right margins
par(mai=c(0.2, 1, 0.3, 0.1))
# bottom, left, top, right margins
par(mai=c(0.2, 1, 0.3, 0.1))
-plot(cm$ts, cm$online, type='l', col='black',
+plot(cm$ts, cm$total, type='l', col='grey60',
#axis(1, labels=tg$month_str, at=tg$month_ts, cex.axis=0.7)
#axis(1, tick=F, labels=tg$year_str, at=tg$year_ts, cex.axis=0.7, line=1)
axis(1, labels=c("","","","","","",""), at=tg$year_ts, cex.axis=0.7, line=-0.5)
axis(2, las=1)
#axis(1, labels=tg$month_str, at=tg$month_ts, cex.axis=0.7)
#axis(1, tick=F, labels=tg$year_str, at=tg$year_ts, cex.axis=0.7, line=1)
axis(1, labels=c("","","","","","",""), at=tg$year_ts, cex.axis=0.7, line=-0.5)
axis(2, las=1)
par(mai=c(1, 1, 0.2, 0.1))
par(mai=c(1, 1, 0.2, 0.1))