我之前帮同事解决过一模一样的问题——用officer创建符合企业模板要求的PPT，还要插入公式，给你两个经过验证的可行方案：

方案1：LaTeX公式转矢量图形插入（推荐，适配性强） #

officer本身不直接支持LaTeX，但可以结合rvg和tikzDevice把LaTeX公式转成矢量图形，插入后不失真，还能完美适配企业模板的布局：

• 先安装并加载所需依赖包：

  install.packages(c("officer", "rvg", "tikzDevice"))
  library(officer)
  library(rvg)
  library(tikzDevice)
  

• 写一个便捷的公式转矢量图函数：

  latex_to_rvg <- function(latex_code, width = 4, height = 1) {
    # 生成临时PDF文件
    temp_pdf <- tempfile(fileext = ".pdf")
    # 用tikz编译LaTeX公式
    tikz(temp_pdf, width = width, height = height, standAlone = TRUE)
    cat(paste0("\\documentclass{standalone}\n\\usepackage{amsmath}\n\\begin{document}\n", latex_code, "\n\\end{document}"))
    dev.off()
    # 转成rvg格式供officer使用
    rvg::dml(file = temp_pdf)
  }
  

• 插入到你的企业模板PPT中：

  # 加载企业模板PPT
  my_ppt <- read_pptx(path = "你的企业模板文件.pptx")
  # 添加新幻灯片（对应模板里的布局）
  my_ppt <- add_slide(my_ppt, layout = "标题和内容", master = "模板母版名称")
  
  # 插入公式，比如爱因斯坦质能方程
  my_ppt <- ph_with(my_ppt, value = latex_to_rvg("$E=mc^2$"), location = ph_location_type(type = "body"))
  
  # 保存最终PPT
  print(my_ppt, target = "包含公式的企业演示文稿.pptx")
  

这个方法的优势是公式为矢量格式，放大不会模糊，而且可以通过LaTeX代码自定义复杂公式，完全兼容模板的样式要求。

方案2：调用PowerPoint内置公式编辑器 #

如果你不想依赖LaTeX环境，也可以直接调用PowerPoint原生的公式功能，插入OMML格式的公式，后期还能在PPT里直接编辑：

• 用rvg的dml_formula简化操作，代码更简洁：

  library(officer)
  library(rvg)
  
  my_ppt <- read_pptx("你的企业模板文件.pptx")
  my_ppt <- add_slide(my_ppt, layout = "标题和内容", master = "模板母版名称")
  
  # 插入二次方程求根公式，支持类似LaTeX的语法
  my_ppt <- ph_with(my_ppt, value = dml_formula("x = \\frac{-b \\pm \\sqrt{b^2-4ac}}{2a}"), 
                    location = ph_location_type(type = "body"))
  
  print(my_ppt, target = "包含公式的企业演示文稿.pptx")
  

这种方法的好处是公式是PowerPoint原生对象，完全符合企业模板的字体、样式规范，不需要额外的LaTeX环境。

小提示 #

• 如果企业模板有指定字体，在方案1中记得在LaTeX代码里添加字体设置（比如\\usepackage{fontspec}指定对应字体），避免字体不匹配。
• 方案1需要你的系统安装LaTeX环境（比如TeX Live或MikTeX），如果没有的话，方案2是更省心的选择。

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