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

Question

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

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")

谢谢。

Answer 1

感谢@ user20650，答案是：

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

Answer 2

有些事情。扩展逻辑和数字以满足您的需求。

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