1

我用 tableGrob 生成了一个 20Cx10R 表，发现它非常慢。因此，我试图找出原因。Baptiste 自己在有没有人注意到 tableGrob 很慢？.

我尝试了他的例子：http ://rpubs.com/baptiste/ftableGrob 。初始运行良好，即他的示例中的表格生成得非常快。

但是当我尝试加载 gridExtra 以从 ggplot 添加绘图时，grid.draw(g)产生了这个错误：Error in as.matrix(d) : object 'd' not found

我的代码在这里（根据 baptiste 的原文稍作修改）：

library(grid)
library(gridExtra)  # NOTE: Loading gridExtra clashes w grid.draw(g) later

aa <- head(iris, 10)
padding = unit(4, "mm")

nc <- ncol(aa)
nr <- nrow(aa)

extended_matrix <- cbind(c("", rownames(aa)), rbind(colnames(aa), as.matrix(aa)))
w <- apply(extended_matrix, 2, strwidth, "inch")
h <- apply(extended_matrix, 2, strheight, "inch")

widths <- apply(w, 2, max)
heights <- apply(h, 1, max)

padding <- convertUnit(padding, unitTo = "in", valueOnly = TRUE)

x <- cumsum(widths + padding) - 0.5 * padding
y <- cumsum(heights + padding) - padding

rg <- rectGrob( x = unit(x - widths/2, "in"), y = unit(1, "npc") - 
                 unit(rep(y, each = nc + 1), "in"), 
               width = unit(widths + padding, "in"), 
               height = unit(heights + padding, "in") )
tg <- textGrob( c(t(extended_matrix)), x = unit(x - widths/2, "in"), 
               y = unit(1, "npc") - unit(rep(y, each = nc + 1), "in"), 
               just = "center" )

g <- gTree( children = gList(rg, tg), x = x, y = y, widths = widths, 
           heights = heights, cl = "table", 
            gp=gpar(fill = rep(c("grey90", "grey95"), each = 2)))

l <- linesGrob()
grid.draw(l)  # Added to show that grid.draw works here...

grid.draw(g)  # ... but not here *confused*
invisible(g)

grid.arrange( g, g, ncol=2)  # I eventually hope to use ggplot2 w the tables drawn with grid.draw

## End of code ##

我对此进行了研究，但没有找到类似的报告/帖子。我怀疑这是由于我对 gridExtra 的了解不足，所以我在 SO 中提出这个以寻求“启蒙”。如果有人可以提供帮助将不胜感激！

顺便说一句：由于 baptiste 的原始代码也使用了 'd'，在将他的 'd' 切换为 'aa' 之后，R 仍然尖叫“找不到对象 'd'！”。想象一下我的困惑！

最后，祝大家新年快乐（2014）！

4

1 回答 1

2

当你加载 gridExtra 时，你会带来一个 drawDetails 方法（由 grid.draw 调用），用于与这个 gTree 不兼容的类“table”的对象（它缺少一些属性）。简而言之，您应该简单地删除cl = "table"gTree 中的 ，或选择其他名称。

于 2014-01-01T13:30:09.697 回答