Rでグラフ描画 のバックアップ(No.4) - 闘うITエンジニアの覚え書き

グラフ描画は基本的に以下の手順で行う。

1. 描画デバイスを開く
2. グラフデータをプロットする
3. グラフの装飾(追加情報の描画)
4. 描画デバイスを閉じる

　※ R Studio の場合は描画デバイスのオープン、クローズは無くてもOK。(プロット領域に表示される)

折れ線グラフの描画例)

x <- c(1, 2, 3, 4, 5)
y <- c(2, 3, 4, 8, 10)
dev.new()                                  # 1. 描画デバイスを開く
plot(x, y)                                   # 2. データのプロット
lines(x, y)                                  # 3. 線の追加　※ plot(x, y, type="b") 等で一発で書く事も可能
dev.off()                                    # 4. 描画デバイスを閉じる

グラフ描画で最もよく使用する plot について記載する。

形式)

引数)

例えば、以下のように type="l" を指定すれば線だけを描画できる。

x <- c(1, 2, 3, 4, 5)
y <- c(2, 3, 4, 8, 10)
dev.new()
plot(x, y, type="l")   # 線だけを描画
dev.off()

タイトルの描画 †

文字の描画 †

座標軸の描画 †

凡例の描画 †

点の描画 †

追加の点の描画 †

グリッドの描画 †

線の描画 †

四角形の描画 †

多角形の描画 †

矢印の描画 †

点グラフ(線形補間) †

x <- c(1, 2, 3, 4, 5)
y <- c(2, 3, 4, 8, 10)
dev.new()
plot(x, y)
points(approx(x, y))               # 線形補間
dev.off()

折れ線グラフ †

x <- c(1, 2, 3, 4, 5)
y <- c(2, 3, 4, 8, 10)
dev.new()
plot(x, y)
lines(x, y)                        # 線グラフ描画
dev.off()

線形回帰(回帰直線) †

x <- c(1, 2, 3, 4, 5)
y <- c(2, 3, 4, 8, 10)
dev.new()
plot(x, y)
result <- lm(y~x)            # 線型モデルによる回帰分析を行い回帰式を得る
fitted_y = fitted(result)   # 回帰式により予測値を求める
lines(x, fitted_y)              # 線グラフの描画
# abline(result)               # abline でも同じく回帰直線が描ける(直線回帰の結果を引数に指定する)
dev.off()

ロジスティック回帰 †

XXXXXXXXXX †

XXXXXXXXXX †

描画デバイスのOPENを dev.new() でなく、以下の関数で行う事でグラフをファイルに出力する事ができる。