标签: reporters

目前,我总是使用优秀的ReporteRs包将我的R图导出为矢量格式的Powerpoint ,如

library(ReporteRs)
myplot = function() print(qplot(Sepal.Length, Petal.Length, data = iris, color = Species, size = Petal.Width, alpha = I(0.7)))
doc = pptx()
doc = addSlide(doc, slide.layout = "Blank") 
doc = addPlot( doc, myplot, vector.graphic = TRUE, fontname="Arial",
               offx = 0.1*dim(doc)$slide.dim["width"], offy = 0.05*dim(doc)$slide.dim["height"], 
               width = 0.8*dim(doc)$slide.dim["width"], height = 0.9*dim(doc)$slide.dim["height"])
writeDoc( doc, "plot.pptx") 

我觉得在这个工作流程中不方便的是,我现在必须将我的绘图命令包装在一个函数中(使用print()for lattice或ggplot2plot,或者仅return(plot())用于基础R图),并且我不喜欢手动指定偏移量和大小(我通常更喜欢在幻灯片中获得几乎填充页面,居中的图形.我想知道如果相反,它不可能使你的情节第一(基础R情节,lattice情节或ggplot2情节),然后定义一个函数export2PPT,其捕获当前的图形装置的输出作为一个功能,并将其传递到ReporteRs和addPlot至将您的绘图导出为Powerpoint(居中和适当缩放),类似于以dev.copy2pdf相同方式导出为PDF的功能？

一旦我们有了这样的功能,甚至可能修改grDevices函数 …

有没有一种好方法可以使用来自R的数据和像ReporteRs这样的包来生成完整的Powerpoint？我有大约900张幻灯片可供创建.我们的分析师目前遵循这条道路

DB - > SAS - > CSV - > PPTX(嵌入式图形)(x900次)

这是手动的,容易出错,而且速度很慢.

理想情况下,我更喜欢:

DB - > R + ReporteRs - > PPTX(x1时间)

问题是双重的.首先,我们的客户(不合理地)更喜欢PPTX而不是网络甚至是PDF格式.其次,R图形不能在PPTX中编辑,有时不是理想的尺寸/格式,特别是在轴文本大小方面.那么有没有办法使用R来创建可编辑的Powerpoint图形,超链接目录等？如果不是这样,是否至少有一套好的ggplot2模板可用于正常的PPTX演示文稿格式？

我ReporteRs在R中使用包来创建报告.我有一个有13列的桌子,我希望它能够横向移动.否则,某些列将从表中删除.我想知道是否可以在ReporteRs中为特定的FlexTable对象指定它？所有其他表和文本都以纵向格式显示.对于不给出可重复的例子我表示歉意.先感谢您.

我有一个pptx格式的演示文稿,我需要经常使用R脚本生成的图表进行更新.我想自动更换图表,而不必在屏幕之间复制和粘贴很多次.我一直在使用ReporteRs包,看起来很有希望,但我无法弄清楚如何简单地替换演示文稿中已有的图表.ReporteRs上的所有文档都表明您必须添加新幻灯片,然后将图表放在新幻灯片上.有没有办法说'删除幻灯片7上的图表并将其替换为图表XXX？' ReporteRs是最好的方案吗？

我有一个R闪亮的代码,可以生成各种报告,文字云,情感分析和各种其他内容.现在我希望通过点击一个按钮,所有这些生成的报告都可以一次性下载并附加到ppt.所以,例如它应该看起来像:

幻灯片1:词云

幻灯片2:情绪分析

幻灯片3:报告1 ......等等

到现在为止,我可以单独下载所有这些报告,即我的Shiny UI中有不同的选项卡,每个报告都可以找到并点击"下载",然后由downloadHandler下载.

此外,只需点击一下,我就可以用一个pdf下载所有这些报告,即在一个页面中我有报告1,依此类推.

直到现在我已达到以下:

    #downloadReport is my action button
    #on click of this button I am expecting the ppt. to be downloaded
    observeEvent(input$downloadReport, {
    # Create a PowerPoint document
    doc = pptx( )

    # Slide 1 : Title slide
    #+++++++++++++++++++++++
    doc <- addSlide(doc, "Title Slide")
    doc <- addTitle(doc,"Create a PowerPoint document from R software")
    doc <- addSubtitle(doc, "R and ReporteRs package")


   # Slide 2 : Add Word Cloud
    #+++++++++++++++++++++++
    doc <- addSlide(doc, "Title …

我在循环中使用官员（用于使用记者）来创建 150 个独特的文档。但是，我需要将这些文档从 R 导出为 word docx 和 pdf。

有没有办法将使用官员创建的文档导出为 pdf？

再见，

我正在编写代码，以使用Officer包生成自动报告。我想知道如何以及是否可以用不同的字体写一些文本。就我而言，我想写一些普通的文字和一些粗体字。

让我告诉你我得到的。我使用以下函数来生成fp_text对象：

fp_normal <- function(){
return( fp_text(color = "black", font.size = 16,
        bold = FALSE, italic = FALSE,
        underlined = FALSE, font.family = "Arial", 
        shading.color = "transparent") )
}


fp_bold <- function(){
return( fp_text(color = "black", font.size = 16,
        bold = TRUE, italic = FALSE,
        underlined = FALSE, font.family = "Arial", 
        shading.color = "transparent") )
}

我以前通过使用sum运算符和函数textProperties来组合使用pot函数：

pot("not bold ") + pot("and bold", textProperties(font.weight = "bold") )