#!/usr/bin/R

png(file="usage.png", width=800, height=600)

data <- read.table('stats', header=TRUE)

data$date <- as.Date(data$date)

plot(data$date, data$n, type='p', pch=1,
     xlab="Month", ylab="Number of users",
     xaxt='n')

points(data$date, data$n10, type='p', pch=3)
points(data$date, data$n100, type='p', pch=4)

legend("topleft", "(x,y)",
       c("Total Users",
         "10 Logins",
         "100 Logins"),
       pch=c(1,3,4), inset=0.05)

title("Linerva Usage")

axis.Date(1,
          at=seq(data$date[1], data$date[length(data$date)], by='3 months'),
          format="%b %Y", xpd=TRUE)
axis.Date(1,
          at=seq(data$date[1], data$date[length(data$date)], by='month'),
          labels=FALSE)

axis(4, at=seq(0,1000,100))

dev.off()