cowplot包：用R添加水印

简介

为了保护自己的版权，我们经常会给文档等添加水印，那如何用r给图片添加水印呢？接下来学习如何给用cowplot包给图片添加水印。

简单教程

我们先用ggplot2做张图

library(ggplot2)
p <- ggplot(mpg, aes(x = cty, y = hwy, colour = factor(cyl))) +
         geom_point()
p

这是很基本的点图，有时我们会想对我们的图片做个保护，当然方法很多，添加水印就是一个简单的保护图片的方法，我们下面是用cowplot包为其添加水印

cowplot::ggdraw(p)+draw_label("bioinfolearn",size=50,angle=35) #其中size设置水印字体大小，angle设置角度

设置透明度

cowplot::ggdraw(p)+draw_label("bioinfolearn",size=50,angle=35,alpha = .3)

修改水印颜色

cowplot::ggdraw(p)+draw_label("bioinfolearn",size=50,angle=35,alpha = .3,color ="green")

当然cowplot这个包的功能还是非常多的，以后我们再对其进行更深入的探讨。