Download presentation
Presentation is loading. Please wait.
1
Ｒ：追加問題の解答 新納浩幸
2
問題（１）の解答 df ← read.table(”datafile”,header=T) player HR RBI AVG
C D E F G H I J K L M N O P Q R S T U (問題1) 上記データをファイルに保存して、そのファイルから上記データを data.frame として読み込め。 df ← read.table(”datafile”,header=T)
3
問題（２）の解答 bunseki <- function(df,itm="AVG") {
(問題2) itm は "HR" か "RBI" か "AVG" の値をとるとする。 問題1で作った data.frame と itm を入力し、その 平均 itm 数、最高 itm 数、最低 itm 数、最高 itm 数をもつ選手、 の4組を取り出す関数 bunseki を作成せよ。 ただし itm の入力がない場合は itm="AVG" として処理するようにせよ。 例えば、 itm="HR" なら、 , 50, 0, T の4組を返す。この4組のデータ構造は何でも良い。 bunseki <- function(df,itm="AVG") { ids <- which(df[itm] == max(df[itm])) lt <- list(mean=mean(df[itm]),max=max(df[itm]), min=min(df[itm]),maxplayer=df[ids[1],]["player"]) lt }
4
問題（２）の別解答 多くの人は attach を使っていました。 attach を使うと itm を文字列にしなくてすみます。
bunseki3 <- function(df,itm=AVG) { attach(df); ids <- which(itm == max(itm)) lt <- list(mean=mean(itm),max=max(itm), min=min(itm),maxplayer=player[ids[1]]) lt }
5
which の利用例 > x ← 10:20 > x [1] 10 11 12 13 14 15 16 17 18 19 20
> y ← which(x %% 2 == 0) > y [1] > x[y] [1] >
![which の利用例 > x ← 10:20 > x [1]](http://slidesplayer.net/slide/15891063/88/images/5/which+%E3%81%AE%E5%88%A9%E7%94%A8%E4%BE%8B+%3E+x+%E2%86%90+10%3A20+%3E+x+%5B1%5D.jpg "> y ← which(x %% 2 == 0) > y. [1] > x[y] [1] >")
6
その他 関数はファイル（ bunseki.r ）に書いて、それを ＞ source(”bunseki.r”) ＞
と読み込んで使うのが普通です。
Similar presentations
