# rm(list=ls())

# setwd('d:/zlh/zlh cs/Rmap/')

# library('geoR')

# library('maps')

# library('GISTools')

# library("akima")

# library("tseries")

# library('sp')

# library('ggplot2')

# library('ggmap')

# # library(animation)

# # library(XML)

#生成R色卡

# pdf.color="bar.pdf"

# pdf(pdf.color,height=120)

# par(mar=c(0,10,3,0)+0.1,yaxs='i')

# barplot(rep(1,length(colors())),

# col=rev(colors()),

# names.arg=rev(colors()),horiz=T,las=1,xaxt='n',

# main=expression("Bars of different colors in function"

# ~italic(colors())))

# dev.off()

# shell.exec(pdf.color)