0

私はこれに似たプロットを持っています:

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)
})

そして今、私はこのようなキーを取得するために成功せずに多くのことを試みてきました:

ここに画像の説明を入力

key 関数を使ってみたり、legend 関数を使ったり、同じグラフに複数のキーを作ろうとしたり… 迷った!!

4

1 に答える 1

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)

ここに画像の説明を入力

ラベルのガイドを入手する方法を理解するのに苦労しました。しかし、ラベルを持っているのに、なぜガイドが必要なのですか?

于 2013-10-06T14:43:08.407 に答える