r - 图形主题设置 : a nested list structure with easy access to all levels?

Question

[我正在重新发明轮子 (*)，突然想到它的形状问题。]

对于 graphical display of a table ，我想提出一个主题，可以轻松访问所有美学定制(例如，单元格的填充背景、文本颜色、字体大小等)。

列表是显而易见的选择。然而，复杂的原因在于表格也有一个内在的结构；它可以有一个列标题、一个行标题以及核心条目。这三个 block 中的每一个都应该有自己特定的审美默认值和要求，但有一个共同的父级可以继承。事实上，我希望能够直接指定所有字体都应该是黑色的，除非我特别覆盖列标题，否则它也会继承这种颜色。

一种可能的构造是 R 中现有的函数环境(闭包)框架:在评估参数时自动解析嵌套结构。这是我的例子:

# helping function
inplace <- function(l, ...) modifyList(l, list(...))

table_theme <- function(bg = c("grey95", "grey98"),
                        fg = c("black", "black"),
                        just=c("center","center"), hjust=0.5, vjust=0.5,
                        padding = unit(c(4,4),"mm"), 
                        font = list(family = "sans", size = 12, face = "plain"),
                        separator = list(h=FALSE, v=TRUE), box = FALSE,
                        core = list(bg=bg, fg=fg, parse=TRUE,
                                    separator=separator, box=box, padding=padding,
                                    just=just, hjust=hjust, vjust=vjust, font=font),
                        col_header = inplace(core, parse=FALSE, 
                                             font=inplace(font, face="bold")),
                        row_header = inplace(col_header, just=c("right", "center"),
                                             font = inplace(font, face="italic"),
                                             hjust=1, padding=unit(c(4,4),"mm"))){

  list(bg=bg, fg=fg, 
       font=font, separator=separator, box=box,
       core=core, row_header=row_header, col_header=col_header)
}

theme = table_theme()

它运行良好(令人惊讶!)，但仍然存在一个问题:如果我只想更改子项的一个默认属性，我将丢失所有其他默认值。例如，在上面的 theme 中，在构建过程中修改 theme$col_header$font 并非易事:我必须将整个调用重写为

table_theme(col_header = inplace(list(bg = c("grey95", "grey98"),
                            fg = c("black", "black"),
                            just=c("center","center"), hjust=0.5, vjust=0.5,
                            padding = unit(c(4,4),"mm"), 
                            font = list(family = "sans", size = 12, face = "plain"),
                            separator = list(h=FALSE, v=TRUE), box = FALSE), 
             font=inplace(font, face="bold"))

不过创建主题后修改相对容易，

theme$col_header$font$face <- "bold"

我是不是错过了一种两全其美的聪明方法——使用闭包自动自洽评估嵌套结构并轻松获取 child 的个人特征？

附言:(*):我知道 ggplot2 有一个新的主题系统，具有一些继承性；不幸的是，它与 ggplot2 的内部渲染系统和命名系统紧密绑定(bind)，因此对于其他图形元素来说相当不可用。

Answer 1

与其重新发明轮子，我可能会从 lattice 包的参数设置实用函数中获得灵感。要修改lattice 的图形参数树(由trellis.par.get() 返回)的单个叶子，trellis.par.set() )，它允许您传入仅包含您要更改的那些元素的值的列表结构。

我不会继续讨论它，而是向您展示这个想法可能看起来如何应用于您的问题:

library(grid)
inplace <- function(l, ...) modifyList(l, list(...))
table_theme <-
    function(...,
             bg = c("grey95", "grey98"),
             fg = c("black", "black"),
             just=c("center","center"), hjust=0.5, vjust=0.5,
             padding = unit(c(4,4),"mm"),
             font = list(family = "sans", size = 12, face = "plain"),
             separator = list(h=FALSE, v=TRUE), box = FALSE,
             core = list(bg=bg, fg=fg, parse=TRUE,
             separator=separator, box=box, padding=padding,
             just=just, hjust=hjust, vjust=vjust, font=font),
             col_header = inplace(core, parse=FALSE,
             font=inplace(font, face="bold")),
             row_header = inplace(col_header, just=c("right", "center"),
             font = inplace(font, face="italic"),
             hjust=1, padding=unit(c(4,4),"mm"))){
        ll <- list(bg=bg, fg=fg,
                   font=font, separator=separator, box=box,
                   core=core, row_header=row_header, col_header=col_header)
        dots <- list(...)
        Reduce(modifyList, c(list(ll), dots))
    }
## Two ways to change both the size and face of the col_header font

## (1) Pass in both modifications in a single list 
theme1 = table_theme(list(col_header=list(font=list(size=10, face="italic"))))
## (2) Pass each modification in in a list of its own
theme2 = table_theme(list(col_header=list(font=list(face="italic"))),
                    list(col_header=list(font=list(size=10))))
## Check that they both have the same effect
identical(theme1, theme1)
# [1] TRUE

虽然传入list(col_header=list(font=list(face="italic")))比做 col_header$font$face <- "italic" 有点冗长, 结构是完全同源的，所以前者不应该太难掌握。