R 文本默认为垂直，幻灯片上的对象太多

当我在一张幻灯片上放置九个以上的对象时，最新的对象默认为垂直（这种情况发生在文本上，不确定打印或图像）。我的公司确实有在幻灯片上放太多信息的习惯，但如果可能的话，他们希望保持相同的格式。我不确定ReporteRs包是否有设置最大对象数的选项，或者这可能是运行包的一个依赖项的问题。我会附上一个截图和代码。我创建了一个名为Presentation1.pptx的空白文档，并将其放在我的工作目录中

代码：

图书馆（“记者”）
pres首先，如果可能，移动到package
officer
，并阅读该页：

在脚本中，将宽度设置为0，并为每个新段落使用一个新形状
text.align
不是addparagration的参数。让我们简化一下：

library(ReporteRs)
pres <- pptx()
pres <- addSlide(pres, slide.layout = 'Title and Content')

style_36 <- textBold(color = "black", font.size = 36, font.family = "Arial")
style_17 <- textBoldItalic(color = "black", font.size = 17, font.family = "Arial")
style_21 <- textBoldItalic(color = "black", font.size = 21, font.family = "Arial")

par_lev_1 <- parProperties(list.style = "unordered", level = 1)
par_lev_2 <- parProperties(list.style = "unordered", level = 2)
par_lev_3 <- parProperties(list.style = "unordered", level = 3)

pres <- addParagraph(par.properties = parProperties(), doc = pres, value = pot("SOME TEXT", style_36),
                     offx = 0.5, offy = 0, width = 8, height = 6)

pres <-addParagraph(par.properties = par_lev_1, append = TRUE, 
                    doc = pres, value = pot("Some Text", style_21) )

pres <-addParagraph(par.properties = par_lev_2, append = TRUE, 
                    doc = pres, value = pot("Some Text", style_17) )

pres <-addParagraph(par.properties = par_lev_2, append = TRUE, 
                    doc = pres, value = pot("Some Text", style_17) )

pres <-addParagraph(par.properties = par_lev_3, append = TRUE, 
                    doc = pres, value = pot("Some Text", style_21) )

pres <-addParagraph(par.properties = par_lev_2, append = TRUE, 
                    doc = pres, value = pot("Some Text", style_17) )

pres <-addParagraph(par.properties = par_lev_2, append = TRUE, 
                    doc = pres, value = pot("Some Text", style_17) )

pres <-addParagraph(par.properties = par_lev_2, append = TRUE, 
                    doc = pres, value = pot("Some Text", style_17) )

pres <-addParagraph(par.properties = par_lev_2, append = TRUE, 
                    doc = pres, value = pot("Some Text",style_17) )

pres <-addParagraph(par.properties = par_lev_2, append = TRUE, 
                    doc = pres, value = pot("Some Text", style_17) )

pres <-addParagraph(par.properties = par_lev_3, append = TRUE, 
                    doc = pres, value = pot("Copyright Text", style_21) )

writeDoc(pres, file = "pres.pptx")

图书馆（记者）
谢谢您的快速回复和帮助！我会研究一下这个军官包。接下来的一个问题是，使用这个方法，有没有办法设置文本的位置？当我尝试使用offx和offy命令时，当我将文本设置到正确的位置时，我得到了一个需要宽度和高度的错误。我不确定是否理解。在第一个调用中，添加一个新段落，并在该段落中定义位置（是的，您还需要宽度和高度），然后它仅附加到新的现有文本形状中。所有的文字都属于同一个形状，这是有道理的。谢谢你的解释。
library(ReporteRs)
pres <- pptx()
pres <- addSlide(pres, slide.layout = 'Title and Content')

style_36 <- textBold(color = "black", font.size = 36, font.family = "Arial")
style_17 <- textBoldItalic(color = "black", font.size = 17, font.family = "Arial")
style_21 <- textBoldItalic(color = "black", font.size = 21, font.family = "Arial")

par_lev_1 <- parProperties(list.style = "unordered", level = 1)
par_lev_2 <- parProperties(list.style = "unordered", level = 2)
par_lev_3 <- parProperties(list.style = "unordered", level = 3)

pres <- addParagraph(par.properties = parProperties(), doc = pres, value = pot("SOME TEXT", style_36),
                     offx = 0.5, offy = 0, width = 8, height = 6)

pres <-addParagraph(par.properties = par_lev_1, append = TRUE, 
                    doc = pres, value = pot("Some Text", style_21) )

pres <-addParagraph(par.properties = par_lev_2, append = TRUE, 
                    doc = pres, value = pot("Some Text", style_17) )

pres <-addParagraph(par.properties = par_lev_2, append = TRUE, 
                    doc = pres, value = pot("Some Text", style_17) )

pres <-addParagraph(par.properties = par_lev_3, append = TRUE, 
                    doc = pres, value = pot("Some Text", style_21) )

pres <-addParagraph(par.properties = par_lev_2, append = TRUE, 
                    doc = pres, value = pot("Some Text", style_17) )

pres <-addParagraph(par.properties = par_lev_2, append = TRUE, 
                    doc = pres, value = pot("Some Text", style_17) )

pres <-addParagraph(par.properties = par_lev_2, append = TRUE, 
                    doc = pres, value = pot("Some Text", style_17) )

pres <-addParagraph(par.properties = par_lev_2, append = TRUE, 
                    doc = pres, value = pot("Some Text",style_17) )

pres <-addParagraph(par.properties = par_lev_2, append = TRUE, 
                    doc = pres, value = pot("Some Text", style_17) )

pres <-addParagraph(par.properties = par_lev_3, append = TRUE, 
                    doc = pres, value = pot("Copyright Text", style_21) )

writeDoc(pres, file = "pres.pptx")