0

我试图绘制一个简单的bar.plot地方,heat.colors反映增加(红色)或减少(蓝色或黄色)的趋势(在这种情况下是通过时间)。

例如,

set.seed(1)
estimates<-sample(1:100, 30, replace=FALSE) #this estimates are not sorted
barplot(estimates, cex.names=0.8, col=heat.colors(30, alpha = 1))

带有热色的条形图

但是,在这种情况下,颜色不反映变化的估计值,而只反映 X 轴值的方向。

有任何想法吗?

4

1 回答 1

1

我不确定您想要实现什么,但我认为您希望颜色能够反映此示例中条形的高度。在这种情况下,您应该使用估计的等级来提取正确的颜色。总而言之:

set.seed(1)
estimates <- sample(1:100, 30, replace=FALSE) #this estimates are not sorted

colors <- heat.colors(30, alpha = 1)
ordered_colors <- colors[rank(estimates)] # or 31-rank(estimates)

barplot(estimates, cex.names=0.8, col=ordered_colors)
于 2021-03-20T22:54:02.280 回答