#!/usr/bin/env r
library(yaml)
library(plotrix)
filename <- "../data/storms.yaml"
yamlstring <- paste(readLines(filename), collapse = "\n")
# storms <- yaml.load(yamlstring)
storms <- yaml.load(yamlstring, handlers = list(map = function(x) { as.data.frame(x) }))
result = storms[[1]]
for (i in seq(2,length(storms))){ 
 result <- merge(result, storms[[i]], all=T)
}

result$date <-  as.Date(result$date)
row.names(result) <- format(result$date,"%Y-%m-%d")


pdf("timeline.pdf", paper='a4r')
plot(rep(0,length(result$date))~date,result,type="b",axes=F,ann=F, ylim=c(-0.1,0.1))
#points(result$date,rep(0,length(result$date)), cex = 5, col = "dark red")
spread.labels(result$date,rep(0,length(result$date)),row.names(result),ony=F,between=F, cex=0.4)
dev.off( ) 

quartz()
# plot timeline

plot(rep(0,length(result$date))~date,result,type="b",axes=F,ann=F, ylim=c(-0.1,0.1))
#points(result$date,rep(0,length(result$date)), cex = 5, col = "dark red")
spread.labels(result$date,rep(0,length(result$date)),row.names(result),ony=F,between=F, cex=0.5)
# plot distribution by month

#barplot(table(months(result$date)),beside=T)