8

我有多个时间序列数据图，我需要在每个图中有一条水平线，但水平值不同（例如，第一个图：h=50，第二个图：h=48...）。

我试过abline(h=50...了，我在每个图中都得到了水平线。我试过abline(h=c(50,48...了，我在每个图中都得到了多条水平线。

我不知道如何获取 plot.zoo 索引以便h=50在第一个图、h=48第二个图等中进行绘图。

library(xts)
data(sample_matrix)
x <- as.xts(sample_matrix)

# plot with single line
my.panel <- function(x, ...) {
    lines(x, ...)
    abline(h=50, col = "red", lty="solid", lwd=1.5 )
}
plot.zoo(x, main="title",
plot.type="multiple", type="o", lwd=1.5, col="blue",
panel=my.panel)


# plot multiple lines in all plots
my.panel <- function(x, ...) {
    lines(x, ...)
    abline(h=c(50,50,48,50), col = "red", lty="solid", lwd=1.5 )}

plot.zoo(x, main="title",
plot.type="multiple", type="o", lwd=1.5, col="blue",
panel=my.panel)
4

1 回答 1

6

在实际?plot.zoo文本中没有详细描述在多面板图中自定义单个面板。在“详细信息”部分中，您会发现：
“在自定义面板的情况下，panel可以参考parent.frame$panel.number以确定从哪个框架调用面板。参见示例。”。而且有很多例子。使用它们作为模板，我发现这可能是一种调用单独面板并hline在每个面板中单独绘制的方法。
更新。感谢@G。Grothendieck 进行了编辑，使代码更加简洁！ 

# create values for hline, one for each panel
hlines <- c(50, 50, 48, 50)

# panel function that loops over panels
my.panel <- function(x, ...) {
  lines(x, ...)
  panel.number <- parent.frame()$panel.number
  abline(h = hlines[panel.number], col = "red", lty = "solid", lwd = 1.5)
}

plot.zoo(x, main = "title", type = "o", lwd = 1.5, col = "blue", panel = my.panel)

在此处输入图像描述

于 2013-10-11T12:43:52.200 回答