繪製標籤用作R

Question

點我有以下幾點：

> x<-runif(20) 
> y<-rnorm(x) 
> g<-rep(factor(LETTERS[1:4]),5) 

我該怎麼辦

> plot(x,y) 

，使得繪製的點是g相應的價值？

謝謝！

Answer 1

嘗試

plot(x,y,type="n") 
text(x,y,as.character(g)) 

或（強制性ggplot）

library(ggplot2) 
d <- data.frame(x,y,g) 
qplot(x,y,label=g,geom="text",data=d) 

或（格子）

library(lattice) 
xyplot(y~x, 
    panel=function(...) { 
     panel.xyplot(...,type="n") 
     panel.text(x,y,g) }) 

（我不知道該怎麼好這最後的解決辦法，如果一個工作實際上想要使用格子的一些特徵，如將劃分成多個面板......）

Answer 2

對於單線解決方案，請使用pch（即'plotting character'）參數：

plot(x,y,pch=as.character(g))