body_add_img 具有自定义图像尺寸

body_add_img with custom image size

我想将图像添加到 docx.files 系列中。 但我不想改变它们的大小——每个图像都有不同的宽度和高度。我如何为每个想象指定这个:

 sample_doc %>% body_add_img(paste0(data_base$Skizze[[x]],".JPG"),width = 5.5, height = 5.5)

我需要分别获取每个图像的高度和宽度来覆盖它。我该怎么做?

您可以使用 readJPEGjpeg 读取每个文件并使用 dim:

library(jpeg)
img <- readJPEG("pic.jpg")

dim(img)

前两个元素是像素,第三个总是3(R,B,G)。现在,您将像素除以 96,得到以英寸为单位的宽度和高度,您可以使用这些值遍历图片列表。