なるほど機能
をテンプレートにして作成
[
トップ
] [
新規
|
一覧
|
検索
|
最終更新
|
ヘルプ
]
開始行:
COLOR(magenta){SIZE(20){なるほど機能}}
// 間瀬(2004.3.24--)
~
~
「COLOR(blue){こんな機能があればいいな}」と思うことが時々...
~
-COLOR(blue){R 関連のドキュメントからの全文検索} 困った時...
//
~
-COLOR(blue){オブジェクトに注釈用のコメントを加える} COLO...
//
~
-COLOR(blue){一画面に収まらない長いオブジェクトを pager ...
//
~
-COLOR(blue){(複雑な)オブジェクトを後から再現できるように...
//
~
-COLOR(blue){関数オンラインヘルプを dvi (ps) 形式で得る} ...
//
~
-COLOR(blue){example 関数等で複数のグラフィックスが瞬時に...
次のグラフィックス表示前に確認を求めるのでゆっくり眺めら...
//
~
-COLOR(blue){使えそうな関数を見つける} COLOR(red){help.se...
ただし適切なキーワードを思いつくにはそれなりの経験が必要...
//
-COLOR(blue){シミュレーション等で同じ操作を何度も繰り返す...
//
-COLOR(blue){関数から複数の（一般にタイプの異なる）値を返...
//
-COLOR(blue){変数への付値とその値の表示を一度に行なう} 付...
//
-COLOR(blue){オブジェクトの内容を簡潔に整形して表示} COLO...
//
-COLOR(blue){データフレームの成分を一時的に展開した環境中...
具体的には attach(データフレーム); 成分名を使った操作; de...
//
-COLOR(blue){複数回の同一操作の結果を一括してリスト、ベク...
//
-COLOR(blue){関数を返す関数} 関数Tips を参照。同一関数の...
//
-COLOR(blue){二者択一選択} COLOR(red){ifelse()} 関数
条件式の真偽に応じて異なる値を返すことができ、if (..) ......
//
-COLOR(blue){サマリー機能} COLOR(red){summary()}
多くの R の統計処理関数の結果は summary() 関数で結果の簡...
//
-COLOR(blue){プロット機能} COLOR(red){plot()}
多くの R の統計処理関数の結果は plot() 関数でグラフィック...
//
-COLOR(blue){文字列と(数値)変数を結合して文字列を得る} CO...
関数は文字列と、数値オブジェクトを文字列化したものを結合...
//
-COLOR(blue){プログラムの実行時間を計る} COLOR(red){syste...
//
-COLOR(blue){プログラムの実行を指定秒数中断} COLOR(red){S...
//
-COLOR(blue){プログラムの実行中にコンソールから行入力} CO...
プログラムの実行を一時中断するのにも使える。
//
-COLOR(blue){メニュー方式で選択分岐} COLOR(red){menu()}関数
//
-COLOR(blue){プログラムのデバッグ} COLOR(red){browser()},...
//
-COLOR(blue){プログラムの実行速度のボトルネックの発見} CO...
//
-COLOR(blue){関数オプションの入力省略}
各関数のオプション COLOR(red){option=value} は一意的に決...
//
-COLOR(blue){論理値 TRUE, FALSE の省略記法}
論理値 COLOR(red){TRUE}, COLOR(red){FALSE} はCOLOR(blue){...
//
-COLOR(blue){ベクトル、行列、配列の特定の成分の添字を得る...
//
-COLOR(blue){安全な完全一致判断} COLOR(red){identical()}
二つの R オブジェクトが完全に一致するかどうかを検査する安...
//
-COLOR(blue){すべて該当するか？} COLOR(red){all()}
//
-COLOR(blue){ほとんど該当するか？} COLOR(red){all.equal()}
二つの R オブジェクトが「殆んど等しいか」どうかをチェック...
//
-COLOR(blue){階乗 n! を計算する} COLOR(red){gamma(n+1)}
引数の COLOR(red){+1} を忘れない。その対数値は COLOR(red)...
//
-COLOR(blue){二項係数 nCk を計算する} COLOR(red){choose(n...
//
-COLOR(blue){数列の部分和・積、そして部分最大・最小値から...
//
-COLOR(blue){ベクトルの最大・小要素の位置を求める} COLOR(...
//
-COLOR(blue){行列の各列毎の最大要素の位置を求める} COLOR(...
//
-COLOR(blue){ベクトルの要素の一意化} COLOR(red){unique()}
//
-COLOR(blue){ベクトルの要素のソート} COLOR(red){sort()}
オプションで逆順ソートも可能
//
-COLOR(blue){ベクトルの要素を逆順に並べ変える} COLOR(red)...
//
-COLOR(blue){C の sprintf 風の整形付き出力} COLOR(red){sp...
//
-COLOR(blue){条件(群)がすべて真でなければストップ} COLOR(...
//
-COLOR(blue){データフレームの成分を名前だけで引用できるよ...
不要になれば COLOR(red){detach(...)} で消去する。
//
-COLOR(blue){データフレームの成分を展開した一時的環境中で...
一々 attach(...), detach(...) しなくても成分名で操作できる
//
-COLOR(blue){ベクトルに対する集合演算} COLOR(red){union(x...
//
-COLOR(blue){表示される有効桁数を変える。} COLOR(red){opt...
内部演算桁数は変更されず。最大22桁まで指定できるが、意味...
//
-COLOR(blue){日時、時間を得る} COLOR(red){date()}
//
-COLOR(blue){機械固有定数のリストを得る} COLOR(red){.Mach...
//
-COLOR(blue){組み込み定数} COLOR(red){LETTERS}, COLOR(red...
大文字アルファベット、小文字アルファベット、
COLOR(red){month.abb} 英字月名(3文字省略)、
COLOR(red){month.name} 英字月名(フル)
//
-COLOR(blue){ファイルに書き出す} COLOR(red){write}、COLOR...
//
-COLOR(blue){ファイルから読み込む} COLOR(red){scan}、COLO...
//
-COLOR(blue){C 風演算子 +=, -=, *=, /= を R で実現}
[[二項演算子定義の例]] 参照
//
-COLOR(blue){不特定多数の引数を関数に渡す}
特殊な引数 COLOR(red){...}。各引数はそれぞれ COLOR(red){....
//
-COLOR(blue){オブジェクト名を与えてその値を得る} COLOR(re...
//
-COLOR(blue){一つのケースについて(数値、文字列等が混在し...
実際データフレームは多くの R/S の統計関数の基本的なデータ...
//
-COLOR(blue){関数の名前つき引数の既定省略値}
関数 f に対する名前つき引数には指定省略時の既定値を与える...
例 COLOR(red){f(x, foo="bar")}, COLOR(red){digitsBase(x,...
//
-COLOR(blue){名前つき引数の名前の一部省略}
名前つき引数に値を指定する際、引数名は一意的に決定される...
例 digitsBase(x, base = 2, ndigits = 1 + floor(log(max(x...
digitsBase(10, b=16), digitsBase(10, b=8, n=5)
//
-COLOR(blue){複数行の一括コメント化}
複数の行を COLOR(red){if(0){ 複数の行 } } と囲めばコメン...
-COLOR(blue){繰返し} while(論理値を返す表現){ コード }
//
-COLOR(blue){行列の行・列和を加える関数(R 1.9 の新機能)}
> x <-matrix(1:4, nc=2)
> addmargins(x)
[,1] [,2] [,3]
[1,] 1 3 4
[2,] 2 4 6
[3,] 3 7 10
//
-COLOR(blue){パッケージ中のオブジェクトの一覧} COLOR(red)...
"stats" パッケージ中のオブジェクトの一覧
//
-COLOR(blue){パッケージ中の組み込みデータオブジェクトの一...
"stats" パッケージ中の組み込みデータオブジェクトの一覧
//
-COLOR(blue){複雑なオブジェクトに含まれる項目数を得る}
COLOR(red){unlist()} 関数
リストや、ベクトル、行列をベクトル化する。R の関数の返り...
> x = list(rnorm(10), "abc", matrix(1:16,4,4)) # 複雑な...
> length(unlist(x))
[1] 27 # 総計27項目(大雑把に8倍すれば対応メモリ量が見...
//
-COLOR(blue){オブジェクトのベクトル化}
COLOR(red){c()}
時系列、データフレームをベクトル化するのに使える
//
-COLOR(blue){メモリーの利用状況の表示}
COLOR(red){gc}, COLOR(red){gcinfo}
//
-COLOR(blue){総称的関数、クラス用のメソッドの一覧を得る}
COLOR(red){methods()}
> methods(plot) # 総称的関数 plot() に対す...
[1] plot.HoltWinters* plot.POSIXct plot.POSIXlt
[4] plot.TukeyHSD plot.acf* plot.data.frame
(途中省略)
[28] plot.table plot.ts plot.tskernel*
Non-visible functions are asterisked
> methods(class = "lm") # クラス "lm" のオブジェク...
//
-COLOR(blue){関数中からのオブジェクトのコンソールへの強制...
COLOR(red){print()}
関数中からの出力は最後のものを除き原則出力されない。もし...
test <- function (x) {
print(x) # 引数の値を強制的に出力
return(x^2) # 最後の値は(変数に付値されない...
}
> test(2)
[1] 2
[1] 4
//
-COLOR(blue){R のさまざまな機能のデモ}
COLOR(red){demo(), demo(テーマ)}
R は様々な機能についてまとめて紹介するためのデモ機能を持...
//
-COLOR(blue){構文を表す文字列を命令として解釈実行}
COLOR(red){eval(parse(text="..."))} は R の適正な構文を表...
## paste 関数を使って "temp20=-13" という文字列を作って...
> k=-13; j=20; eval(parse(text=paste("temp",j,"=",k,sep=...
> temp20
[1] -13
## プログラム中で機械的に新しい変数を作るのにも使えます。
> for(i in 1:5) eval(parse(text=paste("temp",i," <- ", r...
> c(temp1, temp2, temp3, temp4, temp5)
[1] 0.6150512 0.4978222 0.2924681 0.4796008 0.4626195
//
-COLOR(blue){棒グラフを縦に（横隣に）並べる}
barplot() 関数の COLOR(red){beside} 引数
//
-COLOR(blue){棒グラフの隣り合う棒の間のすき間調整を}
barplot() 関数の COLOR(red){space} 引数。負の値を与えると...
space は長さ 2 のベクトルを値にとることができ、棒グループ...
//
-COLOR(blue){コンソールへの出力の抑制} (2004.09.18)
COLOR(red){invisible()} 関数は変数へ付値するのでなければ...
> x <- matrix(1:2^3, c(2,2,2))
> apply(x, 2, print)
[1] 1 2 # 以下４行は print 関数...
[1] 3 4
[1] 5 6
[1] 7 8
[,1] [,2] [,3] [,4] # 以下は apply 関数の既...
[1,] 1 3 5 7
[2,] 2 4 6 8
> invisible(apply(x, 2, print)) # 必要な出力だけにする
[1] 1 2
[1] 3 4
[1] 5 6
[1] 7 8
# 参考：変数に付値すると apply 関数の既定出力が取り出せる
> y <- invisible(apply(x, 2, print))
[1] 1 2
[1] 3 4
[1] 5 6
[1] 7 8
> y
[,1] [,2] [,3] [,4]
[1,] 1 3 5 7
[2,] 2 4 6 8
//
-COLOR(blue){先頭、末尾数行の出力} (2004.09.18)
COLOR(red){head(x, n=6)}, COLOR(red){tail(x, n=6)} はベク...
//
-COLOR(blue){長たらしいリスト等を簡潔に表示 (2004.10.25)}
> x=list(rep(1,5), matrix(runif(8),4,2), LETTERS[1:6])
> x
[[1]]
[1] 1 1 1 1 1
[[2]]
[,1] [,2]
[1,] 0.48470060224644840 0.83881441224366426
[2,] 0.39877605694346130 0.51671746163628995
[3,] 0.64727503922767937 0.20069422083906829
[4,] 0.92800087924115360 0.14544645673595369
[[3]]
[1] "A" "B" "C" "D" "E" "F"
> noquote(unlist(format(x)))
[1] 1, 1, 1, 1, 1
[2] 0.48470060224644840, 0.39877605694346130, 0.64727503...
0.83881441224366426, 0.51671746163628995, 0.20069422...
[3] A, B, C, D, E, F
c.f.
> noquote("jkflds")
[1] jkflds
> print("jkljkljkL", quote=F)
[1] jkljkljkL
//
-COLOR(blue){一連の入力コマンド履歴をファイルに保存する}...
R の終了時に save オプションを指定すると現在の入力履歴は...
COLOR(red){savehistory("入力コマンド履歴保存ファイル名"} ...
//
-COLOR(blue){ファイル名に作成時の日付や変数名を付け加える...
データや画像ファイルを系統的に作成するのに使える
> res <- 12; i <- 5
> paste(substitute(res), ".", gsub(" ", "-", date()),"."...
[1] "res.Tue-Nov-16-19:27:01-2004.5.png"
# 画像ファイルに作成日時等を含める
png(filename=paste(substitute(res), ".",
gsub(" ", "-", date()),".",i,".png",sep=""), width=2...
//
-COLOR(blue){文字列の先頭、末尾、そして途中の引き続く空白...
>x <- c("a b ", "dfhskf ", "FGF", "IUOI UOUO UOUO ")
> sub(" *$", "", x)
[1] "a b" "dfhskf" "FGF" "...
//
-COLOR(blue){データフレームの小計計算}
COLOR(red){aggregate(集計列,基準列,演算内容)}で基準列ごと...
>n<- c(3,4,1,9,6,9,6)
>m<- length(n)
>class <- rep(letters[1:m],n)
>grade <- sample(6,sum(n),rep=T)
>sansu <- sample(100,sum(n),rep=T)
>kokugo <- sample(100,sum(n),rep=T)
>aggregate(list(sansu=sansu,kokugo=kokugo),list(grade=gr...
//
-COLOR(blue){}
COLOR(red){}
//
-COLOR(blue){}
COLOR(red){}
終了行:
COLOR(magenta){SIZE(20){なるほど機能}}
// 間瀬(2004.3.24--)
~
~
「COLOR(blue){こんな機能があればいいな}」と思うことが時々...
~
-COLOR(blue){R 関連のドキュメントからの全文検索} 困った時...
//
~
-COLOR(blue){オブジェクトに注釈用のコメントを加える} COLO...
//
~
-COLOR(blue){一画面に収まらない長いオブジェクトを pager ...
//
~
-COLOR(blue){(複雑な)オブジェクトを後から再現できるように...
//
~
-COLOR(blue){関数オンラインヘルプを dvi (ps) 形式で得る} ...
//
~
-COLOR(blue){example 関数等で複数のグラフィックスが瞬時に...
次のグラフィックス表示前に確認を求めるのでゆっくり眺めら...
//
~
-COLOR(blue){使えそうな関数を見つける} COLOR(red){help.se...
ただし適切なキーワードを思いつくにはそれなりの経験が必要...
//
-COLOR(blue){シミュレーション等で同じ操作を何度も繰り返す...
//
-COLOR(blue){関数から複数の（一般にタイプの異なる）値を返...
//
-COLOR(blue){変数への付値とその値の表示を一度に行なう} 付...
//
-COLOR(blue){オブジェクトの内容を簡潔に整形して表示} COLO...
//
-COLOR(blue){データフレームの成分を一時的に展開した環境中...
具体的には attach(データフレーム); 成分名を使った操作; de...
//
-COLOR(blue){複数回の同一操作の結果を一括してリスト、ベク...
//
-COLOR(blue){関数を返す関数} 関数Tips を参照。同一関数の...
//
-COLOR(blue){二者択一選択} COLOR(red){ifelse()} 関数
条件式の真偽に応じて異なる値を返すことができ、if (..) ......
//
-COLOR(blue){サマリー機能} COLOR(red){summary()}
多くの R の統計処理関数の結果は summary() 関数で結果の簡...
//
-COLOR(blue){プロット機能} COLOR(red){plot()}
多くの R の統計処理関数の結果は plot() 関数でグラフィック...
//
-COLOR(blue){文字列と(数値)変数を結合して文字列を得る} CO...
関数は文字列と、数値オブジェクトを文字列化したものを結合...
//
-COLOR(blue){プログラムの実行時間を計る} COLOR(red){syste...
//
-COLOR(blue){プログラムの実行を指定秒数中断} COLOR(red){S...
//
-COLOR(blue){プログラムの実行中にコンソールから行入力} CO...
プログラムの実行を一時中断するのにも使える。
//
-COLOR(blue){メニュー方式で選択分岐} COLOR(red){menu()}関数
//
-COLOR(blue){プログラムのデバッグ} COLOR(red){browser()},...
//
-COLOR(blue){プログラムの実行速度のボトルネックの発見} CO...
//
-COLOR(blue){関数オプションの入力省略}
各関数のオプション COLOR(red){option=value} は一意的に決...
//
-COLOR(blue){論理値 TRUE, FALSE の省略記法}
論理値 COLOR(red){TRUE}, COLOR(red){FALSE} はCOLOR(blue){...
//
-COLOR(blue){ベクトル、行列、配列の特定の成分の添字を得る...
//
-COLOR(blue){安全な完全一致判断} COLOR(red){identical()}
二つの R オブジェクトが完全に一致するかどうかを検査する安...
//
-COLOR(blue){すべて該当するか？} COLOR(red){all()}
//
-COLOR(blue){ほとんど該当するか？} COLOR(red){all.equal()}
二つの R オブジェクトが「殆んど等しいか」どうかをチェック...
//
-COLOR(blue){階乗 n! を計算する} COLOR(red){gamma(n+1)}
引数の COLOR(red){+1} を忘れない。その対数値は COLOR(red)...
//
-COLOR(blue){二項係数 nCk を計算する} COLOR(red){choose(n...
//
-COLOR(blue){数列の部分和・積、そして部分最大・最小値から...
//
-COLOR(blue){ベクトルの最大・小要素の位置を求める} COLOR(...
//
-COLOR(blue){行列の各列毎の最大要素の位置を求める} COLOR(...
//
-COLOR(blue){ベクトルの要素の一意化} COLOR(red){unique()}
//
-COLOR(blue){ベクトルの要素のソート} COLOR(red){sort()}
オプションで逆順ソートも可能
//
-COLOR(blue){ベクトルの要素を逆順に並べ変える} COLOR(red)...
//
-COLOR(blue){C の sprintf 風の整形付き出力} COLOR(red){sp...
//
-COLOR(blue){条件(群)がすべて真でなければストップ} COLOR(...
//
-COLOR(blue){データフレームの成分を名前だけで引用できるよ...
不要になれば COLOR(red){detach(...)} で消去する。
//
-COLOR(blue){データフレームの成分を展開した一時的環境中で...
一々 attach(...), detach(...) しなくても成分名で操作できる
//
-COLOR(blue){ベクトルに対する集合演算} COLOR(red){union(x...
//
-COLOR(blue){表示される有効桁数を変える。} COLOR(red){opt...
内部演算桁数は変更されず。最大22桁まで指定できるが、意味...
//
-COLOR(blue){日時、時間を得る} COLOR(red){date()}
//
-COLOR(blue){機械固有定数のリストを得る} COLOR(red){.Mach...
//
-COLOR(blue){組み込み定数} COLOR(red){LETTERS}, COLOR(red...
大文字アルファベット、小文字アルファベット、
COLOR(red){month.abb} 英字月名(3文字省略)、
COLOR(red){month.name} 英字月名(フル)
//
-COLOR(blue){ファイルに書き出す} COLOR(red){write}、COLOR...
//
-COLOR(blue){ファイルから読み込む} COLOR(red){scan}、COLO...
//
-COLOR(blue){C 風演算子 +=, -=, *=, /= を R で実現}
[[二項演算子定義の例]] 参照
//
-COLOR(blue){不特定多数の引数を関数に渡す}
特殊な引数 COLOR(red){...}。各引数はそれぞれ COLOR(red){....
//
-COLOR(blue){オブジェクト名を与えてその値を得る} COLOR(re...
//
-COLOR(blue){一つのケースについて(数値、文字列等が混在し...
実際データフレームは多くの R/S の統計関数の基本的なデータ...
//
-COLOR(blue){関数の名前つき引数の既定省略値}
関数 f に対する名前つき引数には指定省略時の既定値を与える...
例 COLOR(red){f(x, foo="bar")}, COLOR(red){digitsBase(x,...
//
-COLOR(blue){名前つき引数の名前の一部省略}
名前つき引数に値を指定する際、引数名は一意的に決定される...
例 digitsBase(x, base = 2, ndigits = 1 + floor(log(max(x...
digitsBase(10, b=16), digitsBase(10, b=8, n=5)
//
-COLOR(blue){複数行の一括コメント化}
複数の行を COLOR(red){if(0){ 複数の行 } } と囲めばコメン...
-COLOR(blue){繰返し} while(論理値を返す表現){ コード }
//
-COLOR(blue){行列の行・列和を加える関数(R 1.9 の新機能)}
> x <-matrix(1:4, nc=2)
> addmargins(x)
[,1] [,2] [,3]
[1,] 1 3 4
[2,] 2 4 6
[3,] 3 7 10
//
-COLOR(blue){パッケージ中のオブジェクトの一覧} COLOR(red)...
"stats" パッケージ中のオブジェクトの一覧
//
-COLOR(blue){パッケージ中の組み込みデータオブジェクトの一...
"stats" パッケージ中の組み込みデータオブジェクトの一覧
//
-COLOR(blue){複雑なオブジェクトに含まれる項目数を得る}
COLOR(red){unlist()} 関数
リストや、ベクトル、行列をベクトル化する。R の関数の返り...
> x = list(rnorm(10), "abc", matrix(1:16,4,4)) # 複雑な...
> length(unlist(x))
[1] 27 # 総計27項目(大雑把に8倍すれば対応メモリ量が見...
//
-COLOR(blue){オブジェクトのベクトル化}
COLOR(red){c()}
時系列、データフレームをベクトル化するのに使える
//
-COLOR(blue){メモリーの利用状況の表示}
COLOR(red){gc}, COLOR(red){gcinfo}
//
-COLOR(blue){総称的関数、クラス用のメソッドの一覧を得る}
COLOR(red){methods()}
> methods(plot) # 総称的関数 plot() に対す...
[1] plot.HoltWinters* plot.POSIXct plot.POSIXlt
[4] plot.TukeyHSD plot.acf* plot.data.frame
(途中省略)
[28] plot.table plot.ts plot.tskernel*
Non-visible functions are asterisked
> methods(class = "lm") # クラス "lm" のオブジェク...
//
-COLOR(blue){関数中からのオブジェクトのコンソールへの強制...
COLOR(red){print()}
関数中からの出力は最後のものを除き原則出力されない。もし...
test <- function (x) {
print(x) # 引数の値を強制的に出力
return(x^2) # 最後の値は(変数に付値されない...
}
> test(2)
[1] 2
[1] 4
//
-COLOR(blue){R のさまざまな機能のデモ}
COLOR(red){demo(), demo(テーマ)}
R は様々な機能についてまとめて紹介するためのデモ機能を持...
//
-COLOR(blue){構文を表す文字列を命令として解釈実行}
COLOR(red){eval(parse(text="..."))} は R の適正な構文を表...
## paste 関数を使って "temp20=-13" という文字列を作って...
> k=-13; j=20; eval(parse(text=paste("temp",j,"=",k,sep=...
> temp20
[1] -13
## プログラム中で機械的に新しい変数を作るのにも使えます。
> for(i in 1:5) eval(parse(text=paste("temp",i," <- ", r...
> c(temp1, temp2, temp3, temp4, temp5)
[1] 0.6150512 0.4978222 0.2924681 0.4796008 0.4626195
//
-COLOR(blue){棒グラフを縦に（横隣に）並べる}
barplot() 関数の COLOR(red){beside} 引数
//
-COLOR(blue){棒グラフの隣り合う棒の間のすき間調整を}
barplot() 関数の COLOR(red){space} 引数。負の値を与えると...
space は長さ 2 のベクトルを値にとることができ、棒グループ...
//
-COLOR(blue){コンソールへの出力の抑制} (2004.09.18)
COLOR(red){invisible()} 関数は変数へ付値するのでなければ...
> x <- matrix(1:2^3, c(2,2,2))
> apply(x, 2, print)
[1] 1 2 # 以下４行は print 関数...
[1] 3 4
[1] 5 6
[1] 7 8
[,1] [,2] [,3] [,4] # 以下は apply 関数の既...
[1,] 1 3 5 7
[2,] 2 4 6 8
> invisible(apply(x, 2, print)) # 必要な出力だけにする
[1] 1 2
[1] 3 4
[1] 5 6
[1] 7 8
# 参考：変数に付値すると apply 関数の既定出力が取り出せる
> y <- invisible(apply(x, 2, print))
[1] 1 2
[1] 3 4
[1] 5 6
[1] 7 8
> y
[,1] [,2] [,3] [,4]
[1,] 1 3 5 7
[2,] 2 4 6 8
//
-COLOR(blue){先頭、末尾数行の出力} (2004.09.18)
COLOR(red){head(x, n=6)}, COLOR(red){tail(x, n=6)} はベク...
//
-COLOR(blue){長たらしいリスト等を簡潔に表示 (2004.10.25)}
> x=list(rep(1,5), matrix(runif(8),4,2), LETTERS[1:6])
> x
[[1]]
[1] 1 1 1 1 1
[[2]]
[,1] [,2]
[1,] 0.48470060224644840 0.83881441224366426
[2,] 0.39877605694346130 0.51671746163628995
[3,] 0.64727503922767937 0.20069422083906829
[4,] 0.92800087924115360 0.14544645673595369
[[3]]
[1] "A" "B" "C" "D" "E" "F"
> noquote(unlist(format(x)))
[1] 1, 1, 1, 1, 1
[2] 0.48470060224644840, 0.39877605694346130, 0.64727503...
0.83881441224366426, 0.51671746163628995, 0.20069422...
[3] A, B, C, D, E, F
c.f.
> noquote("jkflds")
[1] jkflds
> print("jkljkljkL", quote=F)
[1] jkljkljkL
//
-COLOR(blue){一連の入力コマンド履歴をファイルに保存する}...
R の終了時に save オプションを指定すると現在の入力履歴は...
COLOR(red){savehistory("入力コマンド履歴保存ファイル名"} ...
//
-COLOR(blue){ファイル名に作成時の日付や変数名を付け加える...
データや画像ファイルを系統的に作成するのに使える
> res <- 12; i <- 5
> paste(substitute(res), ".", gsub(" ", "-", date()),"."...
[1] "res.Tue-Nov-16-19:27:01-2004.5.png"
# 画像ファイルに作成日時等を含める
png(filename=paste(substitute(res), ".",
gsub(" ", "-", date()),".",i,".png",sep=""), width=2...
//
-COLOR(blue){文字列の先頭、末尾、そして途中の引き続く空白...
>x <- c("a b ", "dfhskf ", "FGF", "IUOI UOUO UOUO ")
> sub(" *$", "", x)
[1] "a b" "dfhskf" "FGF" "...
//
-COLOR(blue){データフレームの小計計算}
COLOR(red){aggregate(集計列,基準列,演算内容)}で基準列ごと...
>n<- c(3,4,1,9,6,9,6)
>m<- length(n)
>class <- rep(letters[1:m],n)
>grade <- sample(6,sum(n),rep=T)
>sansu <- sample(100,sum(n),rep=T)
>kokugo <- sample(100,sum(n),rep=T)
>aggregate(list(sansu=sansu,kokugo=kokugo),list(grade=gr...
//
-COLOR(blue){}
COLOR(red){}
//
-COLOR(blue){}
COLOR(red){}
ページ名:
![[RjpWiki]](image/../Rlogo.png "[RjpWiki]")
