這個(gè)是忙了好些天整理提取出來(lái)的中國(guó)地區(qū)底圖文件，是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)