Ответ 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" )

Результат: