BusinessDate<-c("01-01-2014","01-02-2014","01-03-2014","01-04-2014","01-05-2014")
Corn<-c(1000000000,2,3,.0000000005,4)
Wheat<-c(2000000,1,8,10,.111111115)
risk<- data.frame(BusinessDate, Corn, Wheat)
sparklines(risk[,c("Corn", "Wheat")],
       times=as.numeric(risk$BusinessDate),
       ptopts=('min.max'),  buffer= unit(1,'lines'),
       outer.margin=unit(c(4,12,4,15),'lines'))

sparklines(risk[,c("Corn", "Wheat")],
       times=as.numeric(risk$BusinessDate),
       ptopts=list(labels='min.max', gp=gpar(col=c("red", "green") )),  buffer= unit(1,'lines'),
       outer.margin=unit(c(4,12,4,15),'lines'))

libary(YaleToolkit)
 sparklines
 sparkline