r - 在 ggplot2 中混合 facet_grid() 和 facet_wrap()

Question

我的问题有点奇怪。我有四种方法(M1、M2、M3 和 M4)，每种方法都在两个独立的阶段(T1 和 T2)和 10 种不同的大小(1、2、...、10)中进行了实验。下表显示了数据的结构:

phase size  mean      stdev   methodT1    1     0.005     0.001    M1T1    2     0.009     0.004    M1T1    3     0.011     0.004    M1...T2    9     269.020   12.003   M4T2    10    297.024   10.004   M4

The range of the first phase results (T1) is smaller than those of the second phase. The following command generates the first plot

p <- ggplot(ds, aes(x=size, y=mean, color=method)) 
      + geom_line() 
      + geom_smooth(aes(ymin=mean-stdev, ymax=mean+stdev), stat="identity") 
      + scale_x_discrete(breaks=1:10) 
      + labs(x="Size", y="Time in Seconds", fill="Method") 
      + theme(panel.margin=unit(0.5, "lines"), legend.position="none") 
      + facet_grid(method~phase, scales="free_y")

结果:
而下面的代码给出了第二个图

p <- ggplot(ds, aes(x=size, y=mean, color=method))
      + geom_line() 
      + geom_smooth(aes(ymin=mean-stdev, ymax=mean+stdev), stat="identity") 
      + scale_x_discrete(breaks=1:10) 
      + labs(x="Size", y="Time in Seconds", fill="Method") 
      + theme(panel.margin=unit(0.5, "lines"), legend.position="none") 
      + facet_wrap(method~phase, ncol=2, scales="free_y")

现在，问题是“如何使用 facet_grid() 并强制 y 轴自由，类似于使用 facet_wrap()？”或“如何将 facet_wrap() 的标签更改为类似于 facet_grid()？”
提前谢谢你

Answer 1

编辑:对其他人的警告，OP 正在使用但未包含的数据在低值中具有足够的动态范围，因此此答案将不起作用。

我不认为你可以用 facet_grid 做你想做的事，但如果你愿意交换 M 和 T，你可以在你的特定实现中非常接近:

ggplot(ds, aes(x=size, y=mean, color=method)) + geom_line() + 
  #geom_smooth(aes(ymin=mean-stdev, ymax=mean+stdev), stat="identity") + 
  scale_x_discrete(breaks=1:10) + 
  labs(x="Size", y="Time in Seconds", fill="Method") +
  theme(panel.margin=unit(0.5, "lines"), legend.position="none") + 
  facet_grid(phase~method, scales="free_y")

在 facet_grid 中，Y 尺度在行间是自由的，但在列上不是释放具有预期的效果。