将水平线添加到xts图

Question

我想在对象图中添加水平行。我知道在addEventLines()中有xts函数可以添加垂直线，但是以下内容不会在xts图中添加线：

abline(h=abc, col="green")

除了在绘制之前向对象本身添加新列之外，还有其他解决方法吗？

Answer 1

您可以只创建一些常量数据并使用lines函数。下面是一个解决方案以及一个可复制的示例。

# load package
require(xts)

# get data
data(sample_matrix)
sample.xts <- as.xts(sample_matrix)

# create line data
sample.xts$horizontal_line <- 49.5

# plot 
plot(sample.xts[,"Close"])
lines(sample.xts[, "horizontal_line"], col = "blue")