ggsave设置图片宽高后导入PowerPoint出现拉伸变形的技术问询

The Problem #

You’re combining plots with grid.arrange, saving them as PNGs, then importing into PowerPoint—but the images get stretched to fill the slide body, distorting text and layout. Manual resizing isn’t feasible when creating multiple presentations.

Root Causes #

1. The scale parameter in ggsave might be overriding your specified width/height, leading to an unexpected aspect ratio in the exported image.
2. Using ph_location_type() forces the image to fill the entire "body" region, ignoring the original image’s aspect ratio.

Solutions #

1. Optimize Image Export to Match PowerPoint’s Aspect Ratio

First, ensure your exported PNG has an aspect ratio aligned with your PowerPoint slides (most modern slides use 16:9). Ditch the scale parameter if it’s causing confusion, and explicitly set width/height to fit the region you want to fill:

# Combine plots into a grid
Finangrid <- grid.arrange(fig1, fig2, fig3, nrow = 1)

# Save with 16:9 aspect ratio (matches standard PowerPoint slides)
# Adjust width/height based on your slide's layout needs
ggsave(
  "Financieel.png", 
  plot = Finangrid, 
  device = "png", 
  width = 8,    # 8 inches wide
  height = 4.5, # 4.5 inches tall (8 * 9/16 = 4.5, perfect 16:9 ratio)
  units = "in",
  dpi = 300     # High resolution for sharp text and lines
)

2. Specify Exact Dimensions When Importing to PowerPoint

Instead of ph_location_type(), use ph_location() to define the exact position and size of the image. This prevents PowerPoint from stretching the image to fill the region:

# Define precise location and size for the right-side body area
# Adjust left/top values to fit your template (standard wide slide is ~13.33 inches wide)
loc_body1 <- ph_location(
  width = 8, 
  height = 4.5, 
  left = 5,  # Distance from the slide's left edge
  top = 1    # Distance from the slide's top edge
)

# Import and place the image without stretching
doc <- read_pptx("prestest.pptx")
doc <- doc %>% 
  on_slide(index = 24) %>% 
  ph_with(external_img("Financieel.png"), location = loc_body1)

print(doc, target = "prestest.pptx")

3. Skip Saving as PNG—Insert Plots Directly into PowerPoint

The cleanest way to avoid stretching entirely is to insert your grid.arrange object directly into PowerPoint without saving it as an image. This keeps plots as vector graphics (sharp, scalable) and preserves their original aspect ratio:

doc <- read_pptx("prestest.pptx")
doc <- doc %>% 
  on_slide(index = 24) %>% 
  # Insert the combined plot directly with precise dimensions
  ph_with(
    value = Finangrid, 
    location = ph_location(width = 8, height = 4.5, left = 5, top = 1)
  )

print(doc, target = "prestest.pptx")

Final Notes #

• Test the left/top/width values with your specific PowerPoint template to nail the layout.
• If you must use PNGs (e.g., for compatibility), always ensure the exported image’s aspect ratio matches the region you’re placing it in.

内容的提问来源于stack exchange，提问作者Robbie Voort