ggsave：设置powerpoint图像的宽度和高度

我试图改变图像的高度和宽度，但没有成功。图像需要放在powerpoint演示文稿中，效果很好。但出于某种原因，它会在幻灯片上不断拉伸图像

在创建图像并将其保存到powerpoint演示文稿后，我得到了以下信息。如果你看这些字母，它们似乎被拉长了。

我真正想要的是下面的例子。

我知道这可以通过简单地调整图像来手动完成powerpoint演示文稿中的每个图像。但是，由于我需要创建不止一个powerpoint，因此并不需要手动创建

我用于保存图像的代码：

#-------------------------------------------------#
#--------Create grid list of all graphs-----------#
#-define the rows of which the graphs are ordered-#
#-------------------------------------------------#
Finangrid <- grid.arrange(
  fig1, fig2, fig3,
  nrow = 1
)
#-------------------------------------------------#
#-------------Save grid list to file--------------#
#----------It creates file if not exist-----------#
#-------------------------------------------------#
ggsave("Financieel.png", 
       plot = Finangrid, 
       device = "png",
       scale = 2,
       width = 7, 
       height = 5, 
       units = c("in")
)

#-------------------------------------------------#
#--------创建所有图形的网格列表-----------#
#-定义对图形进行排序的行-#
#-------------------------------------------------#
Finangrid如果您可以提供一个可复制的示例（），这将非常有用。也就是说，我猜你需要设置“单位”参数以及宽度和高度。如果您想要一定数量的像素，那么可以指定
units=“mm”
这样的内容：
ggsave（filename=“Plot 1.png”，width=480，height=756，units=“mm”）
将最后发送到图形设备的打印保存为“Plot 1.png”宽度为480像素，高度为756像素。我忘记粘贴我使用的代码，对此表示抱歉！正如您在我的代码中看到的，我已经指定了单位。我尝试了你的解决方案（只是为了确定），但结果仍然是拉伸图像。。。
loc_body1 <- ph_location_type(type = "body", position_right = TRUE, position_top = TRUE)
loc_body2 <- ph_location_type(type = "body", position_right = FALSE, position_top = TRUE)

doc <- read_pptx("prestest.pptx")
doc <- doc %>% on_slide(index = 24) %>%
  ph_with(external_img("Financieel.png"), location = loc_body1)
fileout <- "prestest.pptx"
print(doc, target = fileout)