R：背景或插入的图像和格子中的文本

Question

我想在lattice图片上插入水印。在ggplot2中，我只是使用annotate或annotation_custom选项在徽标的一角放置徽标图像和徽标下方的文字。在lattice中是否存在类似的可能性？或者作为替代方案 - 是否可以使用图像作为情节的背景？

Answer 1

这就是几年前Deepayan Sarkar在Rhelp提出的类似问题：

barchart(variety ~ yield | site, data = barley, groups = year, layout = c(3,1), 
         page = function(n) { 
              grid.text(label = "Privileged and Confidential \nDRAFT", 
              x = unit(0.01, "npc"),
              y = unit(0.95, "npc"), 
              just = c("left", "center")) })

显然你还需要使用网格图形功能来放置徽标，（但你没有提供一个可以使用的。下一个代码的前两行是在今天引用的@ baptiste的blog page中找到的关于SO。）前两年改编自Paul Murrell's article的“R Journal”与Rseek.org一起发布的“R Journal”：

library(png)
m <- readPNG(system.file("img", "Rlogo.png", package="png"), FALSE)
rimg <- as.raster(m)
grid.raster(rimg, x=.05, y=.9, just="top", width=.1)