我正在使用 R 生成包含 QR 碼影像的 PDF。影像必須以 4x6 模式排列，就像我在 Word 中制作的這個樣機：
我已經撰寫了一個加載程式，我計劃稍后將其寫入一個回圈（我有超過 2000 張影像）。但是，我不能完全得到正確的間距。這是我目前的結果：
影像較小并不是一件壞事，但頂部和底部和右側的較大邊距是一個問題。我一直在嘗試在回圈中設定 par(mar = c(4,0,0,0) 以查看影像是否會獲得底部邊距，但這不會發生。另外，我認為我需要使用填充而不是邊距，但我還沒有找到填充的引數。
有沒有辦法做到這一點？到目前為止我寫的代碼：
# import libraries
library(qrcode)
library(imager)
# clear workspace
rm(list = ls())
filenames <- list.files(path = "./QR/2/")
im <- load.image(paste0("./QR/2/",filenames[1]))
im <- list()
for(i in 1:24){
im[[i]] <- load.image(paste0("./QR/2/",filenames[i]))
}
pdf("./QR/2/stickervellen/1.pdf", paper = "a4")
par(mfrow = c(6,4), mar=c(0,0,0,0))
for(i in 1:24){
par(mar = c(4,0,0,0))
plot(im[[i]], axes = F)
}
dev.off()
我使用的圖片可以在這里找到：
請注意，我box()在您的代碼中添加了各個圖的范圍和它們周圍的邊距。
在?pdf您可能還會發現，如果您指定paper引數
如果寬度或高度小于 0.1 或太大而無法提供 0.5 英寸的總邊距，則將其重置為相應的紙張尺寸減去 0.5。
這就是為什么當您指定paper. 如果您不想要該邊距，只需省略即可paper="a4"，您將得到以下資訊：
轉載請註明出處，本文鏈接：https://www.uj5u.com/qukuanlian/531261.html
標籤：r图像处理pdf生成
上一篇：獲取列中元素的頻率
下一篇：如何將一列拆分為R中的不同列