在R中，如何将文本添加到Powerpoint的任意位置，使其继承样式？

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

# 创建一个空的Powerpoint文档
ppt <- read_pptx()
slide <- add_slide(ppt, layout = "Title and Content")

# 在幻灯片中添加文本框
textbox <- ph_with_text(x = slide, str = "这是一个文本框", type = "body")

# 设置文本框的样式
textbox <- ph_style(textbox, font.size = 14, font.color = "black", font.family = "Arial", font.bold = TRUE)

# 设置文本框的位置和大小
textbox <- ph_location(textbox, left = 2, top = 2, width = 6, height = 4)

# 保存Powerpoint文档
print(ppt, target = "output.pptx")