Add Bild (PNG-Datei) von pdf-Datei mit R erstellt Header

Question

Ich versuche, ein .png-Bild (Logo) auf den Kopf meines pdf Berichts von Graphen mit ggplot und gedruckt zu pdf erstellt hinzuzufügen.

fand ich das folgende Beispiel, wie man ein Bild zu einem ggplot Grundstück hinzuzufügen. Aber ich schaue, um das .png Bild zum Kopf der pdf hinzuzufügen, der außerhalb des ggplot Bereichs ist.

#------------------------------------------------------------------------------- 
# Example png file 
#------------------------------------------------------------------------------- 
library(reshape2) 
library(png) 
mypngfile = download.file('http://api.altmetric.com/donut/502878_64x64.png', 
          destfile = 'mypng.png', mode = 'wb') 
mypng = readPNG('mypng.png') 

#------------------------------------------------------------------------------- 
# create example plot using mtcars data frame from ggplot 
#------------------------------------------------------------------------------- 
library(ggplot2) 
p.example = qplot(mpg, wt, data = mtcars) + 
    annotation_raster(mypng, ymin = 4.5, ymax= 5, xmin = 30, xmax = 35) 

#------------------------------------------------------------------------------- 
# print to pdf file with footnote 
#------------------------------------------------------------------------------- 
fname = "C:/temp/my report.pdf" 
pdf(fname, 10.75, 6.5, onefile=TRUE, paper="a4r") 
print(p.example) 
dev.off() 

..., die eine PDF erzeugt, der wie folgt aussieht:

Aber ich das Bild möchte außerhalb des ggplot Bereich zu zeigen. Oder genauer gesagt, möchte ich das Bild im Berichtskopf zeigen (in oben links) wie im folgenden Beispiel:

Ich fand die folgende Funktion, die verwendet werden können, um einen Text Fußnote zu erstellen, aber wasn Ich bin mir sicher, wie man es ändert, um ein .png Bild einzufügen.

makeFootnote <- function(footnoteText= format(Sys.time(), "%d %b %Y"), 
           size= .4, color= grey(.5)) 
    { 
     require(grid) 
     pushViewport(viewport()) 
     grid.text(label= footnoteText , 
       x = unit(1,"npc") - unit(12, "mm"), 
       y = unit(0.1, "mm"), 
       just=c("right", "bottom"), 
       gp=gpar(cex= size, col=color)) 
     popViewport() 
    } 

Jede Unterstützung würde sehr geschätzt werden.

Answer 1

hier ist ein Vorschlag,

library(ggplot2) 
p.example = qplot(mpg, wt, data = mtcars) 

library(grid) 
library(gtable) 
ann <- rasterGrob(mypng, width=unit(1,"cm"), x = unit(0.5,"cm")) 
g <- ggplotGrob(p.example) 

g <- gtable_add_rows(g, grobHeight(ann), 0) 
g <- gtable_add_grob(g, ann, t=1, l=4) 
grid.newpage() 
grid.draw(g)