r - R ラティス: パネル関数からの情報をストリップ ラベルに含める

Question

ストリップで A、B、C とラベル付けされた 3 つのシリーズを示す格子図があります。グラフ内で、panel.text を使用して最大値を追加しました。しかし、この情報をストリップ内のストリップ名の横に追加するにはどうすればよいでしょうか? (例: 一番上のストリップ: A max value=2.61)

 #Libraries used:
 library(lattice)
 #Data: Create three random walks:
 A <-  c(rnorm(99), cumsum(rnorm(99)))
 B <-  c(rnorm(99), cumsum(rnorm(99)))
 C <-  c(rnorm(99), cumsum(rnorm(99)))
 #combine data into a dataframe:
 df1 <- data.frame(A,B,C)
 df1

 #create a time series for use in xyplot:


 ts1 <- ts(df1, start=-100, end=-1, frequency=1) 

#create a lattice chart:

chart1 <-xyplot(ts1    ,
panel=function(x,y)

{

panel.xyplot(x,y)
panel.lines(x,y)

y=round(y,2)
lab1 <- names(y)
panel.text(-80,min( y)*0.9, paste(lab1,"max:",max(y)), cex = 1.2, font =2,col="blue") 
 })
 chart1

ご協力ありがとうございました。

Answer 1

ストリップ ラベルの名前を変更できます。

chart1 <-xyplot(ts1    ,    
panel=function(x,y)    
{    
panel.xyplot(x,y)    
panel.lines(x,y)    
},    
strip= strip.custom(factor.levels=paste(dimnames(ts1)[[2]],"max value =",round(apply(ts1,2,max),2)))    
)    
 chart1