这个是忙了好些天整理提取出来的中国地区底图文件，是R软件绘图必备的资料！供大家参考！

# 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)