各ドットが数字で表されるプロットにポイントをプロットしようとしています。ただし、以下のコードで生成されたプロットでわかるように、ポイントの長さは1文字のみであるようです。
set.seed(1); plot(rnorm(15), pch=paste(1:15))
これに対する回避策はあるのだろうか。ありがとう。
set.seed(1); plot(rnorm(15), pch=paste(1:15),type='n')
text(x=1:15,y=rnorm(15),label=round(rnorm(15),2))
lattice
たとえば、別のグリッドオプションを使用します。
dat <- data.frame(x=1:15,y=rnorm(15))
xyplot(y~x,data=dat,
panel=function(x,y,...){
panel.xyplot(x,y,...)
panel.text(x,y,label=round(rnorm(15),2),adj=2,col='red')})