添加额外的颜色在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

回答

相关问题