晶格

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

您還可以定義另一個特徵向量的面板功能內，使用該索引的模式吧。