Rでの折れ線グラフの線分の色指定

Rで折れ線グラフを作成しているのですが，線分の色をグラデーションにする方法がわからず困っています．
現在point[,1]にx座標，point[,2]にy座標が入っており，１個～n個の点を以下のコマンドで線分でつないで折れ線グラフを作成しています（点のplotは必要ないためcとしております．また，色は仮に青とおいてあります．）

R
1plot(point[,1],point[,2],type="c",col="blue")

このとき，線分を１個目と２個目の点を繋ぐ線は濃い青，２個目と３個目を繋ぐ線ははすこし濃い青…n-1個目とn個目をつなぐ線は薄い青，のようにグラデーションした線分でつなぐことは可能でしょうか？

R初学者ですが，点のグラデーションはありましたが線分についての記述について見つけられなかったため質問いたしました．
ご回答お願い申し上げます．

行動規範の内容に同意します

回答1件

ベストアンサー

確かに線分の色をベクターで一括指定しようとしてもうまくいかないですね。
もしかしてもっと便利なライブラリがあるかもしれないですが、「線分ごとにバラバラにplotを実行して、それらを重ね合わせる」という作戦を考えてみました。
par(new=T)を使うこと、xlim,ylimを統一しておくこと、軸ラベルを重ね書きしないようにしておくことなどがポイントでしょうか。

R
1data <- data.frame(
2  x=c(0, 2, 4, 5, 7),
3  y=c(1, 4, 5, 6, 9)
4)
5
6xl <- c(min(data$x), max(data$x))
7yl <- c(min(data$y), max(data$y))
8cl <- (colorRampPalette(c("green","red")))(nrow(data)-1)
9
10# 最初の線分
11plot(data[1:2,"x"],data[1:2,"y"], xlim=xl, ylim=yl, type="c", xlab="x", ylab="y", col=cl[1])
12# 二番目以降の線分
13for(i in 2:(nrow(data)-1)){
14  par(new=T)
15  plot(data[c(i,i+1),"x"],data[c(i,i+1),"y"], xlim=xl, ylim=yl, type="c", ann=F, col=cl[i])
16}
17