Подтвердить что ты не робот

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

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

DB → SAS → CSV → PPTX (встроенная графика) (x900 раз)

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

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

DB → R + ReporteRs → PPTX (x1 time)

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

4b9b3361

ОТВЕТЫ

Ответ 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 для [...] объектов pptx. Инструкции DrawingML предлагают [] преимущество [правдоподобной] редактируемой графики.

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

Теперь я могу в Powerpoint редактировать графику, созданную в R: легенды, текст осей, все графические символы. Все. Это Xmass приходит рано! Спасибо разработчикам ReporteRs! Теперь я могу сделать за 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