制作主标签变量并将其基于我的条件变量

Question

我正在生成一个以某个变量为条件的 xyplot。我不希望条件变量在面板标签中可见，但我希望它作为主标签的一部分可见。我想将一个变量添加到主页面，以便每个页面上的主页面（我的布局是 c(1,1)）根据我的条件变量具有不同的文本。这是我的代码示例。

xyplot(counts ~ time|conditioningvariable,
data = test.df,
pch=".",cex=1.5,
ylab="Counts (n)",
xlab="Time (sec)",
main=paste("Count By Time for ",conditioningvariable,sep=" "),
layout=c(1,1),scales=list(relation="free"),
strip=FALSE)

我知道如果我想在每个面板上更改此文本，我必须使用面板功能，但我不确定我将如何去做。我知道这可能非常简单。非常感谢您的解决方案。

Answer 1

也许：

... , 
main = substitute(expression(Count~By~Time~'for'~X), list(X=conditioningvariable) ),
... ,
strip = strip.custom(strip.levels=c(FALSE,FALSE), strip.names=c(FALSE,FALSE)), 
... ,

在提供可重现数据时提供经过测试的解决方案，而不是猜测。

除非在全局环境中还有一个名为 conditioningvariable 的对象，否则这将不起作用。它不会从 xyplot 调用中恢复值。我玩弄了 iris 数据集和帮助页面中的示例，发现上面的猜测不会成功。条件级别以$condlevel as documented here 的形式存储在xyplot 的结果中。 （事实证明，因为我参与了那次交流，所以我的记忆力很差。）所以一个两步的过程成功了：

X <- xyplot(Petal.Length ~ Petal.Width | Species, iris,
           main = substitute(expression(Count~By~Time~'for'~X), list(X='Species') ) )

xyplot(Petal.Length ~ Petal.Width | Species, iris, 
       main = substitute(expression(Count~By~Time~'for'~X), list(X=names(X$condlevel)) )
       )

事实证明，您可以使用单个 FALSE 值抑制级别或条件名称。

这将打印一个看起来不像条带的“标题”，每页具有不同的条件级别：

X <- xyplot(Petal.Length ~ Petal.Width | Species, iris,
pch=".",cex=1.5,
ylab="Counts (n)",
xlab="Time (sec)", layout=c(1,1,3) ,
scales=list(relation="free"),
strip=function(...){ ltext(.5,.5,paste("Count By Time for ", levels(iris$Species)[panel.number() ]))})
print(X)

要获得更多顶部空间，请使用 main="\n" 和 ltext(.5, 1, ...)`。