r - R + xyplot + 具有多个引用的键

Question

我有一个与此类似的情节：

w=rnorm(9)
z=rnorm(9)
A=as.factor(c(rep(c("A1","A2","A3"),3)))
B=as.factor(c(rep("B1",3),rep("B2",3),rep("B3",3)))
C=as.factor(c("C1","C1","C2","C2","C3","C3","C1","C2","C3"))

xyplot(w~z,type="p",cex=1.4,
       panel=function(x, y, ...) {
         panel.xyplot(x=z[1], y=w[1],pch=15,col="red",...);
         panel.xyplot(x=z[2], y=w[2],pch=15,col="green",...);
         panel.xyplot(x=z[3], y=w[3],pch=15,col="blue",...);
         panel.xyplot(x=z[4], y=w[4],pch=16,col="red",...);
         panel.xyplot(x=z[5], y=w[5],pch=16,col="green",...);
         panel.xyplot(x=z[6], y=w[6],pch=16,col="blue",...);
         panel.xyplot(x=z[7], y=w[7],pch=17,col="red",...);
         panel.xyplot(x=z[8], y=w[8],pch=17,col="green",...);
         panel.xyplot(x=z[9], y=w[9],pch=17,col="blue",...);
         ltext(x=x, y=y+0.1, labels=C)
})

现在我一直在尝试很多但没有成功得到这样的钥匙：

我尝试使用键功能，使用图例功能，试图在同一个图表中创建多个键......我迷路了！

Answer 1

我知道你在做这个lattice，但是ggplot让这种事情变得很容易。

my.data<-data.frame(w,z,A,B,C)
ggplot(my.data,aes(x=w,y=z,colour=A,shape=B,label=C)) + 
  geom_point(size=3) + 
  geom_text(hjust=-0.2,vjust=-0.2)

我很难弄清楚如何获得标签指南。但后来我意识到，如果你有标签，你为什么需要一个指南？