ユーザ用ツール

サイト用ツール


rnotebookで折れ線グラフ

差分

このページの2つのバージョン間の差分を表示します。

この比較画面へのリンク

両方とも前のリビジョン前のリビジョン
次のリビジョン
前のリビジョン
rnotebookで折れ線グラフ [2017/12/07] – [1.データの準備] adash333rnotebookで折れ線グラフ [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.データの準備 =====
行 70: 行 73:
  
 <code> <code>
 +# データの読み込み
 +x <- read.csv("book2.csv")
 +head(x)
 +</code>
 +
 +次に、そのコードを書いたチャンク(グレーの部分)の右上の、緑色の三角ボタンをクリック
 +
 +{{:pasted:20171208-002837.png}}
 +
 +すると、そのチャンク内のコードが実行される。
 +
 +{{:pasted:20171208-002927.png}}
 +
 +さらに、次の行に新しいチャンクを作成して、以下のコードを記載。
 +
 +<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))
 +
 +# 高水準関数plotで、座標面を記載
 +plot(0, 0, type = "n", xaxt="n", xlim = range(x1), ylim = c(0, max(x[,5:8])),
 +     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>と比べて非常に面倒ですが、がんばって勉強すれば、エクセルよりも自由度が高そうです。
 +
 +
 +
  
  
行 79: 行 138:
 折れ線グラフにエラーバーをつける方法\\ 折れ線グラフにエラーバーをつける方法\\
 https://stats.biopapyrus.jp/r/graph/errorbar.html https://stats.biopapyrus.jp/r/graph/errorbar.html
 +
 +
 +
 +ggplot2用例集 入門編 - SlideShare\\
 +https://www.slideshare.net/mobile/nocchi_airport/ggplot2-62471507\\
 +論文の図の作成
 +
 +グラフ描画ggplot2の辞書的まとめ20のコード\\
 +https://mrunadon.github.io/ggplot2/\\
 +→このサイトのコードをコピペするのが簡単か。
 +
 +
 +
 +ggplot2 まとめ: 初歩から程よいレベルまで - Mr.Unadon - \\
 +https://mrunadon.github.io/images/geom_kazutanR.html
 +
 +論文用の棒グラフと折れ線グラフをggplot2で描く\\
 +https://mrunadon.github.io/ThesisPlot/
 +
 +ggplotで論文用のthemeを作成する\\
 +http://qh73xebitbucketorg.readthedocs.io/ja/latest/1.Programmings/r/library/ggplot/tips/reportTheme/\\
 +スクリプト冒頭で “library(grid)” とすれば良い
 +
 +2012-12-18
 +『心理学研究』に準拠したggplot2のtheme\\
 +http://m884.hateblo.jp/entry/2012/12/18/152040
  
 連載\\ 連載\\
行 84: 行 169:
 http://gihyo.jp/admin/serial/01/r-markdown http://gihyo.jp/admin/serial/01/r-markdown
  
 +2017-12-07\\
 +Rで横軸が時系列のグラフを書く\\
 +http://touch-sp.hatenablog.com/entry/2017/12/07/074914
  
 +R 使い方 軸・ラベルの調整(向き・サイズ・色など) グラフの描き方
 + 2016年11月24日\\
 +http://bioinfo-dojo.net/2016/11/24/various_axis_r/
  
- +R でプログラミング:データの一括処理とグラフ描き\\ 
-作成中+6. グラフの重ね描き\\ 
 +http://takenaka-akio.org/doc/r_auto/chapter_06.html
  
 ===== リンク ===== ===== リンク =====
行 93: 行 185:
 次: 次:
 <wrap hi> <wrap hi>
-[[RNotebookRインインコード]]+[[ggplot2折れ線グ]]
 </wrap>\\ </wrap>\\
  

rnotebookで折れ線グラフ.1512660390.txt.gz · 最終更新: 2018/10/07 (外部編集)

Donate Powered by PHP Valid HTML5 Valid CSS Driven by DokuWiki