在R语言officer包中ph_with_text不可用时，如何在PPT中添加文本？

你的问题核心是officer 0.6.2版本并未导出ph_with_text函数，这个函数是后续版本才新增的便捷函数，在旧版本中要么不存在，要么仅作为内部函数无法直接调用。可以通过两种方式解决：

方案1：升级officer到最新版本 #

运行以下命令升级包，之后就能正常使用ph_with_text：

install.packages("officer")
library(officer)
# 验证函数是否可用
exists("ph_with_text", where = asNamespace("officer"))

方案2：在当前0.6.2版本中使用替代函数 #

如果不想升级，用当前版本的核心函数ph_with()也能实现添加文本的需求，示例代码如下：

library(officer)

# 创建空白PPT文档
ppt_doc <- read_pptx()
# 添加带标题和内容的幻灯片
ppt_doc <- add_slide(ppt_doc, layout = "Title and Content", master = "Office Theme")

# 给标题占位符添加文本
ppt_doc <- ph_with(ppt_doc, value = "演示文稿标题", location = ph_location_type(type = "title"))
# 给正文占位符添加文本
ppt_doc <- ph_with(ppt_doc, value = "这里是正文内容，直接传入字符串即可", location = ph_location_type(type = "body"))

# 保存生成的PPT
print(ppt_doc, target = "my_presentation.pptx")

旧版本的officer用ph_with()统一处理各类占位符内容，包括文本、表格、图片等，ph_with_text是后续版本为简化文本添加流程新增的语法糖。

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