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

更新時(shí)間：2021年07月13日 09:05:47 作者：小明的數(shù)據(jù)分析筆記本

本文主要介紹了R語(yǔ)言ggplot2實(shí)現(xiàn)將多個(gè)照片拼接到一起，文中通過示例代碼介紹的非常詳細(xì)，需要的朋友們下面隨著小編來(lái)一起學(xué)習(xí)學(xué)習(xí)吧

將多個(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è)照片拼接到一起的文章就介紹到這了,更多相關(guān)R語(yǔ)言ggplot2多照片拼接內(nèi)容請(qǐng)搜索腳本之家以前的文章或繼續(xù)瀏覽下面的相關(guān)文章希望大家以后多多支持腳本之家！

您可能感興趣的文章:

相關(guān)文章

R語(yǔ)言因子類型的實(shí)現(xiàn)
本文主要介紹了R語(yǔ)言因子類型的實(shí)現(xiàn)，文中通過示例代碼介紹的非常詳細(xì)，具有一定的參考價(jià)值，感興趣的小伙伴們可以參考一下
2022-03-03
使用R中merge()函數(shù)合并數(shù)據(jù)的方法
這篇文章主要介紹了使用R中merge()函數(shù)合并數(shù)據(jù),本文詳細(xì)介紹R中merge()函數(shù)參數(shù)及合并數(shù)據(jù)類型，利用sql的表連接概念進(jìn)行類比，簡(jiǎn)單易懂，需要的朋友可以參考下
2023-03-03
R語(yǔ)言學(xué)習(xí)之線圖的繪制詳解
線圖是反映趨勢(shì)變化的一種方式，其輸入數(shù)據(jù)一般也是一個(gè)矩陣。本文將利用R語(yǔ)言繪制單線圖、多線圖以及橫軸文本線圖，感興趣的可以了解一下
2022-03-03
R語(yǔ)言日期時(shí)間的使用
日期時(shí)間是常用的一種類型，本文主要介紹了R語(yǔ)言日期時(shí)間的使用，文中通過示例代碼介紹的非常詳細(xì)，具有一定的參考價(jià)值，感興趣的小伙伴們可以參考一下
2022-03-03
R語(yǔ)言符號(hào)知識(shí)點(diǎn)匯總
在本篇文章里小編給大家整理的是一篇關(guān)于R語(yǔ)言符號(hào)知識(shí)點(diǎn)匯總內(nèi)容，有需要的朋友們可以學(xué)習(xí)下。
2021-03-03
R語(yǔ)言關(guān)于泊松回歸知識(shí)點(diǎn)總結(jié)
在本篇文章里小編給大家分享的是一篇關(guān)于R語(yǔ)言關(guān)于泊松回歸知識(shí)點(diǎn)總結(jié)內(nèi)容，有興趣的朋友們可以學(xué)習(xí)下。
2021-05-05
R語(yǔ)言生成隨機(jī)數(shù)實(shí)例講解
這篇文章主要介紹了R語(yǔ)言生成隨機(jī)數(shù)實(shí)例講解，文中圖文講解的很清晰，有需要的同學(xué)可以參考下
2021-03-03
R語(yǔ)言ggplot2x軸順序設(shè)置自定義顏色的操作
這篇文章主要介紹了R語(yǔ)言ggplot2x軸順序設(shè)置自定義顏色的操作，具有很好的參考價(jià)值，希望對(duì)大家有所幫助。一起跟隨小編過來(lái)看看吧
2021-04-04
R語(yǔ)言刷題檢驗(yàn)數(shù)據(jù)缺失類型過程詳解
這篇文章主要為大家介紹了R語(yǔ)言刷題中檢驗(yàn)數(shù)據(jù)缺失類型的過程示例分析詳解，有需要的朋友可以借鑒參考下，希望能夠有所幫助，祝大家多多進(jìn)步
2021-11-11
R語(yǔ)言的下載安裝圖文教程講解
這篇文章主要介紹了R語(yǔ)言的下載安裝圖文教程講解,本文給大家介紹的非常詳細(xì)，對(duì)大家的學(xué)習(xí)或工作具有一定的參考借鑒價(jià)值，需要的朋友可以參考下
2021-03-03