1

请考虑这个经过修改但无耻窃取的代码:

library(ggplot2)
library(gtable)
library(gridExtra)
p1 <- ggplot(
  data.frame(
    x=c("a","b","longer"),
    y=c("happy","sad","ambivalent about")),
  aes(x=factor(0),fill=x)) + 
  geom_bar() +
  geom_point(aes(y=seq(3),color=y))
p2 <- ggplot(
  data.frame(
    x=c("a","b","c"),
    y=c("happy","sad","ambivalent about life")),
    aes(x=factor(0),fill=y)) + 
geom_bar()

# Get the widths
gA <- ggplot_gtable(ggplot_build(p1))
gB <- ggplot_gtable(ggplot_build(p2))

# The parts that differs in width
leg1 <- with(gA$grobs[[8]], grobs[[1]]$widths[[4]])
leg2 <- with(gB$grobs[[8]], grobs[[1]]$widths[[4]])

# Set the widths
gA$widths <- gB$widths

# Add an empty column of "abs(diff(widths)) mm" width on the right of 
# legend box for gA (the smaller legend box)
gA$grobs[[8]] <- gtable_add_cols(gA$grobs[[8]], unit(abs(diff(c(leg1, leg2))), "mm"))

# Arrange the two charts
grid.newpage()
grid.arrange(gA, gB, nrow = 2)

在这些条件下,图例的放置不像gA$grobs[[8]]2 个条目那样工作,并且代码显式访问第一个条目以确定所需的图例调整。

因此,我想要做的是遍历所有条目gA$grobs[[8]]并找到要使用的最大宽度。

顺便提一句:

library(gtable)
a <- gtable(unit(1:3, c("cm")), unit(5, "cm"))
a # See, "TableGrob" exists (somewhat) ;)

我希望这能澄清我打算做的事情。

感谢您的任何指点,乔

4

1 回答 1

0

恕我直言,您没有从该线程中选择最简单的答案。考虑这个更简单的方法,

rbind_gtable_max <- function (x, y) 
{
  stopifnot(ncol(x) == ncol(y))
  if (nrow(x) == 0) 
    return(y)
  if (nrow(y) == 0) 
    return(x)
  y$layout$t <- y$layout$t + nrow(x)
  y$layout$b <- y$layout$b + nrow(x)
  x$layout <- rbind(x$layout, y$layout)
  x$heights <- gtable:::insert.unit(x$heights, y$heights)
  x$rownames <- c(x$rownames, y$rownames)
  x$widths <- grid::unit.pmax(x$widths, y$widths)
  x$grobs <- append(x$grobs, y$grobs)
  x
}


gA <- ggplotGrob(p1)
gB <- ggplotGrob(p2)

both <- rbind_gtable_max(gA, gB)
grid.draw(both)

编辑如果想要图例框左对齐,那就更棘手了。这是因为 ggplot2 使用 gtable 将各种组件组合在一起,而 gtable 在一个单元格内没有对齐感。对于诸如绘图面板之类的组件来说很好,它总是延伸到整个单元格(视口),但是引导 grob 具有固定的大小,因此显示为居中。

实际上,您可能需要求助于手动计算。为此,请注意,在您的示例代码中,在覆盖之前,gA$widths您可以使用sum(gA$grobs[[8]]$width.

于 2013-06-21T15:12:39.790 回答