R语言chorolayer_R绘制空间计量图（需载入GIStools、sp 包）

基于spatial-等类数据，用polygon等绘制地图

#第二章【画图包】

par(mfrow = c(1,2))

plot(y,y2)

polygon(y,y2,col = 'lightgreen')

plot(y,y2,asp=1,type='n')

#坐标比例asp为一比一

#plot画出坐标轴

polygon(y,y2,col = 'lightgreen')

#polygon让画出地图

library(GISTools)

data("georgia")

#画出格鲁吉满一个小镇APPLING的地图

appling=georgia.polys[[1]]

plot(appling,asp=1,type='n',xlab='Easting',ylab='Northing')

polygon(appling,density = 14,angle = 135)

polygon(appling,col = rgb(0.2,0.7,0.4))

#给地图填色，R\G\B各出一个0~1的数调色

polygon(appling,col = '#B3B335')

#一种网络颜色

points(x=runif(500,126,132)*10000,y=runif(500,103,108)*10000,pch=16,col='pink')

#给图形加随机点

text(1287000,1053000,'Appling County',cex = 1.5)

#字号是1.5，字的中心点坐标是(1287000，1053000)

text(1287000,1049000,'Georgia',col = 'darkred')

data("meuse.grid")

#法国北部的缪斯

mat = SpatialPixelsDataFrame(points = meuse.grid[c('x','y')],data = meuse.grid)

par(mfrow=c(1,2))

par(mar=c(2,2,0,0))

#下、左页边距为2行，剩下的边页边距为0行

image(mat,'dist')

library(RColorBrewer)

greenpal=brewer.pal(7,'Greens')

#brewer.pal用来生成好看的颜色，在已有三色基础上

image(mat,'dist',col=greenpal)

#image用来作三维等高图，以z轴来作图

write.csv(appling,file = 'test.