相关疑难解决方法(0)

我正在尝试将.png图像(徽标)添加到使用ggplot创建的图形的pdf报告的标题中并打印到pdf.

我找到了以下示例如何将图像添加到ggplot图中.但是,我希望将.png图像添加到ggplot区域之外的pdf标题中.

#-------------------------------------------------------------------------------
#  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()

...产生一个如下所示的pdf:

但是,我希望图像显示在ggplot区域之外 …

我有一个数据框,我想以有组织的方式将其写入pdf文件.

例如,我的df看起来像这样:

Date    County    Trade
1/1/2012  USA     5
1/1/2012  Japan   4
1/2/2012  USA     10
1/3/2012  Germany 15

我希望输出为按日期分组,在每组之后放置一个空格或换行符;

我有这段代码,但这会将所有内容打印到pdf文件而不进行分组:

library(gridExtra)
pdf("trade.pdf", height=11, width=8.5)
grid.table(df)
dev.off()

任何想法如何最好地在pdf文件中显示此数据集与日期分组？我喜欢使用grid.Extra.有谁知道如何把标题放到grid.Extra？