R语言officer包能否向PowerPoint幻灯片添加微软内置形状？

该需求可直接实现，完全不需要提前制作自定义形状、存储为本地图片再插入。officer包原生支持调用PowerPoint内置矢量形状，所有逻辑可全部写入代码，无外部素材依赖，分享代码时其他人可直接运行复现效果，易用性满足要求。

核心是通过ph_with()函数直接指定PowerPoint内置形状类型，搭配fp_shape()定义形状样式、ph_location()定义形状的位置和尺寸，即可插入可编辑的原生形状，最常用的狭长分隔矩形、分隔直线都可以通过这个方式实现。

• 支持的内置形状可通过运行officer_shape_types()查看，覆盖矩形、直线、圆角矩形、箭头、标注等几十种Office原生形状
• 插入的形状是PPT原生矢量元素，可在PowerPoint中直接二次编辑，不存在图片插入的失真、分辨率问题
• 全程不需要读取任何本地自定义图片文件，代码完全自包含

示例代码 #

以下代码演示了上下排布两个图表区域时，中间插入浅灰色狭长矩形作为分隔的实现：

library(officer)
library(magrittr)

# 初始化空白PPT
ppt <- read_pptx() %>%
  add_slide(layout = "Blank", master = "Office Theme")

# 插入上方图表占位（实际使用时替换为你自己的ggplot、flextable等输出对象即可）
ppt <- ph_with(
  x = ppt,
  value = "上方图表区域",
  location = ph_location(left = 1, top = 1, width = 8, height = 3),
  bg = "#f5f5f5"
)

# 定义分隔条样式：浅灰色填充、无边框
seperator_style <- fp_shape(
  fill = "#cccccc",
  line = fp_border(style = "none")
)

# 插入原生矩形分隔条：宽度与图表一致，高度设为0.1cm，位置卡在两个图表中间
ppt <- ph_with(
  x = ppt,
  value = "rect", # 直接传入内置形状标识，无需外部文件
  location = ph_location(left = 1, top = 4.1, width = 8, height = 0.1),
  style = seperator_style
)

# 插入下方图表占位
ppt <- ph_with(
  x = ppt,
  value = "下方图表区域",
  location = ph_location(left = 1, top = 4.3, width = 8, height = 3),
  bg = "#f5f5f5"
)

# 导出文件
print(ppt, target = "带原生分隔的多图表幻灯片.pptx")

如果需要更细的直线分隔，只需要把形状类型换成"line"，调整对应位置和尺寸即可，不需要额外依赖其他工具。

内容的提问来源于stack exchange，提问作者J.Sabree