将图像（png文件）添加到用R创建的pdf文件的标题中 [英] Add image (png file) to header of pdf file created with R

问题描述

我试图在我用ggplot创建的图形pdf报告的标题中添加一个.png图像（徽标），并将其打印为pdf。

以下示例演示如何将图像 添加到ggplot 图中。但是，我正在寻找将.png图像添加到位于ggplot区域之外的pdf标题。

 ＃ - -------------------------------------------------- ---------------------------- 
＃示例png文件
＃--------- -------------------------------------------------- -------------------- 
 library（reshape2）
 library（png）
 mypngfile = download.file（'http：/ /api.altmetric.com/donut/502878_64x64.png'，
 destfile ='mypng.png'，mode ='wb'）
 mypng = readPNG（'mypng.png'）
 
＃--------------------------------------------- ---------------------------------- 
＃使用ggplot $ b的mtcars数据框创建示例图$ b＃----------------------------------------------- -------------------------------- 
 library（ggplot2）
 p.example = qplot（ mpg，wt，data = mtcars）+ 
 annotation_raster（mypng，ymin = 4.5，ymax = 5，xmin = 30，xmax = 35）
 
＃-------- -------------------------------- --------------------------------------- 
＃用脚注打印到pdf文件
＃--------------------------------------------- ---------------------------------- 
 fname =C：/ temp / my report.pdf 
 pdf（fname，10.75，6.5，onefile = TRUE，paper =a4r）
 print（p.example）
 dev.off（）
  
 
 $ b产生一个如下所示的pdf：
 
 
  
 
但是，我想要图片在ggplot区域外显示。或者更具体地说，我希望图像显示在报告标题（左上角）中，如以下示例所示： 
 
 
  
 
我发现了以下可用于创建文本脚注的功能，但不知道如何修改它以插入.png图片。
  makeFootnote<  -  function（footnoteText = format（Sys .time（），％d％b％Y），
 size = .4，color = gray（.5））
 {
 require（grid）
 pushViewport （viewport（））
 grid.text（label = footnoteText，
x = unit（1，npc） - 单位（12，mm），
y =单位（0.1， mm），
 just = c（right，bottom），
 gp = gpar（cex = size，col = color））
 popViewport（）
} 
  
任何帮助将不胜感激。  
 
解决方案
这是一个建议， 
 
 
  library（ggplot2）
 p.example = qplot（ mpg，wt，data = mtcars）
 
 library（grid）
 library（gtable）
 ann < -  rasterGrob（mypng，width = unit（1，cm）） （g，grobHeight（ann），0）
g < -  gtable_add_grob（g，ann，t = 1，l = 4）
 grid.newpage（）
 grid.draw（g）
  pre> 
 
 
  
 
I am trying to add an .png image (logo) to the header of my pdf report of graphs created with ggplot and printed to pdf.

I found the following example how to add a image to a ggplot plot. But, I am looking to add the .png image to he header of the pdf which is outside the ggplot area.
#-------------------------------------------------------------------------------
#  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()
...which produces a pdf that looks like this:



But, I would like the image to show up outside the ggplot area. Or more specifically, I want the image to show up in the report header (in upper left) like the following example:



I found the following function that can be used to create a text footnote but wasn't sure how to modify it to insert a .png image.
    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()
    }
Any assistance would be greatly appreciated.
解决方案
here's a suggestion,
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)


                        
这篇关于将图像（png文件）添加到用R创建的pdf文件的标题中的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！