r - 如何在格子中标记面板

Question

这是一个简单的问题，您肯定已经遇到了，但是却让我头疼不已...

我有一个这样的数据框:

set.seed(3)
mydata <- data.frame(var = rnorm(100,20,1),
                     temp = sin(sort(rep(c(1:10),10))),
                     subj = as.factor(rep(c(1:10),5)))

我需要为每个主题绘制散点图，这不是问题，但是...
我想要的是替换晶格中的 strip ，并在每个图上添加一个标签。
我设法用下面的代码来做到这一点，但是我还是不高兴。

xyplot(var ~ temp | subj, 
       data = mydata,
       strip=FALSE,
       panel = function(x, y,...) {
               panel.xyplot(x, y,...)
               panel.text(1,21,labels=which.packet())
               }) 

最后一点...我堆积的地方是...如何在每个面板中打印字母而不是数字。我想将面板命名为a，b，c ...，依此类推。

有什么建议么...
非常感谢
哑光

Answer 1

差不多了如果需要字母，则用letters索引panel.number():

xyplot(var ~ temp | subj, 
   data = mydata,
   strip=FALSE,
   panel = function(x, y,...) {
           panel.xyplot(x, y,...)
           panel.text(1,21,labels=letters[panel.number()])
           }) 

您还可以在面板函数内定义另一个字符向量，并将其与该索引架构一起使用。