ggplot2：如何在整个情节对角线上添加水印？

Question

我很高兴找到R ggplot2教程Adding watermarks to plots，但不幸的是它不适用于我当前安装的ggplot2版本（版本2.1.0）。是的，我可以降级，直到它可以，但我宁愿避免解决方案随着时间的推移。

然而，我之后的最终结果是相同的：

使用标准的ggplot2注释函数，这是我得到的：

annotate(geom="text", x=df$Min, y=50.0, xend=Inf, yend=Inf, label='PROOF ONLY', color='white', angle=45, fontface='bold', size=25, alpha=0.5, family='Arial')

但是这个解决方案不够灵活，因为角度必须适应绘图的宽度，在我的情况下是可变的（取决于箱的数量）并且将从45度角全部下降到零，即当它太紧，不能对角线贴合水印文字。水印字体大小也需要适应箱子的数量。