0

我正在尝试使用 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)))

在此处输入图像描述

4

0 回答 0