打印出色带中使用的颜色？

Question

我想手动操作从颜色渐变绘制的颜色。 所以现在我正在使用这样的代码：

library(colorRamps)

plot(object, col = blue2red(10))

我希望能够在此色阶序列中手动更改一种颜色。 有没有办法返回此渐变中使用的10种颜色，然后仅编辑其中一种？

Answer 1

cols <- blue2red(10) # store colors in object
cols[2] <- "black" # change second element to black
barplot(rep(1, length(cols)), names.arg = cols, col = cols)