這個教程來自Y叔的聽說你用R把證件照給一鍵換底了
首先準(zhǔn)備一張證件照（打碼照）,比如藍(lán)底圖冷尉，png或jpg格式的都可以凶赁，用magick這個包的image_read()函數(shù)把它讀進(jìn)來卫枝，用ggplotify轉(zhuǎn)換成ggplot圖片
library(magick)
x<-image_read('你的照片.jpg')
ggplotify::as.ggplot(x)
藍(lán)底
用image_fill()函數(shù)直接就可以處理圖片婉商，選一個自己想要換的顏色末早，比如白色胁孙，代碼一輸秒旋，as.ggplot一轉(zhuǎn)竞滓，就成了白底圖 。
y<-image_fill(x,'white',fuzz = 20)
ggplotify::as.ggplot(y)
白底
再試試別的顏色疫向，組合一下
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")
combine-1.png
最后用ggsave保存一下咳蔚，還可以自己設(shè)置照片的長度和寬度豪嚎，以及dpi
比如，保存為寬2.5cm谈火，高3.5cm侈询、分辨率為150的jpg照片
ggsave("pic.jpg",width=2.5,heigh=3.5,unit=c('cm'),dpi=150)
想試一下嗎？
