9

これは確かにあなたがすでに遭遇している単純な問題ですが、私に大きな頭痛の種を与えています...

私はこのようなデータフレームを持っています：

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...などと呼びたいと思います。

任意の提案...matteoに感謝します

4

1 に答える 1

9

あなたはほとんどそれを手に入れました。文字が必要な場合は、次のようにインデックス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()])
           })

パネル関数内で別の文字ベクトルを定義し、このインデックススキーマを使用することもできます。

于 2011-12-14T17:14:09.950 に答える