晶格

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))) 

和我需要为每个主题制作一个散点图，而不是问题，但是... 我想要的是从格子中替换条并为每个图添加一个标签。 我管理与下面的代码要做到这一点，但我仍然不快乐......

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()]) 
      }) 

您还可以定义另一个特征向量的面板功能内，使用该索引的模式吧。