R語言的ggplot2怎么實現將多個照片拼接到一起

本篇內容介紹了“R語言的ggplot2怎么實現將多個照片拼接到一起”的有關知識，在實際案例的操作過程中，不少人都會遇到這樣的困境，接下來就讓小編帶領大家學習一下如何處理這些情況吧！希望大家仔細閱讀，能夠學有所成！

代碼

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)

“R語言的ggplot2怎么實現將多個照片拼接到一起”的內容就介紹到這里了，感謝大家的閱讀。如果想了解更多行業相關的知識可以關注億速云網站，小編將為大家輸出更多高質量的實用文章！