r - gridExtra包中的grid.table和tableGrob

我正在尝试使用gridExtra包格式化表格。我拥有的gridExtra软件包是2.0，R版本是3.2.1

我在这里通过了关于stackoverflow的有关格式的答案，建议的选项似乎仅适用于旧版本的软件包。例如，

grid.table(data, h.even.alpha = 1, h.odd.alpha = 0,
           v.even.alpha = 1, v.odd.alpha = 1,
           gpar.corefill, gpar.coretext)

所有这些选项在最新版本中均显示为“未使用的参数”。

进一步搜索后，我发现在新的gridExtra包中，格式可能在主题内部定义，例如-

tt <- ttheme_default(core=list(fg_params=list(hjust=1, x=0.95)),
                     colhead=list(fg_params=list(col="brown"))

然后做

grid.table(data, theme=tt).

我找不到的是如何定义主题中的这些选项以及如何完成旧版本中所有可能的格式设置。

我特别想做的是-


列的左对齐
big.marks（逗号作为10,000）的逗号
偶数和奇数行号的行颜色不同
列标题颜色
不显示行名（类似于row.names = FALSE）

最佳答案

This最近的答案显示了如何更改参数，Baptiste提供了指向更多示例的链接。正如您在问题中注意到的那样，要更改格式，请使用theme参数；您可以通过查看ttheme_default()的输出来查看要更改的参数

# New theme paramters
myt <- ttheme_default(
         # Use hjust and x to left justify the text
         # Alternate the row fill colours
                 core = list(fg_params=list(hjust = 1, x=1),
                             bg_params=list(fill=c("yellow", "pink"))),

         # Change column header to white text and red background
                 colhead = list(fg_params=list(col="white"),
                                bg_params=list(fill="red"))
 )

# Example data - create some large numbers
dat <- mtcars[1:5,1:5]
dat$mpg <- dat$mpg*1000

grid.newpage()
grid.draw(tableGrob(format(dat, big.mark=","), theme=myt, rows=NULL))

big.mark的format参数用于添加逗号分隔符，并且使用rows=NULL参数删除行名。