【R】TIFFファイルを結合して出力

論文のFigureを作成するとき、同じサイズのTIFF画像を並べて一つにまとめたいときに使用します。

# Figureを結合
figure4A <- image_read("/Users/moritatomohiro/Google drive/R/cod/Figure4Ajp.tiff")
figure4B <- image_read("/Users/moritatomohiro/Google drive/R/cod/Figure4Bjp.tiff")
figure4C <- image_read("/Users/moritatomohiro/Google drive/R/cod/Figure4Cjp.tiff")
figure4D <- image_read("/Users/moritatomohiro/Google drive/R/cod/Figure4Djp.tiff")

img4AB <- c(figure4A, figure4B)
figure4AB <- image_append(img4AB)
img4CD <- c(figure4C, figure4D)
figure4CD <- image_append(img4CD)
img4AB_CD <- c(figure4AB, figure4CD)
figure4 <- image_append(img4AB_CD, stack = TRUE)
image_write(figure4, path = "Figure4jp.tiff", format = "tiff")

上記のコードを使ってできたfigureが以下。全く同じサイズのplotを並べて一つのfigureにまとめました。使用されている論文はこちら

Tweet

Pocket