So to clarify, you have a list of dataframes, and you want to make a histogram for each dataframe in that list with the title of the histogram corresponding to the name of that element in that list? From your above code I'm assuming the list is named india

library(ggplot2)

for (i in seq(length(india))) { #for each 
    p = qplot(india[[i]], geom="histogram", binwidth = 0.5, main =sprintf("Histogram of %s",names(india)[i]), fill=I("red"), 
              col=I("blue"), xlab = names(india)[i], ylab = "Count Frequency") + theme_bw()
    print(p)
 }

This code creates a for loop for each element in the list (i.e. if your list is 5 dataframes the loop will run 5 times with i corresponding to each number), generates the histogram by calling just that dataframe (india[[i]]) and uses the sprintf function to add the name of the list element to the title and xlab of the histogram.

Looks like you have a list of vectors not dataframes, so here are 2 options:

Example data

library(ggplot2)
set.seed(1); x <- runif(100); myList <- split(x, cut_number(x, 4))

Option 1: for loop, output to pdf.

pdf("myPlots.pdf")
for(i in names(myList)){
  # i = names(myList)[1]
  print(
    ggplot(data.frame(x = myList[[ i ]]), aes(x)) +
      geom_histogram() +
      ggtitle(i)
  )
}
dev.off()

Option 2 convert list to single dataframe, then use facets, output a single plot.

plotDat <- stack(myList)

ggplot(plotDat, aes(x = values)) +
  geom_histogram() +
  facet_wrap(.~ind, ncol = 2)