5

データポイントにインデックスを付けてラベルを付けることを検討しています-視覚的な検査でインデックス番号を簡単に識別できます。

たとえば、

x<-ts.plot(rnorm(10,0,1)) # would like to visually identify the data point indices easily through arrow labelling

もちろん、これを達成するためのより良い方法があれば、提案してください

4

4 に答える 4

5

関数を使用できarrowsます：

set.seed(1); ts.plot(x <-rnorm(10,0,1), ylim=c(-1.6,1.6))  # some random data
arrows(x0=1:length(x), y0=0, y1=x, code=2, col=2, length=.1) # adding arrows
text(x=1:10, y=x+.1, 0, labels=round(x,2), cex=0.65) # adding text
abline(h=0) # adding a horizontal line at y=0

ここに画像の説明を入力

于 2013-02-15T12:15:52.087 に答える
3

my.symbolsパッケージから使用しTeachingDemosて、必要な場所を指す矢印を取得します。

require(TeachingDemos)
d <- rnorm(10,0,1)
plot(d, type="l", ylim=c(min(d)-1, max(d)+1))
my.symbols(x=1:10, y=d, ms.arrows, angle=pi/2, add=T, symb.plots=TRUE, adj=1.5)

ここに画像の説明を入力

于 2013-02-15T11:57:12.940 に答える
2

text()これに使用できます

n <- 10
d <- rnorm(n)
plot(d, type="l", ylim=c(min(d)-1, max(d)+1))
text(1:n, d+par("cxy")[2]/2,col=2) # Upside
text(1:n, d-par("cxy")[2]/2,col=3) # Downside
于 2013-02-15T12:08:27.183 に答える
1

ここではlattice、いくつかの基本関数の類似を確認するためのバージョンです。

set.seed(1234)
dat = data.frame(x=1:10, y = rnorm(10,0,1))
xyplot(y~x,data=dat, type =c('l','p'),
       panel = function(x,y,...){
         panel.fill(col=rgb(1,1,0,0.5))
         panel.xyplot(x,y,...)
         panel.arrows(x, y0=0,x1=x, y1=y, code=2, col=2, length=.1)
         panel.text(x,y,label=round(y,2),adj=1.2,cex=1.5)
         panel.abline(a=0)

       })

ここに画像の説明を入力

于 2013-02-15T14:48:23.313 に答える