R语言：读取图片，并将其中4张图片合并为一张图，结果却只有序号、没有图片

Question

R语言：读取图片，并将其中4张图片合并为一张图，结果却只有序号、没有图片：

1、代码及运行结果

```r
> library(magick)
> library(ggplot2)
> library(ggpubr)
> 
> ## 4、读取图片文件名 ####
> files <- dir()
> files
 [1] "DALY-A.JPEG"      "DALY-C.JPEG"      "DALY-G.JPEG"      "DALY-Global.JPEG" "DALY-HMSDI.JPEG"  "DALY-HSDI.JPEG"  
 [7] "DALY-LMSDI.JPEG"  "DALY-LSDI.JPEG"   "DALY-MSDI.JPEG"   "DE-A.JPEG"        "DE-C.JPEG"        "DE-G.JPEG"       
[13] "DE-Global.JPEG"   "DE-HMSDI.JPEG"    "DE-HSDI.JPEG"     "DE-LMSDI.JPEG"    "DE-LSDI.JPEG"     "DE-MSDI.JPEG"    
[19] "in-A.JPEG"        "in-C.JPEG"        "in-G.JPEG"        "in-Global.JPEG"   "in-HMSDI.JPEG"    "in-HSDI.JPEG"    
[25] "in-LMSDI.JPEG"    "in-LSDI.JPEG"     "in-MSDI.JPEG"     "PR-A.JPEG"        "PR-C.JPEG"        "PR-G.JPEG"       
[31] "PR-Global.JPEG"   "PR-HMSDI.JPEG"    "PR-HSDI.JPEG"     "PR-LMSDI.JPEG"    "PR-LSDI.JPEG"     "PR-MSDI.JPEG"    
> 
> ## 5、中国 ####
> p1 <- image_read("in-C.JPEG")
> p1
# A tibble: 1 × 7
  format width height colorspace matte filesize density
  <chr>  <int>  <int> <chr>      <lgl>    <int> <chr>  
1 BMP3    1024    768 sRGB       TRUE   3145782 38x38  
> p2 <- image_read("PR-C.JPEG")
> p2
# A tibble: 1 × 7
  format width height colorspace matte filesize density
  <chr>  <int>  <int> <chr>      <lgl>    <int> <chr>  
1 BMP3    1024    768 sRGB       TRUE   3145782 38x38  
> p3 <- image_read("DE-C.JPEG")
> p3
# A tibble: 1 × 7
  format width height colorspace matte filesize density
  <chr>  <int>  <int> <chr>      <lgl>    <int> <chr>  
1 BMP3    1024    768 sRGB       TRUE   3145782 38x38  
> p4 <- image_read("DALY-C.JPEG")
> p4
# A tibble: 1 × 7
  format width height colorspace matte filesize density
  <chr>  <int>  <int> <chr>      <lgl>    <int> <chr>  
1 BMP3    1024    768 sRGB       TRUE   3145782 38x38  
> 
> library(ggpubr)
> g1 <- ggarrange(p1,p2,p3,p4, nrow=2,ncol=2,labels="AUTO")
> g1
> 

2、组合的图片，只有序号（ABCD），没有图片显示

Answer 1

以下回复参考：皆我百晓生、券券喵儿等免费微信小程序作答:

要解决这个问题，首先确保你的R环境已经安装了magick包，并且已经正确加载了。然后，你需要从你的图片路径中选择一个合适的图片作为主图。在这个例子中，我们选择了in-C.JPEG。

接下来，我们可以创建一个新的图像对象（ggarrange()函数可以帮你实现这个功能），并将四个图片放置在它上面。为了简化问题，我们将只显示主图，因为其他三个都是副图。但是，在实际应用中，你需要根据具体情况调整这个设置。

下面是完整的代码示例：

library(magick)
library(ggarrange)

# 加载图片
p1 <- image_read("in-C.JPEG")
p2 <- image_read("PR-C.JPEG")
p3 <- image_read("DE-C.JPEG")
p4 <- image_read("DALY-C.JPEG")

# 创建新的图像
g1 <- ggarrange(p1, p2, p3, p4, nrow = 2, ncol = 2, labels = "AUTO")

# 显示新图像
g1

这段代码将输出一个包含四个图片的布局，其中in-C.JPEG为主图，而PR-C.JPEG, DE-C.JPEG, 和 DALY-C.JPEG分别位于主图下方。

请注意，由于R语言不支持直接读取JPEG格式之外的图片文件，所以必须手动指定图片文件名。此外，ggarrange()函数会自动计算图片之间的最小距离，以保持视觉上的一致性。

如果你需要处理更多的图片，只需重复上述步骤并添加更多的图片即可。