在R中为多直方图绘图添加关键图例

Question

如何在下图中添加关键图例

我想在右上角的某个地方有一个关键的传说,有两个短的水平彩条,红色的那个应该说"整形手术出了问题"而蓝色应该说"德国".

我使用以下代码生成图:

bar2 <- read.table("div/ana-mut[...]/barriers-set-2.dat", sep=" ")
bar2val <- c(bar2$V1, bar2$V2)
bar3 <- read.table("div/ana-mut[...]/barriers-set-3.dat", sep=" ")
bar3val <- c(bar3$V1, bar3$V2)
p1 <- hist(subset(bar2val, bar2val < 30), breaks=30)
p2 <- hist(subset(bar3val, bar3val < 30), breaks=30)
plot(p1, col=rgb(1,0,0,8/9), main="Barrier distribution", xlab="Barrier [kcal/mol]", ylab="Mutant count")
plot(p2, col=rgb(0,0,1,8/9), add=T)

任何提示将不胜感激.

Answer 1

legend命令可以解决这个问题:

legend("topright", c("Germany", "Plastic"), col=c("blue", "red"), lwd=10)

要获得两个短的水平颜色条,只需使用标准线,但增加线条粗细.正如罗兰所指出的,你也可以使用这个fill论点:

legend("topright", c("Germany", "Plastic"), fill=c("blue", "red"))

有关?legend详细信息,请参阅