嘿，我刚好碰到过和你一模一样的问题——用ggplot2做了漂亮的矢量图，先是用ReporteRs导入PPT丢了可缩放性，转成SVG后又纠结怎么导入PPT。下面几个亲测有效的办法，帮你搞定：

方法1：直接插入SVG（适用于Office 2016及以上版本） #

现在新版PowerPoint已经原生支持SVG矢量格式了，步骤超简单：

• 打开你的PPT，切换到要插入图表的幻灯片
• 点击顶部菜单栏的「插入」→ 选择「图片」→ 找到你用svglite导出的SVG文件
• 插入后随便缩放都不会模糊，完全保留矢量属性
• 小提示：右键点击插入的SVG，选择「分组」→「取消分组」（可能需要取消多次），就能直接编辑图表里的元素，比如修改文字颜色、调整图形形状，编辑后依然是矢量的哦

方法2：转成EMF/WMF格式（兼容旧版Office） #

如果你的PPT版本比较老（比如2013及以前），不支持直接插入SVG，可以把SVG转成EMF（增强型图元文件）——这也是PPT完美支持的矢量格式：

用本地工具转（比如Inkscape） #

• 下载免费开源的Inkscape工具，打开你的SVG文件
• 点击「文件」→「另存为」，选择「EMF 增强型图元文件」格式保存
• 把生成的EMF文件插入PPT，同样能无损缩放

用R直接转（不用打开外部工具） #

可以用rsvg包在R里直接完成格式转换：

# 先安装包
install.packages("rsvg")
library(rsvg)

# 将SVG转成EMF
rsvg_svg(input = "your_ggplot_plot.svg", output = "your_ggplot_plot.emf")

方法3：从R直接导出/插入兼容PPT的矢量图（一步到位） #

其实不用先存SVG再折腾，直接用R工具链搞定：

直接导出EMF格式 #

ggplot2支持直接导出EMF，生成的文件可以直接插入PPT：

library(ggplot2)

# 替换成你的ggplot对象和保存路径
ggsave(
  filename = "your_plot.emf",
  plot = your_ggplot_object,
  device = "emf",
  width = 6,
  height = 4
)

用officer包直接插入SVG到PPT（替代停更的ReporteRs） #

ReporteRs已经停止维护了，推荐用它的继任者officer包，能直接把SVG插入PPT并保留矢量属性：

# 安装并加载包
install.packages("officer")
library(officer)
library(svglite)

# 创建新的PPT文档
ppt_doc <- read_pptx()
# 添加一个幻灯片（可根据需要调整布局）
ppt_doc <- add_slide(ppt_doc, layout = "Title and Content", master = "Office Theme")
# 插入SVG到幻灯片内容区
ppt_doc <- ph_with(
  ppt_doc,
  external_img(src = "your_plot.svg", width = 6, height = 4),
  location = ph_location_type(type = "body")
)
# 保存PPT
print(ppt_doc, target = "final_presentation.pptx")

这样生成的PPT里的图表不仅可缩放，还能保持ggplot2的原始样式，完全不用手动导入啦～

内容的提问来源于stack exchange，提问作者Soren Christensen