如何从r中的gridextra主题一个tablegrob对象

Question

我想从r中的gridExtra软件包重新使用 tableGrob对象的主题/模板/默认值。

library(gridExtra)
tableGrob(df, cols = c("Custom Name", "Custom Name2"), 
          show.rownames = FALSE, h.even.alpha = 0)
tableGrob(df2, cols = c("Different Name", "Different Name2"), 
          show.rownames = FALSE, h.even.alpha = 0)

注意，我不想多次重复show.rownames = FALSE和h.even.alpha = 0。创建某种类型的主题或模板以避免在tableGrob的不同调用中重复这些选项的合适方法是什么？我可以使用类似于ggplot2的主题或我最好的选择？

Answer 1

您可以定义一个将固定参数设置为所需值的新功能，并且只要求您提供数据框架和列名：

myTG = function(data.frame, cols = c("Name 1", "Name 2")) {
  tableGrob(data.frame, cols = cols, show.rownames = FALSE, h.even.alpha = 0)
}

然后运行它：

tg1 = myTG(df, c("Custom Name 1", "Custom Name 2"))