我正在尝试像这样制作格子条形图函数的包装器(默认情况下使用 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)