• 検索結果がありません。

表データの操作 統計ソフトRの使い方

N/A
N/A
Protected

Academic year: 2017

シェア "表データの操作 統計ソフトRの使い方"

Copied!
7
0
0

読み込み中.... (全文を見る)

全文

(1)

8章 . 表 操作

込 , 表 い .ほ 計算 表 一部

け 取 出 使うこ .

う ,表 列& 1列' 取 出 ,表 行& コ1列' 取 出 , 計算 使

い .例えば, べ 被験者 齢 均 分散 調べ い ば, 齢 い 列

取 出 . ,あ 一人 被験者 い 全 欲 け ば, 被験者

行 取 出 .

確認

,行& コ1列' 列& 1列' 前 い い . 見

> data = read.csv( demodata.csv )

> rownames(data) # row=行'

> colnames(data) # column=列'

.列 込 際 , ッ &表 1番 行 こ ' 指定さ

,行 込 際 ン 指定 け ば, 順 1, 2, 3, 順番

数 割 当 .

(2)

込 際 ,行 指定 け ば, 例えば,

>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])

(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

(4)

例えば,性別sex 身長ht 2列 取 出 述 (1) $ 使 方法 使え ,(2’’) 変数sexage 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番目 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

(5)

こ ,表 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

(6)

以 , 条件 当 列 決 &今 場合 身長',条件式 作 .

, 条件 当 行 抜 出 [○,△] ○側 条件式 書けば

良い .

[条件式, ] ,条件 あう行 け抜

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 描い い.

(7)

(4) 男性 身長ht,体重wt,収縮期血 sbp,拡張期血 dbp 要約統計量& 標準偏

差, ン 四分位範囲' 求 く さい.

(5) 女性 身長ht,体重wt,収縮期血 sbp,拡張期血 dbp 要約統計量& 標準偏

差, ン 四分位範囲' 求 く さい.

参照

関連したドキュメント

ZoomのHP https://zoom.us にアクセスし、画面右上の「サインアップは無料です」をクリッ

There is a bijection between left cosets of S n in the affine group and certain types of partitions (see Bjorner and Brenti (1996) and Eriksson and Eriksson (1998)).. In B-B,

(The Elliott-Halberstam conjecture does allow one to take B = 2 in (1.39), and therefore leads to small improve- ments in Huxley’s results, which for r ≥ 2 are weaker than the result

“Breuil-M´ezard conjecture and modularity lifting for potentially semistable deformations after

運転時の異常な過渡変化及び設計基準事故時に必要な操作は,中央制御室にて実施可

また、同法第 13 条第 2 項の規定に基づく、本計画は、 「北区一般廃棄物処理基本計画 2020」や「北区食育推進計画」、

○○でございます。私どもはもともと工場協会という形で活動していたのですけれども、要

3R ※7 の中でも特にごみ減量の効果が高い2R(リデュース、リユース)の推進へ施策 の重点化を行った結果、北区の区民1人1日あたりのごみ排出量