8章 . 表 操作
込 , 表 い .ほ 計算 表 一部
け 取 出 使うこ .
う ,表 列& 1列' 取 出 ,表 行& コ1列' 取 出 , 計算 使
い .例えば, べ 被験者 齢 均 分散 調べ い ば, 齢 い 列
取 出 . ,あ 一人 被験者 い 全 欲 け ば, 被験者
行 取 出 .
列 行 前 確認
,行& コ1列' 列& 1列' 前 い い . 見
,
> data = read.csv( demodata.csv )
> rownames(data) # 行 &row=行'
> colnames(data) # 列 &column=列'
.列 込 際 , ッ &表 1番 行 こ ' 指定さ
,行 込 際 ン 指定 け ば, 順 1, 2, 3,… 順番
数 割 当 .
込 際 ,行 指定 け ば, 例えば,
>data1=read.csv(“demodata.csv”, row.names=1)
.row.names=1 指定 こ ,demodata.csv イル 1列目&id' 行
.
&注'ID 1,2,3,… ,行 指定 場合 見え , く見 ID
列 表 消え い こ わ .
列& 1 列' 取 出
大 く3 方法 あ . 入 変数 data ,(1) data$ht 方法,
(2) 変数ht 2列目 あ こ 使 data[ ,3] 方法,(3) data[ ,”ht”] 方法
&変数 ht ” ” け 必要 あ '.
> data = read.csv(“demodata.csv”)
> data$ht
> data[ ,3]
> data[ ,”ht”]
こ 使 , 齢 均 標準偏差 出 ,
> mean(data$ht) # mean(data[ ,”ht”]) mean(data[ ,3])
> sd (data$age) # sd(data[ ,”ht”]) sd(data[ ,3])
.
行& コ 1 列' 取 出
行 取 出 ,列 取 出 方 う (1) 相当 方法 い ,2通 方法 あ
.例えば, 4行目 被験者 取 出 ,(2’) 4行目 あ こ 使 data[4, ] 方法,(3’) 4行目 変数 ”4” (4行目 変数 ”4”
) 使 data[“4”, ] 2 方法 あ .
> data[4, ]
> data[“4”, ]
data[ ,列 ] 列 指定 ,data[行 , ] 行 指定
一人 被験者 全 取 ,計算 こ 通常 &例え
ば, 齢 身長 足 引い 意味 い!', 行 取 出 操作 あ
行い .
複数 列& 行' 取 出
A B C
1
2 data[2, ]
3
4 data[ , B]
5
6
7
8
9
例えば,性別sex 身長ht 2列 取 出 述 (1) $ 使 方法 使え ,(2’’) 変数sex 齢age 2列目 3列目 あ こ 使 data[ , c(2, 3)] 方 法 ,(3’’) 変数 使 data[ ,c(“sex”,”ht”)] 方法 あ .
> data[ ,c(2, 3)]
> data[ ,c(“sex”,”ht”)]
複数 行 取 出 基本的 ,例えば,2番目 4番目 被験者 取 出
,(2’’’) 2列目 4列目 あ こ 使 data[c(2, 4), ] 方法 ,(3’’’) 被験者
”2” ”4” 使 data[c(“2”, “4”), ] 方法 2 あ .&注'ここ 偶然,被験 者 行 ,例えば2番目 4番目 行 ”◯”, “△” ,data[c(“◯”, “△”), ]
.
> data[c(2, 4), ]
> data[c(“2”, “4”), ]
条件 合う行 取 出
い ,列 行 指定 こ ,特定 列 行 抜 取 . ,例え
ば, 身長170cm以 人 抜 出 う ,条件 合う 抜 出 ,統計
計算 う行わ . う ば う ?
明 簡単 ,minidata.csv 使い .こ 10人分 性別 身長
.
> data=read.csv("minidata.csv")
> data
,条件 当 列 特定 こ 始 .身長 場合 ,2列目 身
長”data$ht” 列 .こ 身長 中 170cm以 う ,単 身長>=170
ば良 .
> data$ht>=170
[1] FALSE FALSE FALSE FALSE FALSE TRUE TRUE FALSE TRUE FALSE
こ ,表 6 7 9番目 人 身長170cm以 あ こ わ .
,表 6 7 9番目 人 行 け 抜 出 ,
> data[c(FALSE,FALSE,FALSE,FALSE,FALSE,TRUE,TRUE,FALSE,TRUE,FALSE), ]
sex ht 6 m 172.9 7 m 171.7 9 m 179.4
,TRUE/FALSE 論理式 使 行 絞 込 ば良い .行 選 場合 ,”[○, △]”
○側 指定 式 書くこ 注意 く さい.
以 う TRUE/FALSE 自力 書く 大変 . ,こ 論理式
data$ht>=170 いう条件式 作 . こ ,”[○,△]” ○側 こ 条件式 入
ば,こ 条件 満 行 選ば こ .
> data[data$ht>=170, ]
sex ht 6 m 172.9 7 m 171.7 9 m 179.4
sex ht
f 159.1
f 145.9
f 154.8
f 147.2
f 162.2
m 172.9
m 171.7
m 168.4
m 179.4
m 165.8
以 , 条件 当 列 決 &今 場合 身長',条件式 作 .
, 条件 当 行 抜 出 ” [○,△]” ○側 条件式 書けば
良い .
[条件式, ] ,条件 あう行 け抜 出
Excel い い!
R こ う , 込 自由自 編集&一部 取 出 ,並べ替え '
,Excel 編集 . ,Excel 編集 余計 列 行
挿入 , べ 行&列' わ コ 時間 手間 .一方,R
操作 ほ 一瞬 行 うこ . ,Excel 編集 行 う 元
損 わ いう問題 あ . ,Excel 編集 行 わ
R 行 う う う.
Excel 保 け&編集 い'
課題 1.minidata.csv 使 以 問い 答え く さい.
(1) 身長150cm未満 行 抜 出 式 書い く さい.
(2) 身長150cm以 ,170cm未満 行 抜 出 式 書い く さい. (3) 身長150cm以 ,170cm未満 ,女性 抜 出 式 書い く さい.
課題 2.demodata.csv 使 ,以 問い 答え く さい.
(1) 男性 変数”mdata”, 女性 変数”fdata” う 式 書い く さ い.
(2) 男性 身長ht,体重wt,収縮期血 sbp,拡張期血 dbp ヒ グ 描い く さ い.
(3) 女性 身長ht,体重wt,収縮期血 sbp,拡張期血 dbp ヒ グ 描い く さ い.
(4) 男性 身長ht,体重wt,収縮期血 sbp,拡張期血 dbp 要約統計量& 均 標準偏
差, ン 四分位範囲' 求 く さい.
(5) 女性 身長ht,体重wt,収縮期血 sbp,拡張期血 dbp 要約統計量& 均 標準偏
差, ン 四分位範囲' 求 く さい.