在R中打印绘图时第一页为空
我正在尝试创建一个带有多个绘图的pdf。更具体地说,我想保存我的绘图,每页4个。因此,我在r中有以下代码(可以工作,但留下一个空页面-第一个-):在R中打印绘图时第一页为空,r,plot,R,Plot,我正在尝试创建一个带有多个绘图的pdf。更具体地说,我想保存我的绘图,每页4个。因此,我在r中有以下代码(可以工作,但留下一个空页面-第一个-): pdf(“Plots/Plots\u numeric\u four\u in\u page.pdf”,paper=“a4r”,width=14) graphlistgridExtra中的ggplot2之间存在一个已知的错误,导致一些包含ggplots的marrangeGrob。手动重写grid.draw.arrangelist函数()(marrang
pdf(“Plots/Plots\u numeric\u four\u in\u page.pdf”,paper=“a4r”,width=14)
graphlistgridExtra中的ggplot2之间存在一个已知的错误,导致一些包含ggplots的marrangeGrob
。手动重写grid.draw.arrangelist
函数()(marrangeGrob
返回arrangelist
对象)可能会修复它(建议)
grid.draw.arrangelist 1)grid.newpage()跳过grid.newpage()的第一次调用
网格绘制(x[[ii]]
}
}
与覆盖网格相比,为有问题的排列列表
对象定义一个新类并对其应用修复可能更安全。为每个marrageGrob
调用范围绘制
pdf("Plots/plots_numeric_four_in_page.pdf",paper="a4r",width = 14)
graphlist <- lapply(3:NCOL(agg_num), function(i) {
force(i)
tempColName=dataName_num[i]
print (tempColName)
p<-qplot(Group.1,agg_num[[tempColName]],data = agg_num,color=Group.2,geom = "line",main=tempColName) + xlab("Date") + ylab(paste("Count of ", tempColName)) + geom_line(size=1.5)+ scale_x_date(labels = date_format("%m/%Y"))+
theme(legend.position="bottom",legend.direction="horizontal")+ guides(col=guide_legend(ncol=3))
})
do.call("marrangeGrob",c(graphlist,ncol=2,nrow=2))
dev.off()
grid.draw.arrangelist <- function(x, ...) {
for(ii in seq_along(x)){
if(ii>1) grid.newpage() # skips grid.newpage() call the first time around
grid.draw(x[[ii]])
}
}