chart.ratios <- function(ratios, industry) {
    l <- ncol(t(ratios))
    yr <- seq(2005, 2012, by = 1)
    for (i in 1:l) {
        png(paste("/home/pulkit/workspace/lab/kamal/", t(ratios)[, i][1], sep = ""))
        plot(x = yr, t(ratios)[, i][-1], ylab = t(ratios)[, i][1], xlab = "year", 
            type = "l")
        lines(x = yr, y = t(industry)[, i][-1], col = "blue")
        dev.off()
    }
}