0

我使用 grid.arrange() 用一列绘制 4 个折线图。如果尺寸很大，将文件另存为 .png 或 .pdf 时，grobs 看起来不错。但是，当我缩小绘图的高度时，顶部的 grob 会被压缩。

如何防止 grid.arrange 压缩 grobs？

一些丑陋的代码：

(a<-autoplot(mars.prcp1yrs) + labs(y="", x="") +theme_light()+ylim(60,210)+
   theme(text=element_text(size=8),
         axis.text.y=element_text(size=8),axis.text.x=element_blank(),
         axis.title.y=element_blank(),
         axis.ticks.x=element_blank(), 
         plot.margin=unit(c(0.1,0.1,0.1,0.1),"in")))

(b<-autoplot(jupiter.prcp1yrs) + labs(y="",x="")+ theme_light()+ylim(60,210)+
  theme(text=element_text(size=8),axis.text.y=element_text(size=8),
        axis.text.x=element_blank(),axis.title.y=element_blank(),
        axis.ticks.x=element_blank(),plot.margin=unit(c(-0.3,0.1,0.1,0.1),"in")))

(c<-autoplot(saturn.prcp1yrs) +labs(y="",x="") + theme_light()+ylim(60,210)+
  theme(text=element_text(size=8),
        axis.text=element_text(size=8),
        axis.text.x=element_blank(),axis.title.y=element_blank(),
        axis.ticks.x=element_blank(),plot.margin=unit(c(-0.3,0.1,0.1,0.1),"in")))

(d<-autoplot(earth.prcp1yrs) +labs(y="",x="") +theme_light()+ylim(60,210)+
  theme(text=element_text(size=8),axis.text=element_text(size=8),
        axis.ticks.x=element_blank(),axis.title.y=element_blank(),
        plot.margin=unit(c(-0.3,0.1,0.1,0.1),"in")))


prcp.grid<-grid.arrange(a,b,c,d, ncol=1)


png("plot.png",width=3740,height=1000,res=500)
old.par <- par(mfrow=c(2, 2))
grid.arrange(prcp.grid, ncol=2)
par(old.par)
dev.off()

这是输出（我使用这个纵横比只是为了戏剧化顶部 grob 的压缩。）： 在此处输入图像描述

4

1 回答 1

0

我发现最好将 zoo 对象转换为使用fortify().

所以按照上面的例子，我首先将每个动物园对象转换为一个数据框：

mars.prcp.1yr<-fortify(mars.prcp1yrs)
jupiter.prcp.1yr<-fortify(jupiter.prcp1yrs)
saturn.prcp.1yr<-fortify(saturn.prcp1yrs)
earth.prcp.1yr<-fortify(earth.prcp1yrs)

然后我为每个数据框添加了一个公共变量（行星）：

#add planet as variable
mars.prcp.1yr$planet <- "Mars"
jupiter.prcp.1yr$planet <- "Jupiter"
saturn.prcp.1yr$planet <- "Saturn"
earth.prcp.1yr$planet <- "Earth"

更改 zoo 对象名称以更好地表示变量：

    #change to common colnames
    mars.prcp.1yr <- rename(mars.prcp.1yr, Precipitation = mars.prcp1yrs)
    jupiter.prcp.1yr <- rename(jupiter.prcp.1yr, Precipitation = jupiter.prcp1yrs)
    saturn.prcp.1yr <- rename(saturn.prcp.1yr, Precipitation = saturn.prcp1yrs)
    earth.prcp.1yr <- rename(earth.prcp.1yr, Precipitation = earth.prcp1yrs)

然后，行将所有数据帧绑定到一个数据帧中：

  prcp.1yr <- bind_rows(mars.prcp.1yr,jupiter.prcp.1yr,saturn.prcp.1yr,earth.prcp.1yr)

然后facet_grid(planet~.)在标准ggplot()调用中使用参数。

于 2017-06-16T17:45:34.987 回答