「統計学関連なんでもあり」の過去ログ--- 048

No.22951　青木先生の主座標分析plot関数について（２）　　【明石】　2020/09/03(Thu) 13:17

青木先生　様；

お忙しいところを失礼いたします，明石と申します。
昨日は，ラベル付き散布図について，有り難いご教示をいただきました。
誠にありがとうございました。

追加の質問がございます。
何卒どうぞよろしくお願いします。

---------------------------------

http://aoki2.si.gunma-u.ac.jp/R/princo.html

irisデータで，plotメソッドのグラフ表示の説明がされています。

> a <- similarity.matrix(iris[1:4]) # 類似度行列を作る
> b <- princo(a)
> plot(b, labels=TRUE, col=(1:3)[as.integer(iris[,5])])

3行目について，ご質問です・

col=as.integer(iris[,5])でも良いように思えますが，
col=(1:3)[as.integer(iris[,5])]と書かれている理由についてご教示いただければ
大変に勉強になります。

お手数をおかけいたします。
どうぞよろしくお願いいたします。
//

No.22952　Re: 青木先生の主座標分析plot関数について（２）　　【青木繁伸】　2020/09/03(Thu) 16:59

col=(1:3)[as.integer(iris[,5]) は冗長ですが，色を1:3 ではないものにしたいとき，
col=c(1, 2, 4)[as.integer(iris[,5]) や，もっとわかりやすく
col=c('black', 'blue', 'brown')[as.integer(iris[,5])] などと出来ますという例のつもりだったようです。

No.22953　御礼（Re: 青木先生の主座標分析plot関数について（２））　　【明石】　2020/09/03(Thu) 17:46

青木先生　様；

お忙しいところを失礼いたします，明石と申します。
大変に勉強になりました。

さっそく活用させていただきます。

勇気を振り絞って，お聞きしてよかったです。
ありがとうございました。
//