r - 晶格中具有不同 y 轴比例的多个面板的尺寸相同

Question

我的时间序列有多个尺度不同的变量。我想在单页中绘制随时间变化的每个变量，并且每个图都有自己的 y 轴。似乎很容易，但我有一个对称问题，因为与 y 轴值较小的图相比，y 轴值较高的图被展平到右侧。当我决定仅在两个图中保留 x 轴时，出现了面板尺寸的另一个问题。这些面板比其他面板变得更加扁平。

我对格子比较陌生，我进行了很多搜索但没有成功。首先，我尝试使用 grid.arrange 排列绘图，但我无法使用此功能修改特定面板。因此，我尝试使用 print 排列绘图，然后使用 panel.widths 和 panel.heights。但它并没有为所有面板提供完全相同的尺寸。考虑到不同的 y 轴和 x 轴存在/不存在，有什么建议可以让多个面板具有相同的尺寸？下面的例子:

#Data
a<-c(1058.2557,821.2002,1004.5201,296.8243,374.3730,746.0718,954.6511,264.7352)
b<-c(100,60,40,36,42,32,42,32)
c<-c(116.610418,164.462337,47.862511,12.613479,4.253702,39.868584,21.591731,6.037917)
d<-c(4,10,3,2,1,5,11,13)
e<-c(20,30,10,50,21,60,20,70)
est1<-c("16:00","19:00","22:00","01:00","04:00","07:00","10:00","13:00")
newest1<-factor(est1,levels=unique(est1))

mysettings<-list(layout.heights=list(top.padding=-1,bottom.padding=-1),
layout.widths=list(right.padding=-2))

plo1<-barchart(a~newest1,scales=list(x=list(alternating=0)),par.settings=mysettings)
plo2<-barchart(b~newest1,scales=list(x=list(alternating=0)),par.settings=mysettings)
plo3<-barchart(c~newest1,scales=list(x=list(alternating=0)),par.settings=mysettings)
plo4<-barchart(d~newest1,scales=list(x=list(rot=45)),par.settings=mysettings)
plo5<-barchart(e~newest1,scales=list(x=list(rot=45)),par.settings=mysettings)

trellis.device(windows, height=6, width=7)
print(plo1, split=c(1,1,2,3),more=T)
print(plo2, split=c(2,1,2,3),more=T)
print(plo3, split=c(1,2,2,3),more=T)
print(plo4, split=c(2,2,2,3),more=T)
print(plo5, split=c(1,3,2,3),more=F)

Answer 1

通常你不会像在格子中那样布局相关的图。您通常会使用分组变量。为此，您需要将所有数据放在一个 data.frame 中

dd <- data.frame(make.groups(a=a,b=b,c=c,d=d,e=e), newest1=newest1)

为了让事情看起来更好一点，我将定义一个自定义轴函数

axis.yout<- function(side, ...) { 
    if(side %in% c("left", "right")) {
        if (panel.number() %% 2 == which(c("right","left")==side)-1) {
            panel.axis(side = side, outside =TRUE)
        }
    } else {
        axis.default(side = side, ...)
    }
}

现在我用它来绘图

barchart(data~newest1 | which, dd, layout=c(2,3), 
    scales=list(alternating=T, y=list(relation="free")),
    par.settings=list(layout.widths=list(right.padding=5, axis.panel = c(1, 0))),
    axis=axis.yout
)

结果

它们都共享一个共同的 x 轴，同时允许自由且独立标记的 y 轴。并且间距/传球都是一致的，因为我们使用了对lattice的单个调用。通常你不会为这样的自定义轴函数而烦恼，但是当尺度关系是“自由”时，格子对交替标签有点脾气。