使用R语言magick包image_montage时如何去除图片间白边

问题根源 #

图片间的白线条主要来自两个方面：一是你用ggplot绘图时设置的plot.margin边距过大，导致单张图自带空白区域；二是拼接时可能存在的尺寸匹配偏差，或是背景色设置不一致导致的细微间隙。

解决步骤 #

1. 调整ggplot绘图的边距与背景 #

你的ggplot代码重复设置了plot.margin且边距为1cm，这是白边的主要来源。修改时合并重复的theme设置，把边距设为0，同时确保背景色完全统一：

chart_ina = ggplot(chart_dataina, aes(x=as.Date(los_date))) + 
  geom_line(aes(y=eas), size=1, color="white") + 
  xlab("") + ylab("")+ 
  scale_y_continuous(limits = c(22,32), breaks = c(22,32))+ 
  scale_x_date(breaks = c(xfirst, xlast), labels = c(xfirst_label,xlast_label), minor_breaks = NULL) + 
  theme(
    text = element_text(size = 16), 
    axis.title.y = element_text(angle = 0), 
    plot.margin = unit(c(0,0,0,0), 'cm'), # 彻底移除边距
    panel.grid = element_blank(), 
    panel.border = element_blank(), 
    panel.background = element_rect(fill = navy), 
    plot.background = element_rect(fill = navy, color = NA), # 去掉背景边框
    axis.line.x = element_line(colour = 'white', size=0.5, linetype='solid'), 
    axis.line.y = element_blank(),
    plot.title = element_text(size = 20, color="white", hjust=0.5), 
    axis.text = element_text(size = 12, colour = "white")
  )

2. 优化magick拼接参数 #

强制图片尺寸严格匹配，避免自动调整带来的间隙，同时用十六进制颜色值确保背景色完全一致（比如navy的标准十六进制值为#001F3F）：

twitter_image <- image_montage(imgs, tile = '4x2', geometry = "x500!+0+0", bg = "#001F3F")

注：geometry里的!符号是强制图片按指定尺寸缩放，不会保留原比例的多余空间。

3. 备选方案：统一导出图片尺寸 #

如果上述方法仍有间隙，可以先把每张ggplot图导出为固定尺寸的图片，再进行拼接：

# 批量导出所有ggplot图为固定尺寸png
for (i in seq_along(imgs)) {
  ggsave(paste0("temp_plot_", i, ".png"), plot = imgs[[i]], width = 8, height = 5, bg = navy)
}

# 读取导出的图片再拼接
fixed_imgs <- image_read(list.files(pattern = "temp_plot_.*\\.png"))
twitter_image <- image_montage(fixed_imgs, tile = '4x2', geometry = "x500!+0+0", bg = navy)

内容的提问来源于stack exchange，提问作者Holly