Создание профессиональных Powerpoints в R

есть ли хороший способ использовать данные из R и пакета, такого как ReporteRs, для создания полных точек питания? Мне нужно создать около 900 слайдов. Наши аналитики в настоящее время следуют этому пути:

БД - > САС --> CSV-файл --> РРТХ (встроенной графики) (X900 от раза)

Это руководство, открытое для множества ошибок и медленное.

в идеале, я бы предпочел:

DB --> R + Репортеры --> PPTX (время x1)

проблема в 2 раза. Во-первых, наши клиенты (необоснованно) предпочитают PPTX через интернет или даже формат PDF. Во-вторых, графика R не может быть отредактирована в PPTX и иногда не имеет идеального размера/формата, особенно с точки зрения размеров текста оси. Итак, есть ли способ использовать R для создания редактируемой графики Powerpoint, гиперссылок на таблицы содержания и т. д.? если не это, есть ли по крайней мере хороший набор шаблонов ggplot2 для использования с достойным форматированием презентации PPTX?

14
package powerpoint r reporters

1 ответов

решена. Оказалось, что это тяжелый случай "не чтения руководства"."Решение состоит в том, чтобы использовать ReporteRs R пакет и прочитайте руководство. :)

Инструкции:

addPlot {ReporteRs}
addPlot(doc, fun, pointsize = 12, vector.graphic = F, ...)
vector.graphic  
logical scalar, if TRUE, vector graphics are produced instead of PNG images.
SVG will be produced for bsdoc objects and DrawingML instructions for docx and
pptx objects.  
DrawingML instructions offer advantage to provide editable graphics
(forms and text colors , text     contents, moving and resizing is disabled).

клавишу пункта: DrawingML инструкции для [... объекты рртх. DrawingML инструкции предлагают [преимущество] [из] provid [ing] редактируемые графики.

так просто установить vector.graphic=TRUE и ты набор.

теперь я могу в Powerpoint редактировать графику, созданную в R: легенды, текст оси, все графические символы. Всё. Это Xmass прийти рано! Спасибо журналистам создателям! Теперь я могу сделать за 3 часа то, что раньше заняло бы 300! Удивительный.

полный проработанный пример ниже:

library( ReporteRs )
require( ggplot2 )
mydoc = pptx(  )
mydoc = addSlide( mydoc, slide.layout = "Title and Content" )
mydoc = addTitle( mydoc, "Plot examples" )
myplot = qplot(Sepal.Length, Petal.Length
, data = iris, color = Species
, size = Petal.Width, alpha = I(0.7)
)
# Add titles and then 'myplot'
mydoc = addPlot( mydoc, function( ) print( myplot ), vector.graphic=TRUE)  
writeDoc( mydoc, file = "~/CustomReport.pptx" )

результат: enter image description here

26