群馬大学 | 医学部 | サイトトップ | 医学情報処理演習

医学情報処理演習:2011年度第2回課題

課題

前回も参照したhttp://phi.med.gunma-u.ac.jp/medstat/sample02.txtは,ソロモン諸島の首都のとある学校で実施した健診結果を,昨年の実習で入力してもらった後にエラーを訂正したタブ区切りテキスト形式データである。

このファイルをインターネットから直接Rのデータフレームxに読み込み,男女別(変数名はSEX,男性はSEX=="M",女性はSEX=="F")に記号を変えて年齢(変数名はAGE)を横軸,収縮期血圧(変数名はSBP)を縦軸にとった散布図を描くコードは以下のように書ける。ただし,変数名を書くべきところを,Box ABox BBox CBox Dとしてある。

x <- read.delim("http://phi.med.gunma-u.ac.jp/medstat/sample02.txt")
plot(Box A ~ Box B, pch=paste(Box C), col=c("red","blue")[as.integer(Box D)], data=x)

Box ABox Dに入る正しい変数名を解答せよ(注:同じ変数名が入る場合もある)。また,できあがった散布図から読み取れることを文章で記せ。さらに,もしあれば感想・要望・質問などとともに下のフォームから送信せよ。学籍番号と氏名の入力を忘れないこと。

(The program listed above is to draw scattergram of systolic blood pressure (SBP) as vertical axis and age (AGE) as horizontal axis, with different symbols for males (SEX=="M") and females (SEX=="F"). Please fill appropriate variable names in Box A, Box B, Box C, and Box D. In addition, please explain what the graph means.)

解答例

項目解答例
Box ASBP
Box BAGE
Box CSEX
Box DSEX
読み取れること(What the graph means)(例)年齢と収縮期血圧の関係は,男女とも年齢が上がるにつれて収縮期血圧が高くなる傾向がある。また,同じ年齢で拡張期血圧を比べると,女性の方が男性よりも低い傾向がある。

参考までに,できるグラフは下記の通り。なお,右の図はpch=オプションを指定しない場合にできる,男女で色だけ塗り分けた図である。

2011年度第2回解答例の図

主なコメントへの回答

Bクラスについて終わりが遅すぎたというコメントを多く頂きました。移動中の学生に配慮し,開始を10分遅らせたので,終了も遅くなってしまいました。ほとんど人がいない状態で始めるのもどうかと思いますし,判断に苦慮するところです。

課題をやる時間が足りなかったというコメントも多かったです。第2回はちょっと内容が多すぎるので申し訳ありませんでした。第3回以降は大丈夫だと思います。


リンクと引用について