Leyenda de un mapa de malla con datos categóricos

Question

Me gustaría trazar un raster que contenga 4 valores diferentes (1) con una leyenda de texto categórica describiendo las categorías como 2 pero con cuadros de color.

He intentado usar la leyenda de la siguiente manera:

legend( 1,-20,legend = c("tierra","océano/lago", "ríos","cuerpos de agua"))

pero no sé cómo asociar un valor al color mostrado. ¿Hay alguna forma de recuperar el color mostrado con 'plot' y usarlo en la leyenda?

Raster inicial

Raster con leyenda

Answer 1

No estás proporcionando un código reproducible, por lo que he creado un ejemplo simple que espero te permita adaptarlo a tus necesidades.

library(raster)
r <- raster(volcano)
plot(r, legend = FALSE, col = rev(terrain.colors(4)))
legend("topright", legend = c("categoría 1", "categoría 2", "categoría 3", "categoría 4"), fill = rev(terrain.colors(4)))