xts中abline的垂直文本

Question

我正在寻找一种方法将文本放在xts的abline上（可能是垂直的），但似乎我无法定义放置文本的位置（但是，我可以定义abline）：

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

编辑：代码现在可以重现。 我需要一种方法将文本与时间索引放在abline上，而不是用数字（或找出正确的数字） 有什么建议？ 提前谢谢！

Answer 1

由于您的代码不可重现，我使用的是内置数据集。对于90度旋转，您可以使用以下内容：

DefaultListableBeanFactory.class

Answer 2

CRAN上的xts版本目前为0.9-7。使用该版本，您需要使用man passwd和text()参数来添加和旋转文本。如果您在定义位置时遇到问题，可以使用鼠标和srt功能以交互方式查找坐标。

locator()