In [ ]:

    

%autosave 0
%cp RplotsOriginal.pdf Rplots.pdf 
WARNING! This takes a long time, several minutes!
%load r06.R


    

In [ ]:

    

!Rscript r06.R


    

In [ ]:

    

from wand.image import Image  

imageFromPdf = Image(filename='Rplots.pdf')  
pages = len(imageFromPdf.sequence)  

image = Image(  
  width=imageFromPdf.width,  
  height=imageFromPdf.height * pages  
)  
for i in range(pages):  
  image.composite(  
  imageFromPdf.sequence[i],  
  top=imageFromPdf.height * i,  
  left=0  
)  
image.format="png"  
image