Question

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

我已经审核了this question and answer，这似乎完全符合我的要求。但是，似乎自上次更新此答案后，ggplot或gridExtra中的某些内容在尝试使用ggsave进行保存时破坏了解决方案。代码不是创建有效文件，而是将TableGrob的结构打印到控制台（包括在下面）并生成损坏的4KB PDF文件（无法通过QuickLook，Preview或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]

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

我已尽力审查了facetAdjust函数，但我没有足够的经验来确定问题所在。有没有人对如何解决这个问题有任何建议？

Answer 1

相当愚蠢，但在调试另一个问题的同时删除了打印功能，并且没有正确恢复它。正如baptiste所示，添加以下功能可以解决问题：

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)
}

不平整的facet_wrap行上的X轴标签

1 个答案: