rnotebookで折れ線グラフ
差分
このページの2つのバージョン間の差分を表示します。
両方とも前のリビジョン前のリビジョン次のリビジョン | 前のリビジョン | ||
rnotebookで折れ線グラフ [2017/12/07] – [1.データの準備] adash333 | rnotebookで折れ線グラフ [2018/10/07] (現在) – 外部編集 127.0.0.1 | ||
---|---|---|---|
行 2: | 行 2: | ||
基本的に、[[Excelで折れ線グラフと誤差]]に記載させていただいた方法でExcelを用いて描く法が圧倒的に早いです。しかし、見栄えを細かく設定したい場合は、Rを用いてグラフを描くとよいと思われます。かなり面倒ですが、慣れてくると、おそらく、楽しくなってくると思われます。 | 基本的に、[[Excelで折れ線グラフと誤差]]に記載させていただいた方法でExcelを用いて描く法が圧倒的に早いです。しかし、見栄えを細かく設定したい場合は、Rを用いてグラフを描くとよいと思われます。かなり面倒ですが、慣れてくると、おそらく、楽しくなってくると思われます。 | ||
+ | ===== 開発環境 ===== | ||
+ | Windows 8.1 Pro (64-bit)\\ | ||
+ | R Studio 1.1.383 | ||
===== 1.データの準備 ===== | ===== 1.データの準備 ===== | ||
行 35: | 行 38: | ||
{{: | {{: | ||
- | book2.csvは、以下からダウンロードできます。 | + | book2.csvは、以下をテキストファイルにコピーしてからbook2.csvという名前で保存していただけますと、利用できます。 |
+ | |||
+ | < | ||
+ | ID, | ||
+ | 1, | ||
+ | 2, | ||
+ | 3, | ||
+ | 4, | ||
+ | 5, | ||
+ | 6, | ||
+ | 7, | ||
+ | </ | ||
+ | |||
+ | |||
+ | |||
+ | ===== 2.折れ線グラフの作成 ===== | ||
+ | R Studioで、File > New File > R Notebook をクリック | ||
+ | |||
+ | {{: | ||
+ | |||
+ | File > Save As で、今回は、171028_002 と入力して保存。 | ||
+ | |||
+ | {{: | ||
+ | |||
+ | その後、下図のような位置にある、" | ||
+ | |||
+ | {{: | ||
+ | |||
+ | 以下のようにグレーの部分が表示されるので、グレーの部分の中身に、Rのコードを記入。 | ||
+ | |||
+ | {{: | ||
+ | |||
+ | Rのコード | ||
+ | |||
+ | < | ||
+ | # データの読み込み | ||
+ | x <- read.csv(" | ||
+ | head(x) | ||
+ | </ | ||
+ | |||
+ | 次に、そのコードを書いたチャンク(グレーの部分)の右上の、緑色の三角ボタンをクリック | ||
+ | |||
+ | {{: | ||
+ | |||
+ | すると、そのチャンク内のコードが実行される。 | ||
+ | |||
+ | {{: | ||
+ | |||
+ | さらに、次の行に新しいチャンクを作成して、以下のコードを記載。 | ||
+ | |||
+ | < | ||
+ | # csvファイルの読み込み | ||
+ | x <- read.csv(" | ||
+ | |||
+ | # (x, | ||
+ | x1 <- c(0, 1, 2, 3) | ||
+ | y1 <- c(mean(x$HbA1c00M), | ||
+ | |||
+ | # 高水準関数plotで、座標面を記載 | ||
+ | plot(0, 0, type = " | ||
+ | xlab = " | ||
+ | |||
+ | # 低水準関数pointsとlinesで、上で作った座標面に折れ線グラフを追加記載 | ||
+ | m <- apply(x[, | ||
+ | s <- apply(x[, | ||
+ | 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(" | ||
+ | </ | ||
+ | |||
+ | {{: | ||
+ | |||
+ | 上の方の、Preview または、Knit To HTMLをクリック。 | ||
+ | |||
+ | {{: | ||
+ | |||
+ | 保存したいグラフを右クリックして、" | ||
+ | |||
+ | {{: | ||
+ | |||
+ | Powerpointか何かを開いて、" | ||
+ | |||
+ | {{: | ||
+ | |||
+ | なんだか< | ||
+ | |||
行 44: | 行 138: | ||
折れ線グラフにエラーバーをつける方法\\ | 折れ線グラフにエラーバーをつける方法\\ | ||
https:// | https:// | ||
+ | |||
+ | |||
+ | |||
+ | ggplot2用例集 入門編 - SlideShare\\ | ||
+ | https:// | ||
+ | 論文の図の作成 | ||
+ | |||
+ | グラフ描画ggplot2の辞書的まとめ20のコード\\ | ||
+ | https:// | ||
+ | →このサイトのコードをコピペするのが簡単か。 | ||
+ | |||
+ | |||
+ | |||
+ | ggplot2 まとめ: 初歩から程よいレベルまで - Mr.Unadon - \\ | ||
+ | https:// | ||
+ | |||
+ | 論文用の棒グラフと折れ線グラフをggplot2で描く\\ | ||
+ | https:// | ||
+ | |||
+ | ggplotで論文用のthemeを作成する\\ | ||
+ | http:// | ||
+ | スクリプト冒頭で “library(grid)” とすれば良い | ||
+ | |||
+ | 2012-12-18 | ||
+ | 『心理学研究』に準拠したggplot2のtheme\\ | ||
+ | http:// | ||
連載\\ | 連載\\ | ||
行 49: | 行 169: | ||
http:// | http:// | ||
+ | 2017-12-07\\ | ||
+ | Rで横軸が時系列のグラフを書く\\ | ||
+ | http:// | ||
+ | R 使い方 軸・ラベルの調整(向き・サイズ・色など) グラフの描き方 | ||
+ | | ||
+ | http:// | ||
- | + | R でプログラミング:データの一括処理とグラフ描き\\ | |
- | 作成中 | + | 6. グラフの重ね描き\\ |
+ | http:// | ||
===== リンク ===== | ===== リンク ===== | ||
行 58: | 行 185: | ||
次: | 次: | ||
<wrap hi> | <wrap hi> | ||
- | [[RNotebookでRインラインコード]] | + | [[ggplot2で折れ線グラフ]] |
</ | </ | ||
rnotebookで折れ線グラフ.1512659704.txt.gz · 最終更新: 2018/10/07 (外部編集)