R語言環境

R3.1.1 Windows8.1

需要安裝的packages: maptools,gp

繪圖所需要的數據

中國地圖的GIS數據(可以此下面的網址下載)

http://cos.name/wp-content/uploads/2009/07/chinaprovinceborderdata_tar_gz.zip

是一個壓縮包，完全解壓后包含三個文件(bou2_4p.dbf、bou2_4p.shp和bou2_4p.shx)

中國各省會城市的經緯度數據

城市,Jd,Wd

北 京,116.4666667,39.9

上 海,121.4833333,31.23333333

天 津,117.1833333,39.15

重 慶,106.5333333,29.53333333

哈爾濱,126.6833333,45.75

長 春,125.3166667,43.86666667

沈 陽,123.4,41.83333333

呼和浩特,111.8,40.81666667

石家莊,114.4666667,38.03333333

太 原,112.5666667,37.86666667

濟 南,117,36.63333333

鄭 州,113.7,34.8

西 安,108.9,34.26666667

蘭 州,103.8166667,36.05

銀 川,106.2666667,38.33333333

西 寧,101.75,36.63333333

烏魯木齊,87.6,43.8

合 肥,117.3,31.85

南 京,118.8333333,32.03333333

杭 州,120.15,30.23333333

長 沙,113,28.18333333

南 昌,115.8666667,28.68333333

武 漢,114.35,30.61666667

成 都,104.0833333,30.65

貴 陽,106.7,26.58333333

福 州,119.3,26.08333333

臺 北,121.5166667,25.05

廣 州,113.25,23.13333333

海 口,110.3333333,20.03333333

南 寧,108.3333333,22.8

昆 明,102.6833333,25

拉 薩,91.16666667,29.66666667

香 港,114.1666667,22.3

澳門,113.5,22.2

繪圖腳本

#設置當前工作目錄

setwd("E:/R語言學習/")

#加載packages

library(sp)

library(maptools)

#讀取省會城市經緯度數據

data

#讀取各省的邊界數據等

border

#設置輸出文件

#jpeg("chinamap.jpeg")

#畫地圖

plot(border,col=rainbow(925),ylim = c(18, 54), panel.first = grid());

#增加省會城市坐標點

points(data$Jd, data$Wd, pch = 19, col = rgb(0, 0, 0, 0.5))

#增加標注

text(data$Jd, data$Wd, data[,1], cex = 0.6, col = rgb(0,

0, 0, 0.7), pos = c(2, 4, 4, 4, 3, 4, 2, 3, 4, 2, 4, 2, 2,

4, 3, 2, 1, 3, 1, 1, 2, 3, 2, 2, 1, 2, 4, 3, 1, 2, 2, 4, 4, 2))

#增加標簽的另一種方式

#pointLabel(data$Jd, data$Wd, data[,1], offset = 0, cex = .6)

#設置坐標軸

axis(1, lwd = 0); axis(2, lwd = 0); axis(3, lwd = 0); axis(4, lwd = 0)

#輸出結果到文件

#dev.off()

繪制的中國地圖

參考

http://cos.name/2009/07/drawing-china-map-using-r/

http://yihui.name/cn/2008/10/china-map-and-city-locations-with-r/

http://yihui.name/cn/2008/10/avoid-label-overlap-pointlabel-in-maptools/

http://www.r-project.org/

總結

以上是生活随笔為你收集整理的如何使用计算机语言画经纬网,使用R语言绘制中国地图的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。