library(RMySQL); con<-dbConnect(MySQL(),dbname='skwiki');

dd<-dbGetQuery(con, 'select datum from fm_WaysStats');
dates<-as.Date('2010-12-12')
for(i in 1:length(dd[,1])) dates[i] = as.Date(dd[i,]);

plotonly<-function(data) {
	colnames<-names(data);
	plot(dates,data[,colnames[1]], axes=FALSE,ylim=c(0,max(data)));
	for(line in colnames) {
		lines(dates, data[,line]);
	}
	axis(1, at=dates, labels=format(dates, "%b %y"))
}

plottypes<-function(name, types) {
	q<-paste('select `',paste(types, collapse='`,`'), '` from fm_WaysStats', sep='');
	data<-dbGetQuery(con, q);
	plotonly(data);
	return(paste('`', paste(types,collapse='`+`'), '` as ',name, sep=''));
}

plotsummary<-function(all) {
	q<-paste('select ',paste(all, collapse=','), ' from fm_WaysStats', sep='');
	data<-dbGetQuery(con,q);
	plotonly(data);
}

all<-c(
plottypes('forest',c('track',"footway",'path')),
plottypes('fastcars',c('motorway','motorway_link','trunk','trunk_link')),
plottypes('cars',c('primary','secondary','tertiary')),
plottypes('foot',c('footway','pedestrian','path','steps'))
);

plotsummary(all);