在wes_palette中添加额外的颜色

Question

我知道这是个小菜鸟，但我已经创建了这样一个wes_palette：

rnq<-wesanderson::wes_palette("Zissou", 5, "discrete")

将值的间隔从0绘制到4。

但是我的数据中有一个值是9，我想公开它，例如，用黑色。

我正在使用spplot：

rng = seq(0, 4, length=5)
rnq<-wesanderson::wes_palette("Zissou", 5, "discrete")
scale = list("SpatialPolygonsRescale", layout.scale.bar(), 
             offset = c(-900000,-1100000), 
             scale = 300000, fill=c("transparent","black"))
text1 = list("sp.text", c(-900000,-1150000), "0")
text2 = list("sp.text", c(-550000,-1150000), "300 Km")
text4<-list("sp.text", c( -730000, -1270000), cex=0.6, "Projection: EPSG 102003")
arrow = list("SpatialPolygonsRescale", layout.north.arrow(), 
             offset = c(-900000, -400000), scale = 200000)
spplot(spdf_img, "re1", col = "white", at = rng, 
       col.regions = rnq,
       colorkey = list(
         space = "bottom", labels=list(
           at=round(rng, 1))),
       sp.layout=list(scale, text1, text2, text4, arrow),
       par.settings = list(axis.line = list(col = NA)))

主要是，我不知道如何定义我的interval("rnq")，加上颜色斜坡，然后剪裁(spplot中的at参数)将值9更改为黑色。

地图是这样的：gh

而白色多边形是我需要改变颜色的那个。

Answer 1

是的，我设法修复了它，或多或少地用了您的代码。

rng = c(seq(0, 4, length=5), 9)
rnq = c("#3B9AB2", "#78B7C5", "#EBCC2A", "darkorange1", "#F21A00")

无论如何，谢谢你;)

Answer 2

在当前rng和rnq中添加值9和颜色黑色：

rng <- c(rng,9)
rnq <- c(rnq,"black")

那么你的代码就能工作了。