#!/usr/bin/env Rscript
 args<-commandArgs(TRUE)
 data <- read.csv(file="stdin",
   col.names=c("date","value"))

 data$date <- as.Date(data$date, "%Y-%m-%d")
 data <- data[order(data$date,
   decreasing=FALSE),]

 png(file="timeseries.png")
 plot(value ~ date,data,col="blue",
   xaxt="n",type="l",ylab=args[1])
 axis(1, data$date,
   format(data$date, "%Y"), cex.axis=2)