R语言也能玩ps？magick包你值得拥有

作者：鲁伟，热爱数据，坚信数据技术和代码改变世界。R语言和Python的忠实拥趸，为成为一名未来的数据科学家而奋斗终生。个人公众号：数据科学家养成记（微信ID：louwill12）

今天要给大家介绍的是2017年的一款新包——magick包。可能大家看到推文题目也都知道了，这是一款图片与图像处理的扩展包，以后ps能做的R语言一定程度上也可以做啦。毕竟从大数据的角度来讲，图片图像数据也是数据嘛。话不多说，小编带大家直接上手magick包。

安装

安装和载入magick包后，可查看在R语言中支持哪些图片格式。

install.packages("magick")

library(magick)

str(magick::magic_config())

## List of 21## $ version :Class 'numeric_version' hidden list of 1## ..$ : int [1:4] 6 9 6 6## $ modules : logi FALSE## $ cairo : logi TRUE## $ fontconfig : logi TRUE## $ freetype : logi TRUE## $ fftw : logi FALSE## $ ghost : logi FALSE## $ jpeg : logi TRUE## $ lcms : logi FALSE## $ libopenjp2 : logi FALSE## $ lzma : logi TRUE## $ pangocairo : logi TRUE## $ pango : logi TRUE## $ png : logi TRUE## $ rsvg : logi TRUE## $ tiff : logi TRUE## $ webp : logi TRUE## $ wmf : logi FALSE## $ x11 : logi FALSE## $ xml : logi TRUE## $ zero-configuration: logi FALSE

可见magick包在R语言中支持大部分图片格式，常见的jpeg和png格式就足以解决大部分图片格式问题。

图片输入与输出

magick包可以通过image_read函数直接从文件路径、URL和图片数据原始向量中读入图片，读入成功可以显示图片的一些基本信息。先读入一只老虎看看：

tiger<-image_read('http://jeroen.github.io/images/tiger.svg')

image_info(tiger)## format width height colorspace filesize## 1 png 900 900 sRGB 0

图片读入之后还可以通过image_write函数将图片输出，另存为任何图片格式也是可以的。

image_write(tiger, path="tiger.png", format="png")

图片处理

如果是仅仅读入读出图片，那magick包也没多大意义了。一般图片处理软件中的功能magick也可以处理。

裁剪与编辑

magick提供了一些形如AxB+C+D一类的转换函数来实现对图片的裁剪与编辑处理。比如说：

image_crop(image, "100x150+50")
image_scale(image, "200")
image_scale(image, "x200")
image_fill(image, "blue", "+100+200")
image_border(frink, "red", "20x10")

下面通过实例看看各函数用法含义。

先读入一个celtic图片：

celtics <- read_image("F:/R/celtics.png")

print(celtics)

加个20x10的绿框看看：

image_border(celtics,"green","20x10")

从右边裁掉5个尺寸：

image_crop(celtics,"100x150+5")

放个大看看：

image_scale（celtics,"200"）

换个边儿看看：

image_flop(celtics)

其他的像旋转、倒置、缩放等操作都是有类似函数可以处理的，具体可查阅magick帮助文档。

再上个背景色，把绿凯变成粉凯：

image_backgroud(celtics,"pink",flattern=TRUE)

虚化一下绿凯：

image_blur(celtics,10,5)

类似的处理操作有点多，小编就不一一展示了。有兴趣的朋友可以自己去探索。

添加文本

magick包也提供了为图片添加文本信息的功能，且看实例。

为绿凯喊个口号：

image_annotate(celtics, "Beat LA!", size=35, gravity="southwest", color="green")

管道操作进行链接

如果你嫌一次只进行一个处理太麻烦，magick和magrittr包联合使用大可以让你实现这些操作。相信你在dplyr包中已经见识到了这些%>%管道操作符的厉害了。

library(magrittr)

image_read("F：/R/celtics.png")%>%image_rotate(270)%>%image_background("pink", flatten=TRUE)%>%image_border("green", "10x10")%>%image_annotate("Beat LA!", color="black", size=30)