<div dir="ltr"><div class="gmail_default" style="font-family:trebuchet ms,sans-serif">Faça o panel.text() antes. Veja CMR.<br><br><span style="font-family:monospace,monospace">library(Matrix)<br>library(latticeExtra)<br>library(gridExtra)<br><br>m1 <- sparseMatrix(i = c(1, 1, 2, 3, 4, 4, 4, 5),<br>                   j = c(3, 4, 4, 1, 2, 3, 5, 4),<br>                   x = 1:8)<br><br>m2 <- m1/2<br><br>p <- image(m2) +<br>    layer(panel.text(x = 3,<br>                     y = 3,<br>                     labels = "Olá mundo.",<br>                     col = "red"))<br><br>grid.arrange(image(m1), p, ncol = 2)<br><br></span>À disposição.<br></div><div class="gmail_default" style="font-family:trebuchet ms,sans-serif">Walmes.<br></div>​</div>