代码有错误,province$XINGBIEBI,这里要大写,你小写了
library(rgdal)
library(classInt)
province<-readOGR("E:\\","province2")
names(province)
province$XINGBIEBI
pal<-terrain.colors(4)
q5<-classIntervals(province$XINGBIEBI,n=4,style="quantile")
q5Colours<-findColours(q5,pal)
plot(province,col=q5Colours)
legend("topleft",fill=attr(q5Colours,"palette"),legend=names(attr(q5Colours,"table")),bty="n")




雷达卡








京公网安备 11010802022788号







