差分

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

--- rnotebookでcsvファイルの読み込みと表示 [2017/12/16] – 作成 adash333
+++ rnotebookでcsvファイルの読み込みと表示 [2020/05/23] (現在) – [リンク] adash333
@@ 行 1: / 行 1: @@
 ===== R Notebookでcsvファイルの読み込みと表示 =====
+[[初めての医療統計:index.html|初めての医療統計 目次]]
 前回の、<wrap hi>[[RNotebookでRインラインコード]]</wrap>では、"R Notebook"の本文中で、Rのコードを実行してみました（インラインコード）。今回は、自作データのcsvファイルを、R Notebookに読み込んで、簡単な統計を行ってみます。
@@ 行 38: / 行 40: @@
 {{book2.xlsx}}
+ファイル > 名前をつけて保存 > CSV(コンマ区切り)(*.csv) で、"保存"をクリック。
+{{:pasted:20171217-003135.png}}
-（作成中）
+この、book2.csvというファイルを、C:/r/R_data/ 下にコピーしておく。（R Notebookでファイルを簡単に指定できるように。）
+===== ２．csvファイルの読み込み =====
 R Studioの画面で、"File" > "New File" > "R Notebook"　をクリック。
@@ 行 58: / 行 57: @@
 {{:pasted:20171217-000210.png}}
-下記のように、（チャンク以外の）本文のところに、以下の文を記載。
+チャンクの部分（灰色の部分）に、以下のように記載。
 <code>
-Rでインラインコードは、以下のように記載します。
+x <- read.csv("book2.csv")
+x
-今日は `r format(Sys.Date(), "%Y/%m/%d")` です。
-から10までの平均は、 `r mean(1:10)` です。
 </code>
-{{:pasted:20171217-000742.png}}
+{{:pasted:20171217-003916.png}}
+チャンクの右側の三角ボタンをクリックして、チャンク内のコードを実行。
-"Preview" > "Knit to HTML"をクリック
+{{:pasted:20171217-003957.png}}
-{{:pasted:20171217-000854.png}}
+以下のようになる。
-R Notebookファイル（Rmdファイル）に名前をつけていない場合は、以下のような画面になるので、適切な名前をつけて保存。
+{{:pasted:20171217-004016.png}}
-今回は、"171217_inline"という名前で保存した。
+画面右上の方の、"Insert" > "R" で、新しいチャンク（灰色の部分）が挿入されるので、そちらに、以下のコードを記載。
-{{:pasted:20171217-001029.png}}
-以下のようなファイルが作成される。
+<code>
+x <- read.csv("book2.csv")
+summary(x)
+</code>
-{{:pasted:20171217-001136.png}}
+{{:pasted:20171217-004142.png}}
-この"171212_inline.html"を添付ファイルにしてメールで送ったりすることができる。
+チャンクの右側の三角ボタンをクリックして、チャンク内のコードを実行すると、以下のようになる。
+{{:pasted:20171217-004233.png}}
+ちなみに、各列の標準偏差も計算すると、以下のようになる。
+<code>
+x <- read.csv("book2.csv")
+summary(x)
+sd(x$age)
+apply(x[,5:8],2,sd)
+</code>
+{{:pasted:20171217-004805.png}}
@@ 行 105: / 行 114: @@
 http://gihyo.jp/admin/serial/01/r-markdown
 ===== リンク =====
+[[初めての医療統計:index.html|初めての医療統計 目次]]
-次：
+次：<wrap hi>[[RNotebookで折れ線グラフ]]</wrap>
-<wrap hi>
-[[RNotebookでcsvファイルの読み込みと表示]]
-</wrap>\\
-[[sidebar|初めての医療統計 目次]]\\
-前：
+前：<wrap hi>[[RStudioで新規RNotebook作成]]</wrap>
-<wrap hi>
-[[RStudioで新規RNotebook作成]]
-</wrap>\\