Я хотел бы построить растр, содержащий 4 различных значения (1) с категориальной текстовой легендой, описывающей такие категории, как 2 но с цветными коробками: я

мы пробовали использовать легенду, такую как:

legend( 1,-20,legend = c("land","ocean/lake", "rivers","water bodies"))

но я нене знаю, как связать одно значение с отображаемым цветом. Есть ли способ получить цвет, отображаемый с помощью 'сюжет' и использовать это в легенде?