r - Rで垂直色の線をプロットする

Question

以下のように、時系列に多色の縦線をプロットしたいと思います。

    [1,] 4.698478   0
    [2,] 4.698205   1
    [3,] 4.698569   0
    [4,] 4.697385   -1
    ...

[,2] が 1 の場合は青色の垂直線をプロットし、[,2] が -1 の場合は赤い線をプロットするには、誰かが助けてくれますか?

Answer 1

data[, 1]が垂直線の x 値であると仮定すると、次のことができます。

abline(v = data[data[, 2] == 1, 1], col = 'blue')
abline(v = data[data[, 2] == -1, 1], col = 'red')

Answer 2

@ChristopherLoudenの答えに問題はありませんが、これは次の1回の呼び出しでそれを行う方法ですabline：

abline(v=m[,1], col=c('red', NA, 'blue')[as.numeric(as.factor(m[,2]))])