如何制作一个渐进的颜色条表示风险分析结果R？

Question

我想绘制风险分析的结果，按渐变颜色条（绿 - 黄 - 红）分为4级（无风险，低风险，中风和高风险）。 我想到了这样的事情（但我愿意接受更好的建议。）

输入是这样的

results <- data.frame(matrix(nrow = 5,ncol = 0))
results$day <- c(1:5)
results$assessment <-c("Low","Moderate","High","Low","Moderate")

Answer 1

我会尝试用我的答案提供很多细节。

我假设你想要只是颜色条而不是颜色条 添加到其他图表。这就是下面创建的内容。

0设置

library(fields)     ## for the colorbar function

## create the palette
myPalette = colorRampPalette(c("green", "yellow", "orange", "red"))

1创建一个空图。

plot(0:1, 0:1, type="n", bty="n", xaxs="i",
    xaxt="n", yaxt="n", xlab="", ylab="")   

当你运行它时，你应该得到一个空图 - 没有轴，没有。 x和y都在0到1之间。

2创建颜色条

colorbar.plot(0.5, 0.05, 1:100, col=myPalette(100),
    strip.width = 0.2, strip.length = 1.1)

3添加轴标签

axis(side=1, at=seq(0,1,1/3), tick=FALSE,
    labels=c("No Risk", "Low", "Moderate", "High Risk")) 

4添加箭头。

arrows(0.7, 0.18, 0.7, 0.1, length=0, lwd=8)
arrows(0.7, 0.18, 0.7, 0.09, length=0.1, lwd=3, angle=45)

这有点像黑客。如果我将箭头中的线条粗，
箭头是相当生硬和丑陋的。所以第一个arrows 声明形成一条没有箭头的粗线和第二条 使用细线并添加一个尖锐的箭头。

我的箭头为0.7。调整x值以将其放在其他位置。

结果

http://infographie.inraci.be/blc/blc.html