2

各ドットが数字で表されるプロットにポイントをプロットしようとしています。ただし、以下のコードで生成されたプロットでわかるように、ポイントの長さは1文字のみであるようです。

set.seed(1); plot(rnorm(15), pch=paste(1:15))

ここに画像の説明を入力してください

これに対する回避策はあるのだろうか。ありがとう。

4

1 に答える 1

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

ここに画像の説明を入力してください

于 2013-02-18T01:02:49.910 に答える