添加額外的顏色在wes_palette

我知道這是一個小菜鳥，但我已經創建了一個wes_palette這樣的：添加額外的顏色在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"），再加上顏色漸變，然後切割（at論點spplot）的值9更改爲黑色。

的地圖是這樣的： gh

，白色的多邊形是一個我需要改變顏色。

來源

2017-02-12 Afonso_a

在當前的RNG和rnq添加值9和黑色：

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

那麼你的代碼應該工作。

來源

2017-02-12 18:39:45 tatxif

是的，我設法修復它，或多或少的代碼。

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

不管怎麼說，謝謝;）

來源

2017-02-13 02:21:05

添加額外的顏色在wes_palette

回答

相關問題