R语言：读取4张图片，按指定要求组合成1张新图。

Question

一、当前目录下有四张图片：
"DALY-Global.bmp"
"DE-Global.bmp"
"in-Global.bmp"
"PR-Global.bmp"

二、目标如下：
1、读取这四张图片
2、将这四张图片组合成一张图，要求如下：
①排列格式：2行、2列
②排列顺序：先从左至右、再从上至下的顺序依次为：
"in-Global.bmp" "PR-Global.bmp"
"DE-Global.bmp" "DALY-Global.bmp"
③加标签方式一：分别在四张图的左上角加标签：A、B、C、D
④加标签方式二：分别在四张图的下方正中位置加标签：（a） （b） （c） （d）
3、示例结果图如下：
①加标签方式一结果图：

②加标签方式二结果图：

Answer 1

install.packages("magick")
install.packages("ggpubr")

library(magick)
library(ggpubr)
p1 <- image_read("in-Global.bmp")
p2 <- image_read("PR-Global.bmp")
p3 <- image_read("DE-Global.bmp")
p4 <- image_read("DALY-Global.bmp")

pp1 <- image_ggplot(p1, interpolate = FALSE)
pp2 <- image_ggplot(p2, interpolate = FALSE)
pp3 <- image_ggplot(p3, interpolate = FALSE)
pp4 <- image_ggplot(p4, interpolate = FALSE)

ggarrange(pp1,pp2,pp3,pp4, labels = "AUTO")
ggarrange(pp1,pp2,pp3,pp4, labels = c("(a)","(b)","(c)","(d)"),label.x = 0.5,label.y = 0,hjust = 0,vjust = -2)