Question

我想扩展一个定性的颜色调色板，以获得更多信息的栅格地图。

我一直在使用rasterVis包，特别是我需要比Paired调色板更多的颜色。

levelplot(...,
      par.settings = rasterTheme(region = brewer.pal(10,'Paired')), 
      at=seq(0,5000,500),
      ...)

使用这种配置，我得到的光栅从0到5000，单位为200。 rasterTheme函数允许我根据Paired调色板为绘图使用10种离散颜色。

Paired调色板只有12种颜色，如果我想要25种颜色（对于光栅从0到5000乘200单位），我必须使用预定义的调色板，这意味着使用顺序调色板。

levelplot(...,
      par.settings = YlOrRdTheme, 
      at=seq(0,5000,200),
      ...)

如何为非顺序调色板使用25种不同的颜色？我应该手动创建调色板还是有创建随机调色板的功能？

谢谢！

Answer 1

库randomcoloR有两个函数，用于创建带有参数的随机颜色，用于选择所需的颜色数。使用distinctColorPalette函数的示例：

# load the library
library(randomcoloR)

# define the number of colors
k <- 25

# generate the colors
colors <- distinctColorPalette(k = k)

# proof - plot the colors 
xleft <- seq(1,k,1)
xright <- xleft+1
ybottom <- rep(0,k)
ytop <- ybottom+1
plot(1, 1, xlim = c(0, k), type = "n", axes = FALSE, bty = "n", xlab = "", 
  ylab = "") 
rect(xleft = xleft, ybottom = ybottom, xright = xright, ytop = ytop, col = 
  colors, border = "white")

展开栅格图R的定性调色板

1 个答案: