4

私の問題は、パネルを格子フレームワークで取り除くことです。

testData<-data.frame(star=rnorm(1200),frame=factor(rep(1:12,each=100))
                     ,n=factor(rep(rep(c(4,10,50),each=100),4))
                     ,var=factor(rep(c("h","i","h","i"),each=300))
                     ,stat=factor(rep(c("c","r"),each=600))
 )
levels(testData$frame)<-c(1,7,4,10,2,8,5,11,3,9,6,12)# order of my frames
histogram(~star|factor(frame), data=testData
            ,as.table=T
            ,layout=c(4,3),type="density",breaks=20
            ,panel=function(x,params,...){
               panel.grid()
               panel.histogram(x,...,col=1)     
               panel.curve(dnorm(x,0,1), type="l",col=2)
              }
 )

私が探しているのは、次のとおりです。 縞模様のプロット

4

1 に答える 1

1

数式の条件付けセクションで、項目が既に因子である場合、因子呼び出しを追加する必要はありません。2 つの要素を交差させたい場合は、interaction関数が最適なアプローチです。改行文字を受け入れる 'sep' 引数さえあります。これは私が作成できる最も近いものです:

h<-histogram(~star|interaction(stat, var,  sep="\n") + n, data=testData  , 
              as.table=T ,layout=c(4,3), type="density", breaks=20 ,  
panel=function(x,params,...){ panel.grid() 
panel.histogram(x,...,col=1) 
panel.curve(dnorm(x,0,1), type="l",col=2) } ) 
plot(h) 
useOuterStrips(h,strip.left = strip.custom(horizontal = FALSE), 
                  strip.lines=2, strip.left.lines=1)

3 つの要素を別々に入力してから使用しようとすると、エラーが発生しますuseOuterStrips。3 つの個別の条件付け要因は受け入れられません。Rhelpで投稿を検索しましたが、完全に的を射た質問だけがテストされていない提案を受け、試してみると惨めに失敗しました。

于 2012-09-30T19:19:06.523 に答える