图像处理R包magick学习笔记

最新推荐文章于 2025-06-07 13:11:42 发布
最新推荐文章于 2025-06-07 13:11:42 发布
阅读量3.5k 收藏 14
点赞数 1

640?wx_fmt=gif&wxfrom=5&wx_lazy=1

作者简介

taoyan：R语言中文社区特约作家，伪码农，R语言爱好者，爱开源。

个人博客: https://ytlogos.github.io/


往期回顾

R语言可视化学习笔记之相关矩阵可视化包ggcorrplot

R语言学习笔记之相关性矩阵分析及其可视化

ggplot2学习笔记系列之利用ggplot2绘制误差棒及显著性标记

ggplot2学习笔记系列之主题（theme）设置

用circlize包绘制circos-plot

利用gganimate可视化R-Ladies发展情况

一篇关于国旗与奥运会奖牌的可视化笔记

利用ggseqlogo绘制seqlogo图

R语言data manipulation学习笔记之创建变量、重命名、数据融合

R语言data manipulation学习笔记之subset data

R语言可视化学习笔记之gganimate包

创建属于自己的调色板

R语言可视化学习笔记之ggridges包

Lesson 01 for Plotting in R for Biologists

640?wx_fmt=gif

640?wx_fmt=gif

简介

本文主要简单介绍一下magick包，主要用于图像处理

#安装的话就直接从CRAN安装进行

install.packages("magick")

#Load the package

library(magick)

#查看支持哪些格式

str(magick_config())

## List of 21

##  $ version           :Class 'numeric_version'  hidden list of 1

##   ..$ : int [1:4] 6 9 9 9

##  $ modules           : logi FALSE

##  $ cairo             : logi TRUE

##  $ fontconfig        : logi FALSE

##  $ freetype          : logi TRUE

##  $ fftw              : logi TRUE

##  $ ghostscript       : logi TRUE

##  $ jpeg              : logi TRUE

##  $ lcms              : logi TRUE

##  $ 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  

可以看出大部分格式都是支持的

读取图像

读取的话可以直接从本地读取，也可以读取URL格式的图片，主要通过image_read()来读取，image_info()则可以显示图像的一些属性数据。

#读取网上随便选的图片

night_king <- image_read("http://ov520p4qw.bkt.clouddn.com/ytlogos/170903/ha6Cchfk38.jpg?imageslim")

image_info(night_king)

##   format width height colorspace filesize

## 1   JPEG   189    267       sRGB     6449 

#通过image_write()可以讲图片以任何格式输出，比如将刚读取的图片以png格式输出。image_write(night_king, path = "night_king.png", format = "png")

转换格式

通过image_convert()可以将图片转换为我们需要的格式，比如这里我们可以将night_king的格式转换为png格式

night_king.png <- image_convert(night_king, "png")

image_info(night_king.png)

##   format width height colorspace filesize

## 1    PNG   189    267       sRGB        0

可以看到这里的filesize为0，直到被渲染（这里涉及到ImageMagick方面，我不是很懂）。

预览

在RStudio中可以查看我们读取的图片

640?wx_fmt=png

转换(transformations)

magick提供一系列函数对图片进行裁剪以及编辑，主要有以下函数：

  • image_crop(image, “100x150+50”):裁剪

  • image_scale(image, “200”):按宽比例进行放大缩小

  • image_scale(image, “x200”):按高比例进行放大缩小

  • image_fill(image, “blue”, “+100+200”):对特定部位着色

  • image_border(image, “red”, “20x10”):添加边框

下面我们来试试这些函数

#Example imagewolf <- image_read("http://ov520p4qw.bkt.clouddn.com/ytlogos/170903/4h96Df21AI.png?imageslim")

print(wolf) 

640?wx_fmt=png

#Add 20px left/right and 10px top/bottom

image_border(image_background(wolf, "hotpink"), "#000080", "20x10")  

640?wx_fmt=png

#trim margins

image_trim(wolf)

640?wx_fmt=png

#裁剪

image_crop(wolf, "500x300+50")

640?wx_fmt=png

#Resize

image_scale(wolf, "300")#width:300px

   640?wx_fmt=png

#Resize

image_scale(wolf, "x300")#heigth:300px 

640?wx_fmt=png    

#Rotate or mirror

image_rotate(wolf, 45)

640?wx_fmt=png

#Flip

image_flip(wolf)   

640?wx_fmt=png   

#Flop

image_flop(wolf) 

640?wx_fmt=png

#Paint

image_fill(wolf, "red", point = "+190+100", fuzz = 4000)

640?wx_fmt=png

这个函数最难掌握，我本来是想将wolf的眼睛渲染成红色，但是不断调整point以及fuzz都没弄成，感兴趣的可以自己捣鼓捣鼓。

#Add randomness

image_blur(wolf, 10, 5)

640?wx_fmt=png

可以通过调整参数来设置模糊度

image_noise(wolf)  

640?wx_fmt=png    

#Silly filters

image_charcoal(wolf)

640?wx_fmt=png   

image_oilpaint(wolf)

640?wx_fmt=png   

image_negate(wolf)

  640?wx_fmt=png 

文字注释

#Add some text on the image

image_annotate(wolf, "I am the King of wolf", size=25, gravity = "southeast", color="gold")

640?wx_fmt=png

自定义text

#customize the text

image_annotate(wolf, "I am the King", size=30, color="red", boxcolor = "pink", degrees = 45, location = "+30+30") 

640?wx_fmt=png

设置字体

#Set the font times-new-roman

image_annotate(wolf, "I am the King", size=30, color="red", boxcolor = "pink", degrees = 45, location = "+30+30", font = 'times-new-roman') 

640?wx_fmt=png

管道操作

你没看错，magick支持管道操作，下面试试

library(magrittr)

wolf%>%

    image_rotate(270)%>%

    image_background("white", flatten = TRUE)%>%

    image_border("red", "10x10")%>%

    image_annotate("I am the King", color='red', size = 25, location = "+100+300")

640?wx_fmt=png

图片向量

magick除了支持管道操作外，还支持图层叠加、拼图以及动图处理，来个经典的动态地球

earth <- image_read("http://ov520p4qw.bkt.clouddn.com/ytlogos/170903/a9CjAEGiC5.gif")

length(earth)

print(earth)


  640?wx_fmt=gif 

rev(earth) %>%

    image_flip() %>%

    image_annotate("This is the Earth", size = 20, color = "white")

不知什么鬼，图片竟然显示出来乱的，电脑渣的话还是别搞动画

图层

bigdata <- image_read("http://ov520p4qw.bkt.clouddn.com/ytlogos/170903/JclK3efbB3.jpg?imageslim")

logo <- image_read("http://ov520p4qw.bkt.clouddn.com/ytlogos/170903/JdjdB88CLm.png?imageslim")

frink <- image_read("http://ov520p4qw.bkt.clouddn.com/ytlogos/170903/E5fbmb1FIb.png?imageslim")

img <- c(bigdata, logo, frink)

img <- image_scale(img, "300x300")

image_mosaic(img)

640?wx_fmt=jpeg

动画

image_animate(image_scale(img, "200x200"), fps = 1, dispose = "previous")

#fps控制放映速度

静图+动图

静图就用我以前绘制过的，具体可看博客（https://ytlogos.github.io/2017/08/24/ggplot2%E5%AD%A6%E4%B9%A0%E7%AC%94%E8%AE%B0%E4%B9%8B%E5%9B%BE%E5%BD%A2%E6%8E%92%E5%88%97/）

image1 <- image_read("http://ov520p4qw.bkt.clouddn.com/ytlogos/170903/kLeL888DbI.png?imageslim")

dance_man <- image_read("http://ov520p4qw.bkt.clouddn.com/ytlogos/170903/86iEDe36lf.gif")

dance_man <- image_scale(dance_man, "200")

#Background image

background <- image_background(image_scale(image1, "800"), "white", flatten = TRUE)

#Combine and flatten frames

frames <- image_apply(dance_man, function(frame){

    image_composite(background, frame, offset = "+500+270")

})

#Turn frames into animation

animation <- image_animate(frames, fps = 10)

print(animation)


640?wx_fmt=gif

还有一些有趣的功能这里我就不讲了，有兴趣的可以试试，还是很好玩的。

SessionInfo

sessionInfo()

## R version 3.4.1 (2017-06-30)

## Platform: x86_64-w64-mingw32/x64 (64-bit)

## Running under: Windows 10 x64 (build 15063)

##

## Matrix products: default

##

## locale:

## [1] LC_COLLATE=Chinese (Simplified)_China.936

## [2] LC_CTYPE=Chinese (Simplified)_China.936

## [3] LC_MONETARY=Chinese (Simplified)_China.936

## [4] LC_NUMERIC=C

## [5] LC_TIME=Chinese (Simplified)_China.936

##

## attached base packages:

## [1] stats     graphics  grDevices utils     datasets  methods   base

##

## other attached packages:

## [1] magrittr_1.5 magick_1.2

##

## loaded via a namespace (and not attached):

##  [1] compiler_3.4.1  backports_1.1.0 rprojroot_1.2   tools_3.4.1

##  [5] htmltools_0.3.6 curl_2.8.1      yaml_2.1.14     Rcpp_0.12.12

##  [9] stringi_1.1.5   rmarkdown_1.6   knitr_1.17      stringr_1.2.0

## [13] digest_0.6.12   evaluate_0.10.1
   



　往期精彩内容整理合集　

2017年R语言发展报告（国内）

R语言中文社区历史文章整理（作者篇）

R语言中文社区历史文章整理（类型篇）

640?wx_fmt=jpeg

公众号后台回复关键字即可学习

回复 R                  R语言快速入门及数据挖掘 
回复 Kaggle案例  Kaggle十大案例精讲（连载中）
回复 文本挖掘      手把手教你做文本挖掘
回复 可视化          R语言可视化在商务场景中的应用 
回复 大数据         大数据系列免费视频教程 
回复 量化投资      张丹教你如何用R语言量化投资 
回复 用户画像      京东大数据，揭秘用户画像
回复 数据挖掘     常用数据挖掘算法原理解释与应用
回复 机器学习     人工智能系列之机器学习与实践
回复 爬虫            R语言爬虫实战案例分享

R语言使用magick包的image_animate函数和image_morph函数创建一个由n个图像组成的序列，逐渐将一个图像转换成另一个图像（sequence of image morph by)
data+scenario+science+insight
01-03 451
R语言使用magick包的image_animate函数和image_morph函数创建一个由n个图像组成的序列，逐渐将一个图像转换成另一个图像（Creates a sequence ofnimages that gradually morph one image into another）
使用R语言的magick包自定义图像的边界和背景
PixelBlade的博客
08-19 337
要自定义图像的边界，我们可以使用函数。该函数接受三个参数：图像、边界宽度和边界颜色。边界宽度可以是一个整数或一个百分比值，表示边界的粗细程度。边界颜色可以是一个字符向量，表示边界的颜色。在上述代码中，我们将函数应用于image对象，并将边界颜色设置为"red"，边界宽度设置为10。要自定义图像的背景，我们可以使用函数。该函数接受两个参数：图像和背景颜色。背景颜色可以是一个字符向量，表示背景的颜色。在上述代码中，我们将函数应用于image对象，并将背景颜色设置为"blue"。
ImageMagick 图像处理工具安装指南
最新发布
weixin_35006125的博客
06-07 1028
ImageMagick是一款流行的开源图像处理软件，它支持多种图像格式，并提供了丰富的操作命令来处理图像。ImageMagick不仅可以用来进行简单的图像转换和调整，如大小、旋转、裁剪、颜色调整，还可以实现复杂的图像操作，比如添加水印、创建透明效果、图像合成以及应用各种图像效果等。使用ImageMagick，用户可以编写脚本来自动化复杂的图像处理任务，节省大量的人力和时间。其强大的功能和灵活性，使其成为设计人员、开发者和系统管理员在图像处理方面的首选工具。
R语言使用magick包的image_crop函数按照指定的高度和宽度裁剪图像(crop the image)、使用magick包的image_trim函数从图像中移除作为背景色的边缘
data+scenario+science+insight
03-23 553
R语言使用magick包的image_crop函数按照指定的高度和宽度裁剪图像(crop the image)、使用magick包的image_trim函数从图像中移除作为背景色的边缘(removes edges that are the background color from the image)
magick 包: 在R中进行高级图片处理
热门推荐
厚缊
07-20 1万+
最新的magick包是为在R中更现代、更简单高质量的进行图片处理而进行的一次努力。该包封装了目前最强大的开源图片库ImageMagick STL。 ImageMagick库拥有大量的功能，目前的magick版本实现了其中一些很适用的功能模块，但是因为是第一次发布，现在文档还比较少。本文简单的介绍了其中一些最重要的概念来帮助了解magick。 安装 magick 在windows或者OS-X系...
R语言使用magick包的image_border函数和image_background函数自定义图像的边界和背景（Change image border and background）
data+scenario+science+insight
01-11 431
R语言使用magick包的image_border函数和image_background函数自定义图像的边界和背景（Change image border and background）
图像处理学习笔记之——Matlab数字图像处理
前尘忆梦的博客
10-18 1772
Matlab 数字图像处理 1、Matlab R2017b 简介 1.1、Matlab 软件环境 1.1.1、软件界面 1.1.2、Matlab 命令与程序 可以在 >> 提示符后面输入简单的算式，如 5*3-2；或带有函数的算式，如 sin(pi/2)*sqrt(3)/2： >> 5*3-2 ans = 13 >> sin(pi/2)*sqrt(3)/2 ans = 0.8660 这样的输入形式实际上是 Matlab 命令，而如果在每行命令
Magic3D笔记
duoyasong5907的博客
02-01 2590
magic3d
研究：学习笔记和资料记录
02-24
它支持多种编程语言，如Python、R、Julia等，但Python是最常用的语言，尤其是在数据分析和科学计算中。 首先，让我们来了解一下Jupyter Notebook的基本构成和功能： 1. **笔记本结构**：一个Jupyter Notebook由多...
MATLAB图像处理_学习笔记
SCOTT 技术博客
12-25 7401
1. matlab命令基础： clc——清除窗口 clear——清除之前赋值过的变量 disp——打印信息，相当于echo celldisp——打印元胞数组内容 who——简单的显示当前已有变量 whos——显示所有变量及详细内容 whos也可以指定显示某个变量 tan/sin/cos/log ——各种数学运算
matlab学习笔记.docx
11-12
10. **批量读取和处理图片**：利用循环和`imread`函数可以批量读取同一文件夹中的图片，并进行进一步的图像处理操作。 这些是MATLAB编程中的一些基础知识点，掌握了它们能够帮助你更好地进行MATLAB的编程和数据分析...
Rmagic:解构R语言中的“黑魔法”
05-31
解构R语言中的“黑魔法” 中国R语言大会网站： R会演讲幻灯片：
R语言使用magick包的image_modulate函数、image_fill函数改变图像的亮度、饱和度、色调、渲染指定位置为特定颜色（Modulate and paint an image）
data+scenario+science+insight
06-17 529
R语言使用magick包的image_modulate函数、image_fill函数改变图像的亮度、饱和度、色调、渲染指定位置为特定颜色（Modulate and paint an image）
使用R语言的magick包进行图像变形和动画制作
cl6789的博客
08-11 271
其中，image_animate函数和image_morph函数是两个非常有用的函数，可以用来创建由多个图像组成的序列，并实现图像的逐渐转换效果。通过调整起点图像、终点图像、帧数以及其他参数，您可以实现更加丰富多样的图像变形和动画效果。您可以根据需要调整这些参数，并将输出路径替换为您希望保存动画的文件路径。该函数会根据设定的帧数，自动将起点图像逐渐变形成终点图像，并生成一个图像序列。接下来，我们使用image_read函数将图像读入R中，并使用image_resize函数调整图像的大小，使其尺寸一致。
安装ImageMagick和RMagic
蓝色未来
07-16 677
RMagic是ruby处理图片需要用到的库，很多ruby应用由于都涉及图片处理的功能，往往需要依赖RMagic，但安装ImageMagick和RMagic相当烦琐，需要特别的说明。 安装ImageMagick http://www.imagemagick.org ImageMagick是用C语言实现的图形处理库，有Unix版本和Windows版本。对于Unix版本来说，安装比较麻烦些，另外不...
RMagic安装手记
emerald0106的专栏
01-06 1387
RMagic安装手记： $ sudo apt-get install imagemagick $ sudo gem install rmagick --include-dependencies 出现“configure: error: Can't install RMagick. Can't find Magick-config or GraphicsMagick-config prog
R语言使用magick包的image_write函数将已有图像以任何指定的格式导出保存到磁盘上（例如将原文将从png转化为jpeg）
data+scenario+science+insight
01-04 634
R语言使用magick包的image_write函数将已有图像以任何指定的格式导出保存到磁盘上（例如将原文将从png转化为jpeg）
使用R语言的magick包中的image_append函数可以将多张图片纵向或横向排列，创建一个合成图像
CoderHH的博客
08-19 304
使用R语言的magick包中的image_append函数可以将多张图片纵向或横向排列，创建一个合成图像。在本文中，我们将探讨如何使用magick包中的image_append函数来实现图像的纵向排列。函数将返回一个包含合成图像的magick图像对象。这就是使用R语言的magick包中的image_append函数将多张图像纵向排列生成合成图像的过程。你可以根据自己的需求调整代码来处理更多的图像或修改图像合并的方式。接下来，我们可以使用image_append函数将这些图像纵向排列，并创建一个合成的图像。
Linux history设置
小树苗
09-01 750
自定义存储文件： 默认情况下，命令历史被储存在.bash_history文件中，把下面的一行添加到.bash_profile文件中，重新加载shell， 则/var/log/history.txt文件将取代.bash_history文件用来储存历史命令。你可以使用这个命令来追踪不同终端中执行的命令，届时只需要将不同终端中所执行的命令保存在不同的历史文件中即可。 #vi ~/.bash_profile HISTFILE=/var/log/history.txt 重新加载： source .bash_p.
MagicImage：综合利用CDib、GDI和OpenCV实现高效图像处理
标题中的“MagicImage：图像处理程序”揭示了该软件是一个专注于图像处理功能的应用程序。图像处理是计算机视觉领域的一个重要分支，它涉及对图像进行分析、修改、优化等操作，以达到改善图像视觉效果、提高图像信息...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值