使用R语言给照片换底色—科研工具箱

请关注公众号【叨客学习资料】 在使用网站的过程中有疑问,请来公众号进行反馈哦

这个教程来自Y叔的听说你用R把证件照给一键换底了

转自:https://www.jianshu.com/p/cb36064cb4b4

首先准备一张证件照(打码照),比如蓝底图,png或jpg格式的都可以,用magick这个包的image_read()函数把它读进来,用ggplotify转换成ggplot图片

library(magick)
x<-image_read(\'你的照片.jpg\')
ggplotify::as.ggplot(x)
图片[1]-使用R语言给照片换底色—科研工具箱-叨客学习资料网
蓝底

用image_fill()函数直接就可以处理图片,选一个自己想要换的颜色,比如白色,代码一输,as.ggplot一转,就成了白底图 。

y<-image_fill(x,\'white\',fuzz = 20)
ggplotify::as.ggplot(y)
图片[2]-使用R语言给照片换底色—科研工具箱-叨客学习资料网
白底

再试试别的颜色,组合一下

p1<- ggplotify::as.ggplot(image_fill(x,\'red\',fuzz = 20))
p2<- ggplotify::as.ggplot(image_fill(x,\'brown\',fuzz = 20))
p3<- ggplotify::as.ggplot(image_fill(x,\'navyblue\',fuzz = 20))
p4<- ggplotify::as.ggplot(image_fill(x,\'steelblue\',fuzz = 20))
p5<- ggplotify::as.ggplot(image_fill(x,\'green\',fuzz = 20))
p6<- ggplotify::as.ggplot(image_fill(x,\'white\',fuzz = 20))
cowplot::plot_grid(p1,p2,p3,p4,p5,p6,ncol = 3,labels = \"AUTO\")
cowplot::plot_grid(p1,p2,p3,p4,p5,p6,ncol = 3,labels = \"AUTO\")
图片[3]-使用R语言给照片换底色—科研工具箱-叨客学习资料网


最后用ggsave保存一下,还可以自己设置照片的长度和宽度,以及dpi

比如,保存为宽2.5cm,高3.5cm、分辨率为150的jpg照片

ggsave(\"pic.jpg\",width=2.5,heigh=3.5,unit=c(\'cm\'),dpi=150)

想试一下吗?

© 版权声明
THE END
喜欢就支持一下吧
点赞0 分享
评论 抢沙发
头像
请输入有效评论哦,肆意灌水或者乱打评论是不会通过的,会影响您评论后获得资源哦~~
提交
头像

昵称

取消
昵称表情

    暂无评论内容