gridExtra包中的grid.table和tableGrob

Question

我正在尝试使用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). 

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

特别是,我希望做到 -

1. 列的左对齐
2. big.marks的逗号(10000为10,000)
3. 偶数行和奇数行的不同行颜色
4. 列标题颜色
5. 不显示行名称(类似于row.names = FALSE)

Answer 1

这最近回答了如何改变参数,巴蒂斯特给出了一个链接到另外的例子.正如您在问题中注意到的那样,要更改格式,请使用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被用于添加逗号分隔符,以及使用该被除去rownames rows=NULL参数.