10分で分かる谤言语入门惫别谤2.5
68 likes36,648 views
第35回R勉強会＠東京（#TokyoR） ATND: http://atnd.org/events/45114
![変数
値を入れる箱
> hako <- 10
> hako
[1] 10
> hako * 2
[1] 20
13年11月9日土曜日](https://image.slidesharecdn.com/10rver2-131109002735-phpapp01/85/10-r-ver2-5-33-320.jpg)
![変数
値を入れる箱
> hako <- 10
> hako
変数に値を入れる
左矢印のイメージ
[1] 10
> hako * 2
[1] 20
13年11月9日土曜日
変数に対して
処理(かけ算)](https://image.slidesharecdn.com/10rver2-131109002735-phpapp01/85/10-r-ver2-5-34-320.jpg)
![配列 複数の値をまとめる
> array <- c(10,20,30)
> array
[1] 10 20 30
> array * 2
[1] 20 40 60
13年11月9日土曜日](https://image.slidesharecdn.com/10rver2-131109002735-phpapp01/85/10-r-ver2-5-35-320.jpg)
![配列 複数の値をまとめる
> array <- c(10,20,30)
> array
[1] 10 20 30
> array * 2
[1] 20 40 60
13年11月9日土曜日
３つの値を
配列に格納
処理は
配列全体に
適用される](https://image.slidesharecdn.com/10rver2-131109002735-phpapp01/85/10-r-ver2-5-36-320.jpg)
![配列
各要素へのアクセス
> array[1]
[1] 10
> array[2]
[1] 20
> array[3]
[1] 30
13年11月9日土曜日](https://image.slidesharecdn.com/10rver2-131109002735-phpapp01/85/10-r-ver2-5-37-320.jpg)
![配列
各要素へのアクセス
> array[1]
[1] 10
配列[番号]で
１個ずつ値を
取り出せる
> array[2]
２個目
[1] 20
> array[3]
[1] 30
13年11月9日土曜日
3個目](https://image.slidesharecdn.com/10rver2-131109002735-phpapp01/85/10-r-ver2-5-38-320.jpg)
![行列
２次元の配列
> array2 <- matrix(c(10,20,30, ?
40,50,60), 2, 3)
> array2
[,1] [,2] [,3]
[1,] 10 30 50
[2,] 20 40 60
13年11月9日土曜日](https://image.slidesharecdn.com/10rver2-131109002735-phpapp01/85/10-r-ver2-5-39-320.jpg)
![行列
２次元の配列
> array2 <- matrix(c(10,20,30, ?
40,50,60), 2, 3)
> array2
[,1] [,2] [,3]
[1,] 10 30 50
[2,] 20 40 60
13年11月9日土曜日
matrixという
関数を利用して
作る
２行３列の
行列](https://image.slidesharecdn.com/10rver2-131109002735-phpapp01/85/10-r-ver2-5-40-320.jpg)
![行列
各要素の指定
> array2[1,1]
[1] 10
> array2[1,]
[1] 10 30 50
> array2[,1]
[1] 10 20
13年11月9日土曜日](https://image.slidesharecdn.com/10rver2-131109002735-phpapp01/85/10-r-ver2-5-42-320.jpg)
![行列
各要素の指定
> array2[1,1]
[1] 10
> array2[1,]
[1] 10 30 50
> array2[,1]
[1] 10 20
13年11月9日土曜日
1行1列を
指定
1行目全体
を指定
1列目全体
を指定](https://image.slidesharecdn.com/10rver2-131109002735-phpapp01/85/10-r-ver2-5-43-320.jpg)
![データフレーム
> x$HEIGHT
[1] 158 162 177 173 166
> x$HEIGHT[1]
[1] 158
> x$HEIGHT[1:3]
[1] 158 162 177
13年11月9日土曜日
要素の指定
$で
身長(HEIGHT)
を全指定
身長1つめだけ
身長1-3番目](https://image.slidesharecdn.com/10rver2-131109002735-phpapp01/85/10-r-ver2-5-46-320.jpg)
![関数
合計を求める
> array
[1] 10 20 30
> sum(array)
[1] 60
13年11月9日土曜日](https://image.slidesharecdn.com/10rver2-131109002735-phpapp01/85/10-r-ver2-5-52-320.jpg)
![関数
合計を求める
> array
先ほどの配列
[1] 10 20 30
> sum(array)
関数名(引数)
で処理呼び出し
[1] 60
処理結果が
出力される
13年11月9日土曜日](https://image.slidesharecdn.com/10rver2-131109002735-phpapp01/85/10-r-ver2-5-53-320.jpg)
![関数
行列も足せる
> array2
[,1] [,2] [,3]
[1,] 10 30 50
[2,] 20 40 60
> sum(array2)
[1] 210
13年11月9日土曜日](https://image.slidesharecdn.com/10rver2-131109002735-phpapp01/85/10-r-ver2-5-54-320.jpg)
![関数
行列も足せる
> array2
[,1] [,2] [,3]
[1,] 10 30 50
先ほどの行列
array2
[2,] 20 40 60
> sum(array2)
[1] 210
13年11月9日土曜日
合計値が
表示される](https://image.slidesharecdn.com/10rver2-131109002735-phpapp01/85/10-r-ver2-5-55-320.jpg)
![変数 関数
結果を格納
> ret <- sum(array2)
> ret
[1] 210
13年11月9日土曜日](https://image.slidesharecdn.com/10rver2-131109002735-phpapp01/85/10-r-ver2-5-56-320.jpg)
![変数 関数
結果を格納
> ret <- sum(array2)
> ret
[1] 210
13年11月9日土曜日
合計値の
確認
処理結果を
変数に格納](https://image.slidesharecdn.com/10rver2-131109002735-phpapp01/85/10-r-ver2-5-57-320.jpg)
![自作関数
自分で関数を作る
> varp <- function(x) {
retsult <- var(x) * (length(x) - 1) / length(x)
retsult
}
> varp(array)
[1] 66.66667
13年11月9日土曜日](https://image.slidesharecdn.com/10rver2-131109002735-phpapp01/85/10-r-ver2-5-64-320.jpg)
![自作関数
自分で関数を作る
関数の定義
> varp <- function(x) {
retsult <- var(x) * (length(x) - 1) / length(x)
retsult
}
> varp(array)
[1] 66.66667
13年11月9日土曜日
処理を記述する
実行](https://image.slidesharecdn.com/10rver2-131109002735-phpapp01/85/10-r-ver2-5-65-320.jpg)
10分で分かる谤言语入门惫别谤2.5
- 3. お知らせ Rユーザー会 (11/29 - 30 @統数研) http://prcs.ism.ac.jp/useRjp/ Japan.R (12/7 @ヤフー) http://atnd.org/events/44682 13年11月9日土曜日
- 5. アジェンダ ? 自己紹介 ? Rって何 ? Rの使い方 ? Rの資料 13年11月9日土曜日
- 6. 自己紹介 ? 名前：大城信晃 ? Twitter：doradora09 ? 職業：データマイニングエンジニア ? R：勉強中。いつか業務で使いたい ? マイブーム： ? カクテル作り ? カメラ 13年11月9日土曜日
- 7. これまで/現在の仕事 ? ショッピング関連 ? 商品／製品DB 保守開発 ? データ分析関連 ? 行動ターゲティング ? データを使って顧客像を探る 13年11月9日土曜日
- 8. TokyoRでは ? 第１回から主に運営側で参加 ? 初心者セッション ? 最近は懇親会でピザ注文したりお酒作 ったりしてます 13年11月9日土曜日
- 12. 本日のお酒 ? ジョニー?ウォーカー (Johnnie Walker) は スコッチ?ウイスキーの世界的に有名なブラ ンドで、スコットランド?キルマーノック (Kilmarnock)の発祥である。 ? ジョニー?ウォーカーはスコッチの銘柄とし ては世界で一番広まっている。200以上の 国々で年間1億2000万本売れている。 13年11月9日土曜日
- 13. 種類 13年11月9日土曜日
- 17. では本題に ? 自己紹介とお知らせ ? Rって何 ? Rの使い方 ? Rの資料 13年11月9日土曜日
- 22. こんな方におすすめ ? 色々な統計手法を試してみたい方 ? エクセルでは物足りない方 ? まずは無料で始めてみたい方 13年11月9日土曜日
- 23. あると望ましいスキル ? プログラミングの基礎 ? 統計学の知識 ? (英語力) 13年11月9日土曜日
- 24. アジェンダ ? 自己紹介とお知らせ ? Rって何 ? Rの使い方 ? Rの資料 13年11月9日土曜日
- 28. 処理の記述 3+5 = 8 10-7 = 3 13年11月9日土曜日
- 33. 変数 値を入れる箱 > hako <- 10 > hako [1] 10 > hako * 2 [1] 20 13年11月9日土曜日
- 34. 変数 値を入れる箱 > hako <- 10 > hako 変数に値を入れる 左矢印のイメージ [1] 10 > hako * 2 [1] 20 13年11月9日土曜日 変数に対して 処理(かけ算)
- 35. 配列 複数の値をまとめる > array <- c(10,20,30) > array [1] 10 20 30 > array * 2 [1] 20 40 60 13年11月9日土曜日
- 36. 配列 複数の値をまとめる > array <- c(10,20,30) > array [1] 10 20 30 > array * 2 [1] 20 40 60 13年11月9日土曜日 ３つの値を 配列に格納 処理は 配列全体に 適用される
- 37. 配列 各要素へのアクセス > array[1] [1] 10 > array[2] [1] 20 > array[3] [1] 30 13年11月9日土曜日
- 38. 配列 各要素へのアクセス > array[1] [1] 10 配列[番号]で １個ずつ値を 取り出せる > array[2] ２個目 [1] 20 > array[3] [1] 30 13年11月9日土曜日 3個目
- 39. 行列 ２次元の配列 > array2 <- matrix(c(10,20,30, ? 40,50,60), 2, 3) > array2 [,1] [,2] [,3] [1,] 10 30 50 [2,] 20 40 60 13年11月9日土曜日
- 40. 行列 ２次元の配列 > array2 <- matrix(c(10,20,30, ? 40,50,60), 2, 3) > array2 [,1] [,2] [,3] [1,] 10 30 50 [2,] 20 40 60 13年11月9日土曜日 matrixという 関数を利用して 作る ２行３列の 行列
- 42. 行列 各要素の指定 > array2[1,1] [1] 10 > array2[1,] [1] 10 30 50 > array2[,1] [1] 10 20 13年11月9日土曜日
- 43. 行列 各要素の指定 > array2[1,1] [1] 10 > array2[1,] [1] 10 30 50 > array2[,1] [1] 10 20 13年11月9日土曜日 1行1列を 指定 1行目全体 を指定 1列目全体 を指定
- 44. 複数の型を持てる データフレーム > sex <- c("F","F","M","M","M") #性別 > height <- c(158,162,177,173,166) #身長 > weight <- c(51,55,72,57,64) #体重 >(x <- data.frame(SEX=sex, HEIGHT=height, WEIGHT=weight) ) SEX HEIGHT WEIGHT 1 F 158 51 2 F 162 55 3 M 177 72 4 M 173 57 5 M 166 64 13年11月9日土曜日
- 45. 複数の型を持てる データフレーム > sex <- c("F","F","M","M","M") #性別 > height <- c(158,162,177,173,166) #身長 > weight <- c(51,55,72,57,64) #体重 >(x <- data.frame(SEX=sex, HEIGHT=height, WEIGHT=weight) ) SEX HEIGHT WEIGHT 1 F 158 51 2 F 162 55 3 M 177 72 4 M 173 57 5 M 166 64 13年11月9日土曜日 data.frame関数で セット 性別(bool型) 身長、体重(数値型)
- 46. データフレーム > x$HEIGHT [1] 158 162 177 173 166 > x$HEIGHT[1] [1] 158 > x$HEIGHT[1:3] [1] 158 162 177 13年11月9日土曜日 要素の指定 $で 身長(HEIGHT) を全指定 身長1つめだけ 身長1-3番目
- 47. ここまで ? 変数：１種類の型の値を１つ入れる箱 (スカラー) ? 配列：１種類の型の値を複数入れる箱 (ベクトル) ? 行列：１種類の型の複数ベクトルをまと めて表現 ? データフレーム：複数の型のベクトルを まとめて表現 13年11月9日土曜日
- 52. 関数 合計を求める > array [1] 10 20 30 > sum(array) [1] 60 13年11月9日土曜日
- 53. 関数 合計を求める > array 先ほどの配列 [1] 10 20 30 > sum(array) 関数名(引数) で処理呼び出し [1] 60 処理結果が 出力される 13年11月9日土曜日
- 54. 関数 行列も足せる > array2 [,1] [,2] [,3] [1,] 10 30 50 [2,] 20 40 60 > sum(array2) [1] 210 13年11月9日土曜日
- 55. 関数 行列も足せる > array2 [,1] [,2] [,3] [1,] 10 30 50 先ほどの行列 array2 [2,] 20 40 60 > sum(array2) [1] 210 13年11月9日土曜日 合計値が 表示される
- 56. 変数 関数 結果を格納 > ret <- sum(array2) > ret [1] 210 13年11月9日土曜日
- 57. 変数 関数 結果を格納 > ret <- sum(array2) > ret [1] 210 13年11月9日土曜日 合計値の 確認 処理結果を 変数に格納
- 58. CSV 関数 CSV読み込み ? 変数に毎回データを手入力するのは面倒 ? CSV形式(カンマ区切り)ファイルを読み 込む関数がある 13年11月9日土曜日
- 59. CSV 関数 CSV読み込み > hawks <- read.csv("hawks.csv") > hawks height salary 1 173 17000 2 178 14000 3 180 9000 13年11月9日土曜日
- 60. CSV 関数 CSV読み込み > hawks <- read.csv("hawks.csv") > hawks height salary 1 173 17000 2 178 14000 3 180 9000 13年11月9日土曜日 read.csv関数に hawks.csvという CSVファイルを 渡して 変数に代入
- 61. CSV 関数 CSV読み込み > hawks <- read.csv("hawks.csv") > hawks height salary 1 173 17000 2 178 14000 3 180 9000 13年11月9日土曜日 CSVファイルの 変数への 読み込みが 確認できる
- 63. 関数の書き方 関数名 <- function (引数) { 処理 } 13年11月9日土曜日
- 64. 自作関数 自分で関数を作る > varp <- function(x) { retsult <- var(x) * (length(x) - 1) / length(x) retsult } > varp(array) [1] 66.66667 13年11月9日土曜日
- 65. 自作関数 自分で関数を作る 関数の定義 > varp <- function(x) { retsult <- var(x) * (length(x) - 1) / length(x) retsult } > varp(array) [1] 66.66667 13年11月9日土曜日 処理を記述する 実行
- 66. ここまで ? 組み込み関数：基本的な演算が可能 ? CSV：read.csv関数でCSV形式のデ ータを読み込める ? 自作関数：自身で関数を定義できる 13年11月9日土曜日
- 70. 作図 標準作図関数 > x <- rnorm(50) > hist(x, breaks=seq(-3, 3,1)) 13年11月9日土曜日
- 71. 標準作図関数 作図 乱数生成 > x <- rnorm(50) > hist(x, breaks=seq(-3, 3,1)) ヒストグラム 作図関数 13年11月9日土曜日
- 72. パッケージ 関数をまとめたもの ? 複数の関数をまとめたもの ? 様々なパッケージがCRANというシステ ムにて無料公開されている ? 自作のパッケージも公開できる 13年11月9日土曜日
- 74. パッケージ 外部パッケージ 作図 > install.packages( ggplot2 ) > library("ggplot2") 13年11月9日土曜日
- 75. パッケージ 外部パッケージ 作図 > install.packages( ggplot2 ) > library("ggplot2") パッケージを ロード 13年11月9日土曜日 CRANから パッケージ ダウンロード＆ インストール
- 76. パッケージ 作図 a <- 1:10 b <- a^2 qplot(a,b) 13年11月9日土曜日 qplotが利用可能
- 77. パッケージ qplotが利用可能 作図 a <- 1:10 b <- a^2 qplot(a,b) ggplot2 パッケージ の関数 13年11月9日土曜日
- 83. アジェンダ ? 自己紹介とお知らせ ? Rって何 ? Rの使い方 ? Rの資料 13年11月9日土曜日
- 86. ちなみに ? 中の人がTokyoRで発表して下さいました！ http://www.slideshare.net/hiratake55/ seekrjp-22281554 13年11月9日土曜日
- 88. Rコミュニティ発表資料 ? Tokyo.R, Nagoya.R, Tukuba.Rのアーカイブ http://lab.sakaue.info/wiki.cgi/JapanR2010?page=FrontPage 「勉強会発表内容一覧」のリンクから 13年11月9日土曜日
- 91. CRAN Task Viws ? Rには2000以上パッケージがある ? 用途別におすすめパッケージを紹介 http://cran.r-project.org/web/views/ 13年11月9日土曜日
- 93. まとめ ? Rは無料の統計解析ソフト ? データ解析からレポートまで利用可能 ? Web上の資料も充実 13年11月9日土曜日
- 94. まとめ ? Rは無料の統計解析ソフト ? データ解析からレポートまで利用可能 ? Web上の資料も充実 是非使ってみましょう！ 13年11月9日土曜日
- 96. 質疑応答 13年11月9日土曜日
- 97. 予備資料 13年11月9日土曜日
- 102. Tips 13年11月9日土曜日
- 103. CSV 関数 補足：クリップボード #windowsの場合 >hawks <- read.table("clipboard", header=TRUE,sep=’,’); #macの場合 >hawks <- read.table(pipe("pbpaste"), header=TRUE,sep=’,’) > hawks height salary クリップボードからも 1 173 17000 読み込み可能 2 178 14000 3 180 9000 13年11月9日土曜日
- 104. CSV 関数 補足2：関数調べ方 > ?read.table > ??read.table >help(read.table) ヘルプを 呼び出すことが 出来る 13年11月9日土曜日
- 105. CSV 関数 補足2：関数調べ方 > ?read.table > ??read.table >help(read.table) 後半には 用例もあるので 参考に 13年11月9日土曜日