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

Question

在这个例子中，我有一张带有颜色的图像，我想知道我们是否可以添加颜色图例。例如：在 [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")

谢谢。

Answer 1

沿线的东西。扩展逻辑和数字以满足您的需要。

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

Answer 2

感谢@user20650，答案是：

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

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

Add a legend of colors in image {graphics}

r

colors

legend