gridExtra tableGrob使用grid.draw（）时出现错误符号错误

Question

以下代码

xta=t(rnorm(37,mean=400,sd=50))
xtb=tableGrob(xta,show.rownames=F,show.colnames=F,gpar.corefill=gpar(fill='white',col='black'),show.vlines=T,show.hlines=T)
grid.draw(xtb)

给我一​​个错误

Error in seq.default(2, ncol, 1) : wrong sign in 'by' argument

grid.table(t(xta))

编辑（mnel）

这可以追溯到show.hline参数`

 grid.table(xta, show.hline = TRUE)

给出

  

seq.default（2，ncol，1）出错：'by'参数错误登录

虽然默认

grid.table(xta)

效果很好。

当您将d作为data.frame传递时，会出现同样的问题，（根据功能要求）

xtdf <- as.data.frame(xta)

grid.table(xtdf, show.hline = TRUE)

## Error in seq.default(2, nrow, 1) : wrong sign in 'by' argument
##  grid.table(xtdf) 
## works as expected