library(mapproj)
# assumes that the time zone shape files have been downloaded
# from: http://openmap.bbn.com/data/shape/timezone/
tz <- read.shape('WRLDTZA')
plot(project.Map(tz,'bonne',param=45))
plot(project.Map(tz,'albers',param=c(30,40)))
plot(project.Map(tz,'gnomonic',orient=c(0,-100,0)))Run the code above in your browser using DataLab