rnotebookで折れ線グラフ
差分
この文書の現在のバージョンと選択したバージョンの差分を表示します。
| 両方とも前のリビジョン 前のリビジョン 次のリビジョン | 前のリビジョン | ||
|
rnotebookで折れ線グラフ [2017/12/16] adash333 [参考文献] |
rnotebookで折れ線グラフ [2018/10/07] (現在) |
||
|---|---|---|---|
| ライン 2: | ライン 2: | ||
| 基本的に、[[Excelで折れ線グラフと誤差]]に記載させていただいた方法でExcelを用いて描く法が圧倒的に早いです。しかし、見栄えを細かく設定したい場合は、Rを用いてグラフを描くとよいと思われます。かなり面倒ですが、慣れてくると、おそらく、楽しくなってくると思われます。 | 基本的に、[[Excelで折れ線グラフと誤差]]に記載させていただいた方法でExcelを用いて描く法が圧倒的に早いです。しかし、見栄えを細かく設定したい場合は、Rを用いてグラフを描くとよいと思われます。かなり面倒ですが、慣れてくると、おそらく、楽しくなってくると思われます。 | ||
| + | ===== 開発環境 ===== | ||
| + | Windows 8.1 Pro (64-bit)\\ | ||
| + | R Studio 1.1.383 | ||
| ===== 1.データの準備 ===== | ===== 1.データの準備 ===== | ||
| ライン 85: | ライン 88: | ||
| さらに、次の行に新しいチャンクを作成して、以下のコードを記載。 | さらに、次の行に新しいチャンクを作成して、以下のコードを記載。 | ||
| + | <code> | ||
| + | # csvファイルの読み込み | ||
| + | x <- read.csv("book2.csv") | ||
| - | （作成中） | + | # (x,y)の値の指定 |
| + | x1 <- c(0, 1, 2, 3) | ||
| + | y1 <- c(mean(x$HbA1c00M), mean(x$HbA1c01M), mean(x$HbA1c02M), mean(x$HbA1c03M)) | ||
| - | <code> | + | # 高水準関数plotで、座標面を記載 |
| - | # x 軸座標を設定 | + | plot(0, 0, type = "n", xaxt="n", xlim = range(x1), ylim = c(0, max(x[,5:8])), |
| - | xaxis <- 1:ncol(x[, -1]) | + | xlab = "Month", ylab = "HbA1c") |
| + | |||
| + | # 低水準関数pointsとlinesで、上で作った座標面に折れ線グラフを追加記載 | ||
| + | m <- apply(x[,5:8], 2, mean) | ||
| + | s <- apply(x[,5:8], 2, sd) | ||
| + | points(x1, m, pch=16) | ||
| + | lines(x1, m) | ||
| + | |||
| + | # 低水準関数arrowsで、標準偏差を追加記載 | ||
| + | arrows(x1, m + s, x1, m - s, angle = 90, length = 0.1) | ||
| + | arrows(x1, m - s, x1, m + s, angle = 90, length = 0.1) | ||
| + | |||
| + | axis(1, at=0:3, labels=c("0M", "1M", "2M", "3M")) | ||
| </code> | </code> | ||
| + | {{:pasted:20171216-234338.png}} | ||
| + | 上の方の、Preview または、Knit To HTMLをクリック。 | ||
| + | {{:pasted:20171216-234550.png}} | ||
| + | |||
| + | 保存したいグラフを右クリックして、"Copy Image"をクリック。 | ||
| + | |||
| + | {{:pasted:20171216-234755.png}} | ||
| + | |||
| + | Powerpointか何かを開いて、"Ctrl+V"でペースト。 | ||
| + | |||
| + | {{:pasted:20171216-235201.png}} | ||
| + | |||
| + | なんだか<wrap hi>[[Excelで折れ線グラフと誤差]]</wrap>と比べて非常に面倒ですが、がんばって勉強すれば、エクセルよりも自由度が高そうです。 | ||
| ライン 147: | ライン 180: | ||
| 6. グラフの重ね描き\\ | 6. グラフの重ね描き\\ | ||
| http://takenaka-akio.org/doc/r_auto/chapter_06.html | http://takenaka-akio.org/doc/r_auto/chapter_06.html | ||
| - | |||
| - | 作成中 | ||
| ===== リンク ===== | ===== リンク ===== | ||
| ライン 154: | ライン 185: | ||
| 次： | 次： | ||
| <wrap hi> | <wrap hi> | ||
| - | [[RNotebookでRインラインコード]] | + | [[ggplot2で折れ線グラフ]] |
| </wrap>\\ | </wrap>\\ | ||
rnotebookで折れ線グラフ.1513434994.txt.gz · 最終更新: 2018/10/07 (外部編集)
