Добавить дополнительный цвет в wes_palette

Question

Я знаю, что это немного новичок, но я создал wes_palette так:

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

построить интервал значений от 0 до 4.

Но У меня есть одно значение в моих данных, которое равно 9, и я хотел бы раскрыть его, используя, например, черный.

Im использованием 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"), плюс цвет рампы, а затем режет (at аргумент в spplot), чтобы изменить значение 9 до черного ,

Карта это: gh

И белый многоугольник является один мне нужно изменить цвет.

Answer 1

прибавьте 9 и черный цвет в текущем ГСЧ и rnq:

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

Тогда ваш код должен работать.

Answer 2

Да, мне удалось исправить это, с более или менее вашим кодом.

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

Во всяком случае, спасибо;)