r - xyplot を使用して凡例をポイントに合わせますか?

Question

格子を使用してプロットを実現しました。データを分割して、湖のさまざまなステーションの表現を取得する必要があります。各チームによって作成された各レプリカの線と点は、この湖で機能しています。私はなんとかそれを行うことができましたが、凡例は、私のプロットに表示されるものだけでなく、この演習に取り組み、私の DB に存在するすべてのチームによって形成されます。

# Expression des données physico



###############################################
#Expression des données pour Cromwell

#Préparation du panel
panel.my <- function(...) {
  panel.superpose(...)
}

trellis.par.set(superpose.symbol=list(pch=c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13)),
                superpose.line=list(lty=c(1, 2, 3, 4, 5, 6, 7)))


#Graphique Temp avec lines
xyplot(prof~temp | lake * station,
       type=c("p", "l"),
       physico,
       subset=lake=="Crom",
       group=team,
       panel = panel.my, 
       xlim=c(6,15),
       ylim=c(10,-1),
       scales=list(x= list(at=seq(5, 15, 1)), y = list(at=seq(0, 10, 1))),
       auto.key =list(
         draw.key=list(text=list("Equipe 1", "Equipe 1'")),
         points = TRUE, 
         columns=2),
       xlab="Température",
       ylab="Profondeur",
)

結果：http ://environnementaliste.files.wordpress.com/2013/11/cromwell_temp.jpeg

誰かが私の凡例を関連情報に制限する考えを持っていますか?

ありがとう！

ルーカス