R-中国地图.docxVIP

R-中国地图 调用相关包 install.packages(c(maps, mapdata,sp“,maptools)) library(maps) library(mapdata) library(sp) library(maptools) map(china) x=readShapePoly(D:/工作文件夹/R语言与中国地图/chinaprovinceborderdata_tar_gz/bou2_4p.shp) plot(a) plot(a,col=gray(924:0/924)) getColor=function(mapdata,provname,provcol,othercol) { f=function(x,y) ifelse(x %in% y,which(y==x),0); colIndex=sapply(mapdata@data$NAME,f,provname); col=c(othercol,provcol)[colIndex+1]; return(col);} #自定义函数，不会弄 #举例 Provname-c(北京市,天津市,上海市,重庆市) Provcol-c(red,green,yellow,purple) plot(x,col=getColor(x,provname,provcol,white)) #读取数据 b-read.table(D:/工作文件夹/R语言与中国地图/population.txt,head=T) provname-as.matrix(b[,2]) pop-as.matrix(b[,3]) provcol=rgb(red=1-pop/max(pop)/10,green=1-pop/max(pop)/2,blue=0.2) plot(x,col=getColor(x,provname,provcol,white),xlab=,ylab=) 利用google数据 library(googleVis) #类似的包还有ggmap 等 b-read.table(D:/工作文件夹/R语言与中国地图/population.txt,head=T) G3 - gvisGeoChart(b, locationvar=ISO代码, colorvar=人口数量,options=list(region=CN, displayMode=regions,resolution=provinces, colorAxis={colors: [yellow,red]} )) plot(G3)  HYPERLINK /2009/07/drawing-china-map-using-r/ /2009/07/drawing-china-map-using-r/  HYPERLINK /article-3062-1.html /article-3062-1.html 参考网站  HYPERLINK /info/country/ /info/country/ 省份数据 中国航线地图 library(maptools) x=readShapePoly(D:/工作文件夹/R语言与中国地图/chinaprovinceborderdata_tar_gz/bou2_4p.shp) plot(x) getColor=function(mapdata,provname,provcol,othercol) { f=function(x,y) ifelse(x %in% y,which(y==x),0); colIndex=sapply(mapdata@data$NAME,f,provname); col=c(othercol,provcol)[colIndex+1]; return(col);} #自定义函数 Par(mar(0,0,1,0),bg=”gray”) plot(x,col=black,border=black) #航线数据处理 library(stringr) data.port-read.csv(D:\\工作文件夹\\R语言与中国地图 HYPERLINK \\\\airports.dat,F \\airports.dat,F) data.line-read.csv(D:\\工作文件夹\\R语言与中国地图 HYPERLINK \\\\airlines.dat,F \\ routes.dat,F) chinaport-str_detect(data.port[,V4],China) chinaport - data.port[chinaport,] chinaport-chinaport[chinaport$V5!=,c(V3,V5,V7,V8,V9)]