xtsのアブラインの縦書きテキスト

Question

xtsのアブラインに（おそらく垂直）テキストを配置する方法を探していますが、テキストを配置する場所を定義できないようです（ただし、アブラインを定義できます） ：

require(xts) 
data(sample_matrix) 
sample.xts <- as.xts(sample_matrix, descr='my new xts object') 


for (i in 1:dim(sample.xts)[2]){ 
    cat(paste("\n",i)) 
    plot((tail(sample.xts[,i],10)), main=paste("column" ,i)) 
    print(lines(x = tail(sample.xts[,i],10), col = "darkgreen", lty=2, on=1)) 
    abline(v=.index(last(sample.xts[-dim(sample.xts)[1],])), col="red",lty=3) 
    # text(here possibly some vertical text) 
} 

編集：コードは現在再現可能です。 数値ではなく、時間インデックスを持つアブラインにテキストを配置する方法が必要です（または正しい番号を見つける） 提案がありますか？ ありがとうございます！

Answer 1

CRANのxtsバージョンは現在0.9-7です。そのバージョンを使用する場合は、テキストを追加および回転するには、text()およびsrtパラメータを使用する必要があります。場所の定義に問題がある場合は、locator()関数を使用してマウスを使用して、対話形式で座標を見つけることができます。

# Using xts 0.9-7 
require(xts) 
data(sample_matrix) 
x <- tail(as.xts(sample_matrix, dateFormat = "Date"), 10)[,1] 

plot(x) 
lines(x, col = "darkgreen", lty=2) 
v <- last(.index(x)[-nrow(x)]) 
abline(v = v, col = "red", lty = 3) 
text(v, max(x), "label", pos = 2, srt = 90) 

Answer 2

コードが再現できないため、組み込みのデータセットを使用しています。 90度回転の場合、次のように使用できます。

attach(mtcars) 
plot(mpg ~ hp) 
abline(v = 170) 
text(x = 180, y = 25, label = "Your text here!", srt = 90)