既出の関数もありますが、改めてまとめてみた。
Rでは、グラフィックデバイスが開いている必要があり、上書きする関数と考えられます。
だから、直線はグラフの王道ですが、Rでは主に装飾で重宝します。
ただ、僕には引数の使い方が直感的でないように思う。
- lines関数
lines関数は2点のx座標とy座標を指定して、その間を結びます。
> x1 <- c(1,2) > x2 <- c(8,3) > x3 <- c(4,4) > > jpeg("lines.plot.jpg") > lines(x1,x2) # これはエラーになる 以下にエラー plot.xy(xy.coords(x, y), type = type, ...) : まだ plot.new が呼ばれていません > > # グラフィックデバイスを開く > plot(rbind(x1,x2,x3),type="n") > lines(x=c(x1[1],x2[1]),y=c(x1[2],x2[2]),lty=1,col=1) > lines(x=c(x1[1],x3[1]),y=c(x1[2],x3[2]),lty=2,col=2,lwd=2) > dev.off()
で、こんな感じ。
xとyの引数を見て分かるように、x,yは2点間のx座標とy座標を指定する。
個人的には、x1とx2を結ぶなら、lines(x1,x2)みたいにしてほしい。
と考えると、この方が直感的かも。
> plot(rbind(x1,x2,x3),type="n") > lines(rbind(x1,x2),lty=1,col=1) > lines(rbind(x1,x3),lty=2,col=2,lwd=2)
結果は上と同じはず。
- abline関数
abline関数は
-
- y = a + bxとする引数aとbを指定して直線を引く
- 引数hでx = 0に対する平行線を引く
- 引数vでy = 0に対する平行線を引く
- 引数coef = c(a,b)を同時に指定して直線を引く
- 引数regはcoefとほぼ同じ
といった機能を持つ。
lm関数などで回帰したときにグラフにする時に重宝する。
> jpeg("abline.plot.jpg") > layout(matrix(1:4,ncol=2)) > par(mai=c(.7,.7,.4,.1)) > # y = -1 + 2xを引く > # グラフィックデバイスを開く > plot(NA,type="n",xlim=c(-5,5),ylim=c(-5,5),main="y=-1+2x") > abline(a=-1,b=2,lty=1,lwd=2) > abline(h=0) # x軸を描く > abline(v=0) # y軸を描く > > # x軸に対する平行線 > plot(NA,type="n",xlim=c(-5,5),ylim=c(-5,5),main="parallel line of x-axis") > abline(h=0,v=0) > abline(h=seq(-5,5,2),lty=2:4,col=2:4) > > # y軸に対する平行線 > plot(NA,type="n",xlim=c(-5,5),ylim=c(-5,5),main="parallel line of y-axis") > abline(h=0,v=0) > abline(v=seq(5,-5,-3),lty=c(1,5),lwd=1:2) > > # coefとregを使う > plot(NA,type="n",xlim=c(-5,5),ylim=c(-5,5),main="coef and reg") > # coefでy = -1 + 2xを描く > abline(h=0,v=0,coef=c(-1,2)) > # y=3+2xを描く > abline(b=2,reg=3,col=2) > # y=1+2xを描く > abline(reg=c(1,2),col=3) > dev.off()
で、こんな感じ。
個人的には、lines関数よりも直感的と思う。
