R語言ggplot2實現(xiàn)將多個照片拼接到一起
更新時間：2021年07月13日 09:05:47 作者：小明的數(shù)據分析筆記本
本文主要介紹了R語言ggplot2實現(xiàn)將多個照片拼接到一起，文中通過示例代碼介紹的非常詳細，需要的朋友們下面隨著小編來一起學習學習吧
將多個照片拼接到一起，然而電腦上沒有安裝ps 和 ai (拼圖我暫時只想到這兩個軟件了)
直接使用R語言吧
思路是讀取圖片
使用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)
到此這篇關于R語言ggplot2實現(xiàn)將多個照片拼接到一起的文章就介紹到這了,更多相關R語言ggplot2多照片拼接內容請搜索腳本之家以前的文章或繼續(xù)瀏覽下面的相關文章希望大家以后多多支持腳本之家！
相關文章
這篇文章主要介紹了R語言實現(xiàn)線性回歸的示例，幫助大家更好的理解和學習使用R語言，感興趣的朋友可以了解下2021-03-03
在本篇文章里小編給大家整理的是一篇關于R語言基本語法知識點內容，有興趣的朋友們可以參考學習下。2021-03-03
這篇文章主要介紹了R語言中Fisher判別的使用方法，文中2021-03-03
這篇文章主要介紹了基于R語言for循環(huán)的替換方案，具有很好的參考價值，希望對大家有所幫助。一起跟隨小編過來看看吧2021-04-04
這篇文章主要介紹了R語言繪圖大小設定的操作，具有很好的參考價值，希望對大家有所幫助。一起跟隨小編過來看看吧2021-04-04
這篇文章主要介紹了R語言-定義數(shù)據框的列名操作，具有很好的參考價值，希望對大家有所幫助。一起跟隨小編過來看看吧2021-04-04
在本篇文章里小編給大家整理的是一篇關于R語言對Web數(shù)據操作實例內容，有興趣的朋友們可以學習下。2021-05-05
本文主要介紹了R語言與多元線性回歸分析計算案例，文中通過示例代碼介紹的非常詳細，具有一定的參考價值，感興趣的小伙伴們可以參考一下2021-08-08
本文主要介紹了R語言繪制帶誤差線的條形圖，文中通過示例代碼介紹的非常詳細，對大家的學習或者工作具有一定的參考學習價值，需要的朋友們下面隨著小編來一起學習學習吧2022-06-06
這篇文章主要介紹了R語言讀取柵格數(shù)據的方法,本文就只是對R語言raster包讀取、處理柵格數(shù)據加以基本的方法介紹，需要的朋友可以參考下2023-05-05