你碰到的问题很常见——image_write()里的res参数确实对已经是光栅格式的图像（比如你创建的PNG蒙太奇）不起作用，这个参数主要是给矢量图（比如SVG转PNG）设置渲染分辨率用的。要给你的3×3蒙太奇添加300DPI的属性，甚至生成真正的高分辨率图像，我们可以分两种情况处理：

情况1：仅添加300DPI元数据（像素数不变） #

如果你的图像像素尺寸已经足够，只是需要告诉系统这个图像的DPI是300，可以用image_set_density()先设置图像的密度元数据，再保存：

library(magick)

# 你的原有代码：创建3×3蒙太奇
frink <- image_read("https://jeroen.github.io/images/frink.png")
frink <- image_resize(frink, "100x")
col <- image_append(rep(frink, 3), stack = TRUE)
i <- image_append(c(col, col, col))

# 设置图像密度为300 DPI
i_with_dpi <- image_set_density(i, density = 300)

# 保存图像
image_write(i_with_dpi, "montage_300dpi.png")

情况2：生成真正的高分辨率图像（更多像素） #

如果想要打印或放大时更清晰的真正高分辨率，你需要先创建像素数更多的图像，再设置DPI。比如原来你把图像缩到100x，如果要对应300DPI，应该把尺寸放大到3倍（因为DPI是每英寸的像素数，相同物理尺寸下，300DPI的像素数是100DPI的3倍）：

library(magick)

# 读取图像并调整到高像素尺寸（对应300DPI）
frink_highres <- image_read("https://jeroen.github.io/images/frink.png")
frink_highres <- image_resize(frink_highres, "300x")  # 100x的3倍尺寸

# 创建3行1列的图像列
col_highres <- image_append(rep(frink_highres, 3), stack = TRUE)

# 组合3列生成3×3蒙太奇
i_highres <- image_append(c(col_highres, col_highres, col_highres))

# 设置密度为300 DPI
i_highres <- image_set_density(i_highres, density = 300)

# 保存高分辨率图像
image_write(i_highres, "montage_highres_300dpi.png")

另一种方法：用extra参数直接传递ImageMagick命令 #

你也可以在image_write()里用extra参数直接给ImageMagick传递命令行选项来设置DPI，这样可以一步完成：

# 针对已有蒙太奇图像i，直接保存并设置300DPI
image_write(i, "montage_300dpi.png", extra = "-density 300")

为什么原来的res参数无效？ #

简单来说，res参数是为矢量图像设计的——当你把SVG、PDF这类矢量图转成PNG时，res控制渲染时的像素密度。但对于PNG这种光栅图像，像素尺寸已经固定，这个参数就会被忽略，必须通过修改元数据（image_set_density()）或调整像素尺寸来实现高分辨率需求。

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