以下代码
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