R levelplot调整色阶

时间:2017-12-19 17:13:41

标签: r raster r-raster levelplot rastervis

我正在尝试使用rasterVis包在关卡图上调整我的色阶。我的代码绘制了一个栅格。我正在使用手动设置的色阶,将数据分为5个分位数。我希望标签保持我设置的值,但不是现在看起来的线性标尺,标签之间的空间相等。这是否可以使用levelplot ??

cor = M[, c("lon", "lat")]
sPDF <- SpatialPointsDataFrame (cor, data=M)
proj4string(sPDF)<-(p$geog.proj)

#Create Rasters
grid.sum <- rasterize(x=sPDF, y=grid, field=v, fun=grid.fun)

#Define colour scale
z <- getValues(grid.sum)
z <- z[is.finite(z)]
z <- round(z, digits=0)

quant <- unique(quantile(z, seq(0,1, length.out=75)))
quant.small <- unique(quantile(z, seq(0,1, length.out=5)))
ckey <- list(at=quant, labels=list(at=quant.small))


print(
  levelplot(grid.sum, at=quant, colorkey=ckey, col.regions=p$seis, 
    alpha.regions=1, margin=F, xlab="", ylab="", main=name, 
    scales = list(x=list(cex=0.7), y=list(cex=0.7)))
    + layer(sp.polygons(coast, fill='lightgrey', alpha = 0.2))
    + layer(sp.lines(contours, col='dimgrey', alpha=0.6, lwd= 0.4)))

enter image description here

0 个答案:

没有答案