在时间序列图中绘制最小值/最大值的垂直线

Question

我想在xts图中的最小/最大（或其他）值处绘制一条垂直线。我有最小值的位置或行号。我不知道如何将其转换为abline()中使用的日期对象。

以下是代码的简单版本：

dates <- as.Date("2016-01-01") + 0:9
library(xts)
ts <- xts(rnorm(10), order.by = dates)

minv <- which.min(ts[,1])

这给了我最小的位置。我需要的是以下

的该位置日期的数值

library(zoo)
plot.zoo(ts, plot.type="s")
abline(v=as.numeric(DateOfMinValue))

如何获取行DateofMinValue中的minv？还是我错过了一步？还是有一个包装可以更容易地完成这个任务。