r - rmarkdown中的水印

我研究并发现了如何在rmarkdown文档中创建水印。

它可以在基本文本上很好地工作，但是当您有一个绘图重的页面时，它将被隐藏在绘图后面。

显然，这使某人可以轻松地对图形进行截屏并在PDF之外使用它们。

下面是一些代码，可以清楚地说明问题。

---
title: "Testing Watermark"
author: "John"
date: "September 18, 2015"
header-includes:
   - \usepackage{draftwatermark}
output:
  pdf_document
---

This is some basic text.
Note the watermark on this page, and the hidden watermark on the next page.

\newpage

\SetWatermarkText{DRAFT}

```{r echo=FALSE, warning=FALSE, message=FALSE, fig.height=7}
library(ggplot2)

ggplot(mtcars) +
  geom_point(aes(mtcars$mpg, mtcars$cyl)) +
  facet_wrap(~carb, ncol=1) +
  theme_bw()
```

如果有人知道解决方法，我将不胜感激。

就我而言，要么使ggplot背景透明(我尝试过)，要么将水印置于前景并使之透明。

最佳答案

尝试使用

header-includes:
   - \usepackage{eso-pic,graphicx,transparent}

然后在文档的第一页上(在LaTeX部分内)添加

\AddToShipoutPictureFG{
  \AtPageCenter{% or \AtTextCenter
    \makebox[0pt]{\rotatebox[origin=c]{45}{%
      \scalebox{5}{\texttransparent{0.3}{DRAFT}}%
    }}
  }
}

这应该在页面的F或G圆(顶部)中添加旋转的DRAFT消息(半透明)。