Добавить легенду о цветах в изображении

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)