正如我在《用R画meme ;)》里说的，meme包就可以拿来画，当然这个包是设计来画meme的，所以文本只会打在中间，如果你想在右下角之类的，不好意思，我没提供选项让你调文本位置，氮素，meme依然是你的好帮手，怎么说呢，meme不单能帮你读图片，还能用grid画出来，这意味着你可以用grid.text随便加个文本就OK了。
实例演示一发：
library(meme)
u <- system.file("angry8.jpg", package="meme")
x <- meme(u)
print(x)
grid.text("biobabble", x=.9, y=.05,
gp=gpar(col='white', cex=1.2))由于提问说到ggplot2，这里讲一下。meme要支持ggplot2的输出也容易，不过我没看出必要性，所以懒得搞，要想用meme，你的ggplot2输出要先写图片。
如果想要ggplot2直接加水印，这有何难，不就是打个文本是吧？如果你想到geom_text或者annotate("text")之类的，赶紧面壁去，水平太差，这些只能打在画图区域里。你应该想到的是labs(caption=XXX)，但是这里也有个问题，caption是和画图区域对齐的（当然可以用theme移出来），你的图legend区域的大小是不一样的，或者有些图legend在画图区域之外，有些在内部，这会导致你加的水印在不同的图中相对的位置是不统一的。怎么办？！上面已经有答案了，还是一样的grid.text，因为ggplot2也是用grid画的，所以通用。
下面这个代码，黑色的biobabble是通过caption画的，相对位置是没法保障的，但红色的biobabble通过grid.text，位置在整张图片中，是固定的，在不同的图片中，是可以统一的。
p = ggplot(iris, aes(Sepal.Width, Petal.Width)) +
geom_point(aes(color=Species))
p + labs(caption="biobabble")
grid.text("biobabble", x=.9, y=.05,
gp=gpar(col='firebrick', cex=1.2))grid是ggplot2成功背后的男人，笑哭🤣～
用Y叔的shadowtext包，可以打出有阴影效果的水印，你懂的🍻
用Y叔的emojifont包，可以打上emoji或者图标logo（比如微信的水印有微信的logo）👻
用Y叔的ggimage包，你甚至于可以用图片来当水印🤡
Y叔才是花样打水印背后的男人🙈