consegui mexendo no panel da levelplot.

Sua solucao é muuuito mais facil :)

Valeu!

Faça o panel.text() antes. Veja CMR.

library(Matrix)
library(latticeExtra)
library(gridExtra)

m1 <- sparseMatrix(i = c(1, 1, 2, 3, 4, 4, 4, 5),
                   j = c(3, 4, 4, 1, 2, 3, 5, 4),
                   x = 1:8)

m2 <- m1/2

p <- image(m2) +
    layer(panel.text(x = 3,
                     y = 3,
                     labels = "Olá mundo.",
                     col = "red"))

grid.arrange(image(m1), p, ncol = 2)

À disposição.

Walmes.

​