为什么这个格子条形图包装器不工作？

Question

我试图作出这样的格子条形图功能的包装（使默认使用ggplot主题）：

require(ggplot2) 
require(lattice) 
require(latticeExtra) 
data(Titanic) 
mytheme = ggplot2like() 
gbarchart = function(...) { 
    barchart(..., par.settings=mytheme) 
} 
gbarchart(Class ~ Freq | Sex + Age, 
      as.data.frame(Titanic), 
      groups = Survived, 
      stack = TRUE, 
      layout = c(4, 1), 
      auto.key = list(title = "Survived", columns = 2), 
      scales = list(x = "free")) 

它给出了一个错误：

Error in eval(expr, envir, enclos) : 
    ..3 used in an incorrect context, no ... to look in 

而如果par.settings=mytheme添加到barchart直接，它的工作原理：

barchart(Class ~ Freq | Sex + Age, 
      as.data.frame(Titanic), 
      groups = Survived, 
      stack = TRUE, 
      layout = c(4, 1), 
      auto.key = list(title = "Survived", columns = 2), 
      scales = list(x = "free"), 
      par.settings=mytheme) 

Answer 1

条形图期待个别论点，而不是一个pairlist。我会做这样的事情：

gbarchart = function(...) { 
    args <- as.list(match.call()[-1]) 
    args$par.settings=mytheme 
    do.call(barchart,args) 
}