r：爲xyplot {lattice}中的每個點設置標籤不適用於組

Question

我確定對於我的問題有一個簡單的解決方案，但找不到我的答案。我想使用點陣的散點圖中的每個點值放置標籤，而不是基本圖。我發現library(direct.label)可以完成這項工作，這裏有個很好的例子：http://directlabels.r-forge.r-project.org/examples.html。 但是，這裏的標籤顯示組的名稱，不顯示每個點的值/名稱！ 我想保留我的數據由組（virginica，versicolor，setosa）分隔，但也爲圖中的每個點（p.ex.Petal.Width）添加準確值。請問，如何完成？ 非常感謝！

library(lattice) 
trellis.par.set(standard.theme(color=FALSE)) 
p <- xyplot(jitter(Sepal.Length)~jitter(Petal.Length),iris,groups=Species) 
direct.label(p) 

我期望（每一點生成的紅色值）：

Answer 1

你必須使用panel.text內trellis.focus這樣的：

p<-xyplot(jitter(Sepal.Length)~jitter(Petal.Length),iris,groups=Species) 
p 
trellis.focus("panel",1,1) 
panel.text(x=p$panel.args[[1]]$x,y=p$panel.args[[1]]$y,labels = iris$Petal.Width, pos=3, cex=0.7, col="red") 
trellis.unfocus()