R-ohjelmointi.org

Tilastotieteellistä ohjelmointia R-kielellä

R ja Powerpoint: R2PPT

Lueskelin uusimman UseR-konferenssin esityksiä ja huomasin, että PowerPointin käyttöön R:stä käsin on tehty funktiokirjasto: R2PPT. Tämän paketin avulla voi tuottaa automatisoitua raportteja, viedä R:ssä tehtyjä kuvia, taulukoita ja tekstejä suoraan osaksi PowerPoint-esitystä. Olen yleensä käyttänyt Sweavea (Latex) tuottamaan PowerPoint-tyylisiä esityksiä, mutta R2PPT kuulosti nopeiden esitysten tuottamiseen sen verran lupaavalta, että päätin antaa sille mahdollisuuden.

Alla oleva skritpi tuottaa tällaisen PowerPoint-tiedoston: esitys_r2ppt.

#Working directory
setwd("C:/Temp")
 
#Ladataan paketit
library(rcom)
library(R2PPT)
 
#Tehdään kuvat
spl <- split(Indometh, Indometh$Subject)
for (i in names(spl)) {
    jpeg(filename=paste(getwd(), "/", i, ".jpg", sep=""), 
    width = 300, height = 300)
    plot(spl[[i]]$time, spl[[i]]$conc, xlab="time", ylab="conc", 
    col=i, cex=1.5, pch=16)
    dev.off()
}
 
f <- list.files(pattern=".jpg$")
 
#Tehdään esitys
#Avataan powerpoint-esitys
esitys <- PPT.Init()
 
#Tehdään otsikkokalvo
esitys <- PPT.AddTitleSlide(esitys, title="Otsikko", 
subtitle="AlaOtsikko")
 
#Tehdään tekstikalvo
esitys <- PPT.AddTextSlide(esitys, title="Lorem ipsum", text="Lorem 
ipsum dolor sit amet, consectetuer adipiscing elit. \rSed posuere 
interdum sem. \rQuisque ligula eros ullamcorper quis, lacinia 
quis facilisis sed sapien. \rMauris varius diam vitae arcu.")
 
#Viedään kuvat kalvoihin
for (i in 1:length(f)) {
        esitys <- PPT.AddTitleOnlySlide(esitys, title=f[[i]])
        esitys <- PPT.AddGraphicstoSlide(esitys, file=
        paste(getwd(), f[[i]], sep="/"), size = c(200, 150, 300, 300))
}
 
#Asetetaan templaatti, jonka mukaan muotoilut
esitys <- PPT.ApplyTemplate(esitys, file=
"C:/Program Files/Microsoft Office/Templates/
Presentation Designs/Compass.pot")
 
#Tallennetaan working directoryyn
esitys <- PPT.SaveAs(esitys, file=paste(getwd(),
"Esitys_R2PPT.ppt",sep="/"))

Aika mukavaa, vai mitä? Lisäinformaatiota R2PPT paketista: paketin esittely, ohjeet rcom:n asennukseen.