在图像 {graphics} 中添加颜色图例答案

【问题标题】：Add a legend of colors in image {graphics}在图像 {graphics} 中添加颜色图例
【发布时间】：2015-02-03 14:37:43
【问题描述】：

在这个例子中，我有一个带有颜色的图像，我想知道我们是否可以添加一个颜色图例。例如：[8:10] 中带有z 的点颜色为红色等等。

x=runif(500,0,5)
y=runif(500,0,5)
z=floor(runif(500, 1,10)) 
xyz=data.frame(x,y,z)
library(MBA)
mba.int <- mba.surf(xyz, 300, 300, extend=T)$xyz.est
image(mba.int, xaxs="i", yaxs="i")

谢谢。

【问题讨论】：

stackoverflow.com/questions/28222375/… 可能会有所帮助。（或使用fields::image.plot(mba.int, col = heat.colors(12))）
好东西。请随时将其写成答案[并接受它;）]

标签： r colors legend

【解决方案1】：

感谢@user20650，答案是：

fields::image.plot(mba.int, col = heat.colors(12))

【讨论】：

【解决方案2】：

有点像。扩展逻辑和数字以满足您的需求。

col1 = ifelse(z < 4 , "red", ifelse(z >=4 , "green", "black")) 
image(mba.int, xaxs="i", yaxs="i", col= col1)

【讨论】：

实际上这可能会改变结果，我想保留这张图片但添加一些图例。