r - 将数据框写入pdf表

Question

我有一个数据框，我想以一种有组织的方式将其写入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加上标题吗？

Answer 1

此代码应工作:

library(gridExtra)

df <- read.table(text = 
"1/1/2012  USA     5
1/1/2012  Japan   4
1/2/2012  USA     10
1/3/2012  Germany 15"
)
names(df) <- c("Date","Country","Trade")

EqDatedf <- as.data.frame(df[1,])
EmptyLine <- data.frame(Date = "",Country = "",Trade = "")

pdf(file = "q.pdf")

for (i in 2:nrow(df)) 
{
if (as.vector(df$Date[i])  ==  as.vector(df$Date[i-1])) 
{EqDatedf <- rbind(EqDatedf, df[i,])}

else {
EqDatedf <- rbind(EqDatedf, EmptyLine)
EqDatedf <- rbind(EqDatedf, df[i,]) 
     }
}

grid.table(EqDatedf, show.rownames = FALSE)
dev.off()