如何使用R語(yǔ)言ggplot2實(shí)現(xiàn)將多個(gè)照片拼接到一起

這篇文章將為大家詳細(xì)講解有關(guān)如何使用R語(yǔ)言ggplot2實(shí)現(xiàn)將多個(gè)照片拼接到一起，小編覺得挺實(shí)用的，因此分享給大家做個(gè)參考，希望大家閱讀完這篇文章后可以有所收獲。

將多個(gè)照片拼接到一起，然而電腦上沒有安裝ps 和 ai (拼圖我暫時(shí)只想到這兩個(gè)軟件了)

直接使用R語(yǔ)言吧

思路是讀取圖片

使用ggplot2 顯示

最后使用patchwork 拼接

代碼

library(ggplot2)
library(jpeg)
library(ggpubr)

library(patchwork)

img0<-readJPEG("308/0.JPG")
p0<-ggplot()+
  background_image(img0)+
  theme_void()

img1<-readJPEG("308/1.JPG")  
p1<-ggplot()+
  background_image(img1)+
  theme_void()

img2<-readJPEG("308/2.JPG")
p2<-ggplot()+
  background_image(img2)+
  theme_void()

img3<-readJPEG("308/3.JPG")
p3<-ggplot()+
  background_image(img3)+
  theme_void()

img4<-readJPEG("308/4.JPG")
p4<-ggplot()+
  background_image(img4)+
  theme_void()

p1234<-p1+p2+p3+p4+plot_layout(ncol = 4)


img5<-readJPEG("308/5.JPG")  
p5<-ggplot()+
  background_image(img5)+
  theme_void()

img6<-readJPEG("308/6.JPG")
p6<-ggplot()+
  background_image(img6)+
  theme_void()

img7<-readJPEG("308/7.JPG")
p7<-ggplot()+
  background_image(img7)+
  theme_void()

img8<-readJPEG("308/8.JPG")
p8<-ggplot()+
  background_image(img8)+
  theme_void()

p5678<-p5+p6+p7+p8+plot_layout(ncol=4)

p_final<-p0+p1234+p5678+plot_layout(ncol=1,nrow=3,
                                    heights  = c(3,1,1))

ggsave(filename="p-2.jpeg",
       p_final,
       width=12,
       heigh=15,
       dpi = 1000)

關(guān)于“如何使用R語(yǔ)言ggplot2實(shí)現(xiàn)將多個(gè)照片拼接到一起”這篇文章就分享到這里了，希望以上內(nèi)容可以對(duì)大家有一定的幫助，使各位可以學(xué)到更多知識(shí)，如果覺得文章不錯(cuò)，請(qǐng)把它分享出去讓更多的人看到。