Question

[我正在重新发明轮子（*），并想到它的形状问题。]

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

enter image description here

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

一个可能的构造是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"

我是否错过了使用两全其美的智能方法 - 使用闭包自动自我评估嵌套结构并轻松访问孩子的个性特征？

PS：（*）：我知道ggplot2有一个新的主题系统，具有一些继承性;不幸的是，它与ggplot2的内部渲染系统和命名系统紧密绑定，因此对其他图形元素无法使用。

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"更加冗长，但结构完全是同源的，所以前者不应该太难以解决。

图形主题设置：嵌套列表结构，可以轻松访问所有级别？

1 个答案: