The extractLongLatData() uses the ggmap API in R to extract longitude and latitude data for a set of pincodes supplied in a csv file

longlat.r

extractLongLatData <- function(file)
{
  	library(ggmaps) #In case you dont have the package, use this command - install.packages(ggmaps, dependencies = TRUE)
	data <- read.csv(file)	
	v <- as.list(data["pincode"]) #assuming the attribute containing the pincodes in the supplied CSV file is named "pincode"
	pc <- sapply(v,as.character)
	pc <- sapply(pc,function(x) { paste(x,"India", sep = " ")}) #change the argument in paste() from "India" to whichever country the pincodes belong to
	longlatpc <- geocode(pc, source = "google")
	library(xlsx) #In case you dont have the package, use this command - install.packages(xlsx, dependencies = TRUE)
	write.xlsx2(longlatpc,'longlatpincode.xlsx')
}