if 文 というタイトルのついたページ 例を挙げているのだから，揚げ足取ってもしようがないのだけど，パズルとして 以下のようなものは， > set.seed(123) > x <- sample(9,12,replace=TRUE) > x <- matrix(x,nrow=2,dimnames=list(1:2,letters[1:6])) > for…

変わった散布図 symbol 関数，そして引数 pch について少し にて > x <- cbind("a"=1:5,"b"=5:1,"c"=6:10,"d"=10:6,"e"=sample(10,5)/10) > symbols(x[,1:2],circles=x[,1]/10,inches=FALSE,main="circles")散布図において，半径（直径）が度数を表すように…

棒グラフのいろいろ・その2 にて ここに示されているようなグラフを，ダイナマイトプロットと呼ぶ。描いてはいけないグラフの一つ。 なお，グラフを jpeg デバイスで描くのもどうかと思う。せめて png で描こう。 また，プログラムで，カンマの後に空白がな…

ヒストグラムと箱髭図 にて > truehist関数は総面積が1に基準化されるので、縦軸が異なります。 というのはうそ。freq=FALSE にすれば同じこと。 一番違うのは，hist では right=TRUE がデフォルトになっていて，一般常識と異なる点（事実，リンク先のページ…

image関数でイメージする(R Advent Calenderの番がきた) にて > (x <- matrix(1:12,ncol=3)) [,1] [,2] [,3][1,] 1 5 9[2,] 2 6 10[3,] 3 7 11[4,] 4 8 12> (y <- t(x[nrow(x):1,ncol(x):1])[ncol(x):1,]) [,1] [,2] [,3] [,4][1,] 4 3 2 1[2,] 8 7 6 5[3,] …