cowplot包：用R添加水印

庄闪闪的R语言手册 2023-06-11

Editor's Note

有趣的包！

The following article is from 生物信息学习 Author 生物信息学习

简介

为了保护自己的版权，我们经常会给文档等添加水印，那如何用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这个包的功能还是非常多的，以后我们再对其进行更深入的探讨。