r - levelplot:如何调整比例级别(at)和比例标签(labels)

Question

我有具有分类值 (-1,0,1) 或一些我想用 levelplot 绘制的偏斜分布值的栅格对象。我希望负值的颜色与正值不同，而值在 0 左右时为白色。我希望比例尺仅显示几个离散步骤，因为我希望间距不等距，并且范围有时非常窄。我用

colorkey=list(at=c(), labels=c())

将参数传递给 levelplot。这适用于比例，但实际值的颜色编码不等于比例显示的内容。如果我使用参数

at=c()

单独地，格子中的尺度值和值是对应的。如果我添加 labels=c()同样独立地，它们不会按比例显示，而只会显示在等高线上。
所以我的问题:
如何标记我的比例，设置“at”，并使晶格中的值同时与我的比例值相对应？ 以下是一些示例数据:

library(raster)
library(colorspace)
library(rasterVis)
X <- raster(nrow=10,ncol=10)
set.seed(1)
X[] <- rchisq(df=10,n=10*10)*c(1,-1)
X[X[]>0] <- X[X[]>0]+seq(1,100,length.out=length(X[X[]>0]))
Uniques <- cellStats(X,stat=unique)
Uniques.max <- max(Uniques)
Uniques.min <- min(Uniques)
Acol.regions <- colorspace::diverge_hsv(n=9)

如果我使用颜色键:

levelplot(X, col.regions = Acol.regions,colorkey=list(
  at=round(c(seq(Uniques.min,0,length.out=5)[-5],0,seq(0,Uniques.max,length.out=5)[-1]),2),
  labels=as.character(round(c(seq(Uniques.min,0,length.out=5)[-5],0,seq(0,Uniques.max,length.out=5)[-1]),2)*2)),
          margin=F)

我最终以正确的方式显示比例，但晶格中的值颜色错误:

如果我单独通过 at=c(), labels=c() :

levelplot(X, col.regions = Acol.regions,
  at=round(c(seq(Uniques.min,0,length.out=5)[-5],0,seq(0,Uniques.max,length.out=5)[-1]),2),
  labels=as.character(round(c(seq(Uniques.min,0,length.out=5)[-5],0,seq(0,Uniques.max,length.out=5)[-1]),2)*2),
          margin=F)

我最终在比例和点阵中得到了相应的值，但没有显示标签:

亲切的问候，
埃里克

Answer 1

解决了:我说 at=c()争论两次。直接在 levelplot 中，然后在 colorkey-list 中

levelplot(X, col.regions = Acol.regions,at=round(c(seq(Uniques.min,0,length.out=5)[-5],0,seq(0,Uniques.max,length.out=5)[-1]),2),
          colorkey=list(
  at=round(c(seq(Uniques.min,0,length.out=5)[-5],0,seq(0,Uniques.max,length.out=5)[-1]),2),
  labels=as.character(round(c(seq(Uniques.min,0,length.out=5)[-5],0,seq(0,Uniques.max,length.out=5)[-1]),2)*2)),
          margin=F)

感谢任何可能尝试过的人。埃里克