r - 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博客页面上找到。）第二个有两行改编自Paul Murrell去年在 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)