用R畫中國地圖

準(zhǔn)備工作

R版本：4.0.5

RStudio

中國國界線文件，各省市的經(jīng)緯度文件
鏈接：https://pan.baidu.com/s/1ANa4rMZxuXLgle-j-mruVw
提取碼：1010

代碼

install.packages("maptools") install.packages("rgdal")#我之前下載的，具體這兩個(gè)包有無其他依賴包，看提示 library(maptools) library(rgdal) #調(diào)取國際線文件（三個(gè)bou2_4p.文件必須放在同一個(gè)文件夾里） str.crs <- " +proj=longlat +datum=WGS84 +no_defs +ellps=WGS84 +towgs84=0,0,0" china <- readShapePoly("M:/temp/geo/china_border/bou2_4p.shp", proj4string = CRS(str.crs)) #繪制中國地圖，給不同省標(biāo)上不同顏色（顏色可以自己換） par(mar = c(2, 2, 0.1, 0.1)) plot(china,col=c("peachpuff","papayawhip","tan1","tan2","tomato"),ylim = c(18, 54), panel.first = grid()); #添加省會(huì)城市 city=read.csv("M:/temp/geo/china_city/city.csv",header=T, sep=",",encoding = "UTF-8") points(city$jd,city$wd,pch=19,col="black") text(city$jd, city$wd, city[,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))

結(jié)果顯示

總結(jié)

以上是生活随笔為你收集整理的R语言画中国地图的全部?jī)?nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。