r语言 - 不均匀facet_wrap行上的 X 轴标签

Question

目前，我正在尝试绘制一个数据集，其中的分面数量是奇数的，在图中留下不完整的最后一行。理想情况下，我希望在每个不完整的最后一行和上面的行下方都有 x 轴标签，其中底行为空。

我已经回顾了这个问题和答案，它似乎完全符合我的需求。但是，似乎自从上次更新此答案以来，ggplot或gridExtra中的某些内容发生了变化，在尝试使用ggsave保存时破坏了解决方案。该代码不是创建有效的文件，而是将TableGrob的结构打印到控制台(包含在更下方(并生成损坏的 4KB PDF 文件(无法通过 QuickLook、预览或 Adobe Reader 在 OS X 上打开(。

我尝试使用的代码如下，我相信它与原始链接答案中的代码相匹配：

library(ggplot2)
library(grid)
facetAdjust <- function(x, pos = c("up", "down"))
{
  pos <- match.arg(pos)
  p <- ggplot_build(x)
  gtable <- ggplot_gtable(p); dev.off()
  dims <- apply(p$panel$layout[2:3], 2, max)
  nrow <- dims[1]
  ncol <- dims[2]
  panels <- sum(grepl("panel", names(gtable$grobs)))
  space <- ncol * nrow
  n <- space - panels
  if(panels != space){
    idx <- (space - ncol - n + 1):(space - ncol)
    gtable$grobs[paste0("axis_b",idx)] <- list(gtable$grobs[[paste0("axis_b",panels)]])
    if(pos == "down"){
      rows <- grep(paste0("axis_b\-[", idx[1], "-", idx[n], "]"), 
        gtable$layout$name)
      lastAxis <- grep(paste0("axis_b\-", panels), gtable$layout$name)
      gtable$layout[rows, c("t","b")] <- gtable$layout[lastAxis, c("t")]
    }
  }
  class(gtable) <- c("facetAdjust", "gtable", "ggplot"); gtable
}
d <- ggplot(diamonds, aes(carat, price, fill = ..density..)) +
xlim(0, 2) + stat_binhex(na.rm = TRUE) + theme(aspect.ratio = 1) + 
facet_wrap(~ color)
d <- facetAdjust(d)
ggsave("test.pdf",d)

运行时，这将生成以下控制台输出：

Saving 7 x 7 in image
TableGrob (16 x 13) "layout": 33 grobs
    z         cells       name                                    grob
1   0 ( 1-16, 1-13) background          rect[plot.background.rect.239]
2   1 ( 4- 4, 4- 4)    panel-1                 gTree[panel-1.gTree.53]
...(shortened)...
32 31 ( 4-12,12-12)  guide-box                       gtable[guide-box]
33 32 ( 2- 2, 4-10)      title               text[plot.title.text.237]

。并且还会生成无法通过 QuickLook、Preview 或 Adobe Reader 打开的 4KB PDF 文件。

我已经尽我所能审查了facetAdjust功能，但没有足够的经验来确定问题所在。有人对如何解决此问题有任何建议吗？

Answer 1

相当愚蠢，但在调试另一个问题时删除了打印功能，并且没有正确恢复它。正如巴蒂斯特所建议的那样，添加以下函数可以解决问题：

print.facetAdjust <- function(x, newpage = is.null(vp), vp = NULL) {
  if(newpage)
    grid.newpage()
  if(is.null(vp)){
    grid.draw(x)
  } else {
    if (is.character(vp)) 
      seekViewport(vp)
    else pushViewport(vp)
    grid.draw(x)
    upViewport()
  }
  invisible(x)
}