将依赖于值的颜色渐变分配给R base

Question

给定一组值：

x<-sort(100*round(runif(10, 0.0, 1.0), digits=2))

rainbow（）调色板可用于为条形图的每个条形指定颜色，作为条形总数的函数：

barplot(x,col=rainbow(length(x)))

是否有一个简单的解决方案可以将彩虹调色板中的颜色指定为每个条形表示的值的函数，以便更接近的值具有更多相似的颜色？

Answer 1

例如，你可以做

set.seed(1)
x <- sort(100*round(runif(10, 0.0, 1.0), digits=2))

palFun <- colorRampPalette(rainbow(length(x))) 
barplot(x,col=palFun(diff(range(x))+1)[x-min(x)+1], names.arg = x)