opar <- par("mar")
par(mar = c(0,0,0,0))
layout(matrix(1:6, 6, 1, byrow = TRUE))
nlegend(t = paste("Shaded stuff. By the way you can\nwrite",
"text in several lines if needed"), cex = 1.2)
rect(-1,-1,1,1, density = 10)
nlegend(t = paste0("Text: left side at x = 1.3 (default xt value)",
";\nsize adapted with cex argument"),
temp = TRUE, cex = 1.4)
par(mar = opar)
Run the code above in your browser using DataLab