相关疑难解决方法(0)

我有大约100张图片(png).我不想手动执行此操作,而是希望按照定义的顺序(基于文件名)将它们放在一个单独的pdf中(每行12个图像).

有人有什么建议吗？

我试着按照托马斯在下面告诉我的内容,将它们贴在黑色边缘旁边,我该如何删除？

setwd(workingDir);
files <- list.files(path=".", pattern="*.png", all.files=T, full.names=T)
filelist <- lapply(files, readPNG)
names(filelist) <- paste0(basename((files)))
list2env(filelist, envir=.GlobalEnv)


par(mar=rep(0,4))
layout(matrix(1:length(names(filelist)), ncol=15, byrow=TRUE))

for(i in 1:length(names(filelist))) {
  img <- readPNG(names(filelist[i]))
  plot(NA,xlim=0:1,ylim=0:1,xaxt="n",yaxt="n")
  rasterImage(img,0,0,1,1)
}


dev.print(pdf, "output.pdf") 

我想使用该magick包创建一个 3 x 3 的高分辨率 \xe2\x80\x9cmontage\xe2\x80\x9d 。

library(magick)\n#> Linking to ImageMagick 6.9.7.4\n#> Enabled features: fontconfig, freetype, fftw, lcms, pango, x11\n#> Disabled features: cairo, ghostscript, rsvg, webp\n\n# Read the image and resize it\nfrink <- image_read("https://jeroen.github.io/images/frink.png")\nfrink <- image_resize(frink, "100x")\n\n# Create 1 column with 3 rows\ncol <- image_append(rep(frink, 3), stack = TRUE)\n\n# "Combine" 3 columns\ni <- image_append(c(col, col, col))\n\ni\n

所以我的问题是如何将其保存为高分辨率 png（例如 300 DPI）？我正在考虑使用image_write()，但显然我无法在那里设置我想要的分辨率。

# This is not working\n# image_write(i, tempfile(), res = 300)\n

谢谢你，\n菲尔 …