フォーラム - neorail.jp

R16

【自由研究】の話題

　→ 茨城県内で必要な「主論文・野帳・掲示物」とは？【詳細】（2017/10/19） NEW!
　→ 【自由研究】の記事一覧（新着順）

【研究ホワイトボックス】

2023年1月の話題
更新：2024/7/24

Googleで関連画像を探す

[4969]

【研究ホワイトボックス】

研究ホワイトボックス（49）とにかく「主成分分析つき回帰木」するには

・「人口集中率」と「人口密度」
・「人口集中地区人口」と「社会経済分類別15歳以上人口」
・「R with Excel」（※Excelでの操作については省略）
・「R with Excel」（続き）
・「R with Excel」（続き）

（約34000字）

　[4968]からのありあまる余波で「R」でございます。

・[4968]
　> 電子音楽（や楽器）をおもしろがっていながら、技術にも技術史にも話はあまり広がらない。技術というものの前に『壁』をつくって「あちら側」みたいな顔をしてしまうのが、いかにも古い時代の文系の人らしい。

　> 「現代音楽」というテーマには「内省的」というイメージもあるので、その「現代音楽」を語るあなたはどこで何を食べるのか（※哲学的な問い）ということである。

・[3401]
　> > GPLVMってぐぐってみると... なるほど、わからん＼(o)／
　> > 一体、何をしているのかくらいは理解したい
　> > PCA（主成分分析）のド発展版に相当する
　> > PCAのお化けのような手法とでもいえばよいのでしょうか。

　> > PCA
　> > Dual PCA
　> > Kernel PCA
　> > Probabilistic PCA このままでは解けない
　> > Probabilistic Dual PCA → GPLVM

　> どこで薄氷を踏み抜いたのか…じゃなくて、さえてる「ガラスのてんじょう」のやぶりかた…でもなくて、どのように化けていったのか丹念に追って『さい終けい態！』のほうなど鮮やかにですね（略）おおー、ここでBGMが変わるぞう。わあぃ『第6章！』ではGPLVMが仲間になりたそうに（もっと略）。

・（再掲）筑摩書房「ちくま」9月号で上野センセイいわく（※リンク先は目次です）
　http://www.chikumashobo.co.jp/blog/pr_chikuma/entry/1373/

　> 「同じか違うか」はYes/Noの二つの値しかとりません。これを二値論理といいます。
　> AI（人工知能）とはこの大脳シナプス連結を模倣したものにほかなりません。どんなに複雑なAIでも、基本は二値論理の膨大な集積回路から成っています。

　現代っ子としてはかなり面食らう物言いなのであるが、これが「重回帰分析」をけちょんけちょんに言うものであったら、まったくその通りだと。つまり上野センセイは「AI（人工知能）」というものを「しょせん重回帰分析のお化けでしょ？」という見方をしたわけだ。…うーん！主成分分析や確率論的アプローチと呼ばれるようなものを（耳学問でなく）自分で納得できるまで使ってみる体験があれば、「AI（人工知能）」について「重回帰分析」みたいな言いかたで言えるなんて、思わなくなるでしょ。（※見解です。）

　こういう感じのことでいう「耳学問でなく自分で納得できるまで使ってみる」という感覚が、「哲学的な問い」じみた言いかたでいえば「あなたは何を食べるのか」（※直訳）になるんですね。（ねちねち）

・[3885]
　> 電気としてもケミカルとしてもスレッショルドというものがあってだなぁ（げふ）どちらともつかない領域を挟んでるとかいうことを概念的でいいから学びませんか。そうですか。（※すごく残念そうな顔で！）

　> 上野センセイの（頭の中の）辞書にも「ファジィ」は載ってなかろう。その時代にそんなことを勉強する余裕があったとは思えない。本当でしょうか。余裕があれば勉強したとでもいうんでしょうか。…ギクッ。

　多変量解析は別のセンセイの仕事で、上野センセイの仕事は仮説を思いつくことと考察をモーレツにねちねちこね上げるところにあるといえば、それまでではある。ちゃんとチームで仕事している限りはまったく問題ない。（棒読み）

・[4014]
　> 「興味がない」ということの、底なしに危ういことよ。

・[4641]
　> ユーザーの「属性」として「都道府県」という47通りの値に着目するということは、47つある都道府県から1名ずつのユーザーが訪れたとき『47人47様！』であると仮定することになる。しかし、そこまでユーザーはばらばらだろうか。

・[3538]
　> 都心からびみょーに離れた（お手ごろながら広くて快適な）家でなんでも済ませようというのが「埼玉・兵庫・岡山タイプ！（通勤快速＆家庭でお好み焼きっ！）」

・[4630]
　> 岡山だからしかたない。

・[4968]
　> だから佐賀県で「トムとジェリー」というわけでもないだろうが…（てんてんてん）。

・総務省統計局「都道府県別人口集中地区人口，面積及び人口密度（エクセル：34KB）」「社会経済分類別15歳以上人口（エクセル：40KB）」
　https://www.stat.go.jp/data/nenkan/back63/02.html
　https://www.stat.go.jp/data/nenkan/back63/zuhyou/y0205000.xls
　https://www.stat.go.jp/data/nenkan/back63/zuhyou/y0211000.xls

■「人口集中率」と「人口密度」

都道府県	人口集中地区人口（率）	全域人口密度	人口集中地区人口密度

北海道	74.0	66	5101
青森	46.0	142	3950
岩手	29.6	87	4679
宮城	59.9	322	5793
秋田	34.2	93	4256
山形	42.4	125	4308
福島	40.0	147	4406
茨城	37.3	486	4570
栃木	44.2	313	4691
群馬	39.9	316	3997
埼玉	79.6	1895	8340
千葉	72.9	1204	7145
東京	98.2	6014	12022
神奈川	94.2	3745	8979
新潟	48.1	188	4894
富山	37.1	257	3864
石川	50.1	279	5478
福井	41.8	193	4308
山梨	32.6	193	4668
長野	34.8	159	4244
岐阜	38.9	195	4523
静岡	59.6	483	5267
愛知	76.8	1435	6179
三重	42.2	320	4200
滋賀	46.7	351	6120
京都	83.0	571	8300
大阪	95.8	4669	9366
兵庫	76.6	666	7415
奈良	64.8	380	6340
和歌山	39.5	213	4347
鳥取	35.3	169	4304
島根	25.0	107	4174
岡山	45.6	273	4368
広島	63.6	338	5983
山口	48.2	237	3317
徳島	31.7	190	4708
香川	32.8	529	4178
愛媛	52.4	252	4872
高知	42.8	107	5871
福岡	70.9	1019	6351
佐賀	29.8	347	4662
長崎	47.1	347	5574
熊本	46.6	245	5440
大分	45.2	189	4713
宮崎	45.9	146	4573
鹿児島	39.9	185	5364
沖縄	66.8	612	7109

■「人口集中地区人口」と「社会経済分類別15歳以上人口」

北海道	4077	41	50	35	27	31	39	171	101	24	16	469	335	486	276	275	83	3.2	294	835	1012
青森	632	8.7	10	12	5.5	8.3	7.8	36	29	4.0	4.0	109	73	145	65	65	22	1.7	75	183	283
岩手	394	11	11	10	5.6	6.8	7.9	39	28	4.8	5.1	111	72	164	55	62	9.8	2.2	71	174	251
宮城	1407	7.6	19	15	11	14	17	68	42	11	8.6	214	157	248	91	105	23	2.0	145	330	387
秋田	371	4.1	8.3	9.1	5.4	5.9	6.5	30	22	3.7	3.0	92	57	135	47	53	9.3	2.1	54	166	227
山形	495	3.2	11	10	6.3	7.5	7.0	33	22	4.2	3.9	101	66	165	44	54	9.3	2.9	61	140	226
福島	811	5.9	16	14	13	13	12	59	39	7.8	6.1	168	108	279	80	89	14	3.5	108	253	377
茨城	1107	11	21	19	20	20	29	92	53	12	7.5	266	156	393	119	124	27	3.6	162	400	479
栃木	888	5.3	15	13	15	14	16	64	38	8.7	5.5	178	111	287	81	95	14	3.2	107	251	322
群馬	802	5.6	16	14	17	13	13	64	38	9.1	5.7	183	111	278	77	95	12	4.6	105	267	326
埼玉	5730	5.4	55	35	50	45	50	240	114	49	19	788	504	778	331	310	64	12	401	1029	940
千葉	4529	9.2	55	28	31	36	51	225	101	44	25	675	427	530	272	279	58	5.7	333	897	862
東京	12917	3.0	158	80	80	83	159	456	181	187	31	1509	887	846	522	630	87	10	690	1723	1580
神奈川	8522	4.4	81	41	50	50	87	419	142	83	23	997	612	781	402	420	77	6.5	481	1340	1182
新潟	1141	7.5	19	17	15	14	14	71	48	10	6.9	211	137	326	103	115	17	6.2	131	306	418
富山	405	2.5	9.6	9.6	7.0	7.3	8.0	39	22	5.2	4.2	105	66	168	44	50	6.9	2.0	53	138	184
石川	586	3.2	9.4	9.6	8.8	8.0	9.2	39	24	6.1	4.0	113	75	147	49	59	9.8	2.5	69	135	188
福井	337	2.3	7.7	7.1	6.7	5.5	5.6	27	19	4.0	2.8	77	46	118	32	38	5.4	2.6	43	94	131
山梨	281	2.2	7.4	7.4	7.3	6.6	5.5	28	19	4.8	2.7	79	48	106	33	45	6.6	1.7	53	110	135
長野	749	11	19	15	17	14	14	73	42	11	6.4	195	122	285	84	112	12	4.6	103	273	338
岐阜	808	5.3	18	17	19	15	13	65	40	11	6.4	196	121	306	85	99	15	7.9	110	268	337
静岡	2243	8.8	32	30	32	27	27	123	67	20	11	343	224	575	168	180	30	12	180	468	576
愛知	5693	11	58	45	56	48	52	247	125	41	17	706	469	1027	314	330	48	20	374	937	985
三重	782	5.6	13	13	13	12	12	53	39	8.6	6.5	169	95	264	80	83	13	4.2	95	253	308
滋賀	659	3.2	9.6	8.3	7.7	8.1	11	46	30	7.4	4.5	129	76	191	57	59	9.9	3.0	84	191	192
京都	2187	2.4	24	23	17	19	30	78	56	20	5.9	239	171	257	109	134	25	6.6	175	374	394
大阪	8492	2.1	76	72	60	59	73	269	139	56	18	841	602	831	360	410	55	12	472	1352	1471
兵庫	4281	5.6	50	41	31	34	51	187	104	35	20	522	346	558	221	248	42	7.5	306	875	913
奈良	907	1.7	13	10	7.9	8.2	14	45	34	8.9	4.6	142	89	118	47	58	10	3.3	91	244	233
和歌山	396	3.6	6.3	12	6.4	7.2	7.2	28	24	3.7	3.0	86	53	99	40	49	7.9	1.8	53	156	193
鳥取	208	2.4	4.8	4.7	2.6	4.1	4.5	19	14	2.6	2.0	54	32	68	25	29	6.1	1.5	32	73	103
島根	179	4.2	5.9	6.4	4.0	4.4	4.5	24	18	3.0	2.8	68	39	82	30	36	5.9	1.2	38	100	129
岡山	887	3.6	15	13	13	12	15	60	39	9.9	5.0	167	110	242	79	84	12	5.8	109	276	322
広島	1820	5.4	24	20	18	18	23	99	58	15	9.2	270	184	324	112	131	30	5.5	153	411	444
山口	699	3.6	11	12	8.1	9.8	11	47	30	6.4	4.8	129	81	175	59	70	16	1.3	72	225	264
徳島	249	2.7	6.1	7.2	5.0	4.9	6.8	26	18	3.2	2.5	63	40	83	32	35	5.4	1.3	43	111	163
香川	326	2.6	8.5	7.3	6.9	6.2	7.1	32	22	5.1	3.6	95	62	111	38	45	7.4	1.6	50	139	179
愛媛	750	5.1	10	13	9.1	8.9	9.1	47	29	6.1	4.0	122	74	155	55	67	8.9	2.5	72	209	274
高知	327	5.9	5.9	8.9	4.4	4.9	5.4	26	18	3.2	3.0	62	41	66	31	40	5.6	0.7	39	99	169
福岡	3598	6.4	41	39	24	31	43	168	91	28	13	455	340	465	200	239	45	4.3	305	696	879
佐賀	253	2.8	5.6	7.1	4.2	5.1	5.6	27	19	3.7	3.4	71	47	96	32	42	7.2	0.8	50	100	158
長崎	672	7.9	10	13	7.1	8.6	10	51	32	5.3	4.4	115	78	139	51	77	20	0.8	81	194	297
熊本	848	7.9	13	14	8.9	10	13	61	39	7.8	5.2	148	101	180	66	93	16	1.6	101	224	354
大分	541	5.3	9.7	10	6.5	7.1	7.7	40	24	4.8	3.4	99	65	129	47	60	9.7	1.2	61	171	227
宮崎	521	9.9	8.1	10	5.6	8.1	7.4	36	25	4.0	3.7	92	59	117	44	55	9.8	1.3	59	141	216
鹿児島	681	12	12	14	8.7	9.8	11	57	36	6.0	4.7	142	90	162	65	88	13	1.8	98	238	345
沖縄	931	3.6	8.5	13	5.4	9.2	7.7	35	30	7.7	3.6	107	63	99	52	69	15	0.5	86	164	247

■「R with Excel」（※Excelでの操作については省略）

ライブラリを読み込みます	library(rpart) library(rpart.plot)
Excelからコピーしたデータを Rに取り込み	mydata22=read.table("clipboard",h=0,row.names=1)
rpartを実行する	myrpart2201 <- rpart(V2~., mydata22, minsplit = 3) # データフレーム「mydata22」のうち、 # V2を目的変数（従属変数）、 # それ以外を説明変数とする回帰です # 変数名を定義していない（ヘッダーがない）場合です # V1は行名になりますので変数はV2からです
rpartの実行結果を rpart.plotでプロットする	rpart.plot(myrpart2201, type = 2, uniform = TRUE, extra = 1, under = 1, faclen = 0) # プロットされた図を右クリックしてコピーや保存をします
RからExcelに rpartによる分割結果の表をコピーする	write.table(myrpart2201$where, file="clipboard", sep="\t")

　https://neorail.jp/forum/uploads/tododo3_rpart.png

4	岩手秋田島根
5	青森山形福島茨城栃木群馬富山福井山梨長野岐阜三重和歌山鳥取岡山山口徳島香川佐賀大分宮崎
8	新潟高知熊本鹿児島
9	宮城石川静岡滋賀広島愛媛長崎
10	北海道
12	埼玉千葉愛知京都兵庫奈良福岡沖縄
13	東京神奈川大阪

　だいたいそうなるんですね。（※ひらがな）

　https://neorail.jp/forum/uploads/todowork21_rpart.png

　こちら「社会経済分類別15歳以上人口」はどうなったかというと「農林漁業者」と「農林漁業雇用者」しか見なくていいですという回帰木ができる。まさに上野センセイおっしゃるところの「大脳シナプス連結を模倣したもの」「基本は二値論理」とはこのことだ。貴重な脳細胞を有意義に無駄遣いしよう。（違）

・いつかどこかで東急電鉄全面協力（違）「固型えのぐ」のイメージは東急ハンズ…デスカ！！（※白目）
　https://pbs.twimg.com/media/DFowlXsWsAQA8LY.png

　緑が好きだから緑だけ使う、といった感じ。混色という概念がない。これはまさに上野センセイの表現する通り「基本は二値論理」そのものである。わけもわからぬまま「重回帰分析」を振り回す人がしているのは、こういう「固型えのぐ」で緑だけ使うようなことなのである。幼児に「好きな色は？」と問いかけて「緑ー」と答えさせて変な暗示をかける。緑という色が嫌いでは生物として生きてゆけぬ。…じゃなくて、好きな色を挙げることと、その色しか使わないことが、なぜか直結してしまう。絵を描くとは、色を好き嫌いで選ぶことではない。ましてや混色もせずに1つの色の絵の具をそのままべたべた塗りたくるものでもない。そこをわかっていないから「重回帰分析」しか使わない（使えない）ということでもある。な・・・なんだってー！！（※白目）

※東急ハンズの見せかたというかこの商品がというか、フタのウラを使って混色するんだよというのがわからん商品である。

・[4622]
　> 「房総半島」は、どこから先を言うのか。「チーバくん」のせいとはいわないけれど、千葉県ぜんぶが房総半島だと思わされていませんか。千葉市は房総半島ですか。…ギクッ。

・[3884]
　> ひらがなで「ちば」と書けば千葉市ではなく千葉県という地方自治体を指す。県土の全体という意味ではなくてね。…なにそれ××い。

・[3886]
　> > 千葉県庁の被害情報などの集約が不十分だったと指摘したうえで、災害に不慣れな自治体で大規模被害が予想される場合、ただちに「内閣府調査チーム」を派遣するとしています。

　> > 災害に不慣れな自治体
　> > 災害に不慣れな自治体

　> そういうことじゃないやいとは思うけれど…（てんてんてん）。人口と県土の面積（※注：それを「県土」という）と山地の険しさなどのバランスが（47都道府県の中で）「外れ値」みたいになってる（＝全県が千葉市内みたいな地勢だと決めつけたみたいな人員配置しかない＝）都道府県は千葉県のほかにはどこかな（※『ミニ北海道』だととらえて「支庁」を置けるようにしないと！）、という見かたを数字を使ってしないといけない。

3	青森岩手宮城秋田山形福島茨城栃木群馬新潟富山石川福井山梨長野岐阜三重滋賀奈良和歌山鳥取島根岡山山口徳島香川愛媛高知佐賀長崎熊本大分宮崎鹿児島沖縄
4	静岡京都広島福岡
6	北海道埼玉千葉愛知兵庫
8	神奈川大阪東京

　それでも東京と神奈川と大阪は、それだけで1つにくくられるのね。（ねちねち）

■「R with Excel」（続き）

主成分分析を実行する	mycmp22 <- prcomp(mydata22, scale=TRUE)
主成分分析の結果のサマリーを表示する	summary(mycmp22) # 各主成分の累積寄与率が表示されます

　> Importance of components%s:
　> PC1 PC2 PC3 PC4 PC5 PC6 PC7 PC8 PC9 PC10 PC11 PC12 PC13 PC14 PC15 PC16 PC17 PC18 PC19 PC20 PC21
　> Standard deviation 4.323 1.06769 0.84908 0.4149 0.36826 0.2292 0.17670 0.13112 0.1209 0.08578 0.07322 0.06152 0.05702 0.04482 0.03759 0.03043 0.02398 0.02316 0.01964 0.01667 0.01059
　> Proportion of Variance 0.890 0.05428 0.03433 0.0082 0.00646 0.0025 0.00149 0.00082 0.0007 0.00035 0.00026 0.00018 0.00015 0.00010 0.00007 0.00004 0.00003 0.00003 0.00002 0.00001 0.00001
　> Cumulative Proportion 0.890 0.94427 0.97860 0.9868 0.99326 0.9958 0.99725 0.99807 0.9988 0.99911 0.99937 0.99955 0.99970 0.99980 0.99987 0.99991 0.99994 0.99996 0.99998 0.99999 1.00000

　わあぃ…（てんてんてん）。ちょっと余裕をとってPC9まで見ようかな（1.0を下回ってすぐのところまで見ようかな）という気持ち。（※あくまで気持ちです。）

データフレームを用意します	mydowo22 <- data.frame(cbind(mydata22[,2], mycmp22$x[,c(1, 2, 3, 4, 5, 6, 7, 8, 9)]))
つつしんでrpartでごんす	myrpartdowo2202 <- rpart(V1~., mydowo22, minsplit = 3) rpart.plot(myrpartdowo2202, type = 2, uniform = TRUE, extra = 1, under = 1, faclen = 0) write.table(myrpartdowo2202$where, file="clipboard", sep="\t")

　https://neorail.jp/forum/uploads/todowork21_cmp_rpart.png

　「PLS回帰」（[3572],[3717],[4221]）の真似事みたいな回帰木（主成分分析をかませたCART法）ができました。本当でしょうか。そしてCART法による総当たりのごりごり（…総当たりのごりごり！ごりごり！ …ごりごりっ！！）の結果（ぎゃふん）、「PC1」なんてのは「V1」そのものだから見なくていい、見るなら「PC2」と「PC7」を見なさいという『御託宣』である。…ハハーっ！（※正座）

　https://p1-e6eeae93.imageflux.jp/c!/f=jpg,w=1200,u=0/cookfan/1485702686fe1e604bf1.jpg
　https://media.istockphoto.com/id/470612294/ja/%E3%82%B9%E3%83%88%E3%83%83%E3%82%AF%E3%83%95%E3%82%A9%E3%83%88/%E8%96%AC%E5%89%A4%E5%B8%AB%E8%96%AC%E3%81%AB%E3%81%99%E3%82%8B%E3%81%99%E3%82%8A%E9%89%A2.jpg?s=1024x1024&w=is&k=20&c=Htuw--KQOV7mAfz-3K8L_roV-68O_BO_2u4k5xMdcC4=
　https://www.daido-kako.com/wp/wp-content/uploads/2021/09/9bac8ec6493857f0b8b0907f636011bc.jpg
　https://www.jiji.com/news/handmade/topic/d4_as/kfj328-jpp12840610.jpg

※一部の画像は白黒です。（※ソコジャナイ。）

4	秋田山形東京神奈川富山石川福井山梨滋賀京都大阪奈良和歌山鳥取島根岡山山口徳島香川佐賀沖縄
5	福島栃木群馬埼玉岐阜三重兵庫広島愛媛高知福岡大分
7	青森宮城千葉新潟静岡長崎熊本
8	岩手茨城長野愛知宮崎鹿児島
9	北海道

　何も考えずに「重回帰分析」というのに匹敵する（と、個人的には思う）「MDS」（[3740],[4548],[4629]）でPC1とPC2の平面しか取り上げない（何も考えない）のに比べて、ここに挙げたような方法は粗雑ではあるけれど「PC2」と「PC7」を見なさいみたいな『御託宣』を引き出せるくらいには、マシな方法である。たぶん。

・「mycmp22$rotation[, c(2, 7)]」

	PC2	PC7

V2	-0.079581266	-0.092484137
V3	0.910888340	0.139103256
V4	-0.065088464	-0.013714780
V5	-0.021371859	-0.055535717
V6	-0.060014748	0.148469126
V7	-0.037104897	-0.009850346
V8	-0.117136335	0.027273701
V9	-0.031876703	0.363463683
V10	0.055648783	-0.003801695
V11	-0.200614193	-0.063096504
V12	0.063604134	0.098658684
V13	-0.067686519	0.048912445
V14	-0.033304720	-0.035992013
V15	0.058806337	0.386366602
V16	0.052487340	-0.040646300
V17	0.006316915	0.059872153
V18	0.258124020	-0.715599357
V19	-0.062074080	-0.312361914
V20	-0.008560642	-0.101855269
V21	0.013012827	0.056191059
V22	0.097388790	0.136812098

　V3つまり「農林漁業雇用者」を大きく見るというのはPC2にも入ってくるけれど、そのほかにPC2ではV18「保安職」とV11「文筆家・芸術家・芸能家」、PC7では同じくV18のほか、V15「技能者」、V9「技術者」、V19「内職者」あたりを同じくらいずつ見ようということです。わあぃこれからは「保安職」と「技能者」「技術者」「内職者」あたりを見ようじゃないか…わあぃこれからは「保安職」と「技能者」「技術者」「内職者」あたりを見ようじゃないかっ！（※真っ赤）あと、同じ数まで気にしておこうかなということではPC2で4番目に絶対値が大きいV8は何かというと「専門職業者」であった。

・「保安職」とは
　https://www.e-stat.go.jp/classifications/terms/20/02/F

　> 国家の防衛、社会・個人・財産の保護、法と秩序の維持などの仕事に従事するものをいう。自衛官・警察官・海上保安官・消防員として任用されていて、医療・教育・事務などのように、他の分類項目に該当する仕事に従事するものも含まれる。

・「技能者」とは
　https://www.e-stat.go.jp/surveyitems/items/251030031

　> 企業、非営利団体・公的機関、大学等で実際に研究関係業務に従事している技能者の数。研究とは、事物、機能、現象などについて新知識を得るために、又は既存の知識の新しい活用の道を開くために行われる創造的な努力及び探求をいい、いわゆる学術的な研究のみならず、製品開発、既存製品の改良及び生産・製造工程の開発や改良に関する活動も含む。技能者とは、研究者及び研究補助者以外の者で、研究者又は研究補助者の指導及び監督の下に研究に付随する専門的な技術サービスを行っている者をいう。実際に研究関係業務に従事している技能者には、他の法人、団体など（以下「法人等」という。）から派遣されている者（労働者派遣法にいう派遣労働者）、在籍出向など、他の法人等に籍がありながら当該法人等に来て働いている者のうち、技能者を含む。他の法人等へ派遣している者（労働者派遣法にいう派遣労働者）、在籍出向など当該法人等に籍がありながら他の法人等で働いている者は除く。技能者の具体例として、検査・測定専門の技師、無菌動物の飼育に従事している者、試験用材料の作成・加工に従事している者などを含む。

・ここでいう「専門職業者」とは
　https://www.stat.go.jp/data/kokusei/2010/users-g/pdf/shakei.pdf#page=2

　> 研究者
　> 保健医療従事者
　> 法務従事者
　> 経営・金融・保険専門職業従事者
　> 教員

　「教員」のうち「小分類」が「50」（※書いてある番号が一致しない資料しか見ていないがたぶん「大学教員」）だけ「専門職業者」のほうに入れる。職業の表面的な形式ではなく立場や役割をよく見ての分類です。

・（再掲）
　http://sk-photo.main.jp/tetsu/2009/0308123/130.jpg
　https://www.mikanmike.com/wp-content/uploads/2011/05/DSC01259.jpg
　https://dhiemueichi.c.blog.ss-blog.jp/_images/blog/_6ee/dhiemueichi/m_IMGP0913_R-59a3f.JPG
　http://chironet.way-nifty.com/.shared/image.html?/photos/uncategorized/2012/07/12/c1205a0524.jpg

　「ミニエコー」みたいな名前の力士がいるでしょ。（違）

　https://ja.wikipedia.org/wiki/%E7%90%B4%E6%81%B5%E5%85%89%E5%85%85%E6%86%B2

　> 趣味は寝ること。

　https://upload.wikimedia.org/wikipedia/commons/0/09/%E4%BC%8A%E8%97%A4%E8%8B%A5%E6%B2%96%E7%AD%86_%E8%91%A1%E8%90%84%E5%8F%8C%E9%B6%8F%E5%9B%B3-Hen_and_Rooster_with_Grapevine_MET_DT10494.jpg

　> 好物はチキン南蛮。
　> 宮崎県出身の関取誕生は草竹以来32年ぶりとなった。

　それはぜったいチキン南蛮が好物にならざるを得ない。（キリッ

・（2018年6月26日）
　https://www.sponichi.co.jp/sports/news/2018/06/26/kiji/20180625s00005000389000c.html

　> 宮崎県出身として金城以来４４年ぶりの新入幕

　ますますチキン南蛮であります。（※謎の実況）

　> しこ名に入る「恵」は（以下略）

　https://tenhama.up.seesaa.net/image/IMG_3310-a58c3.JPG
　https://www.jaf.or.jp/jafnavi/membership/facility/detail/big-echo/img/image04.png

　いかにして「ミニエコー」みたいな音になったのか知りたい。（※恐縮です。）

・[4843]
　> たゆたうシチューうどん。（※詠嘆）

・（1月12日）
　https://www3.nhk.or.jp/lnews/miyazaki/20230112/5060014514.html

　> 日南市では１２日、市内の３つの小学校と２つの中学校の合わせて５校の給食が当初予定されていたパンからごはんに変更されました。

　> 男子児童は「きょうはメニューにシチューがあるのでごはんはちょっと合わないかなと思う。またパンが出るようになってほしいです」と話していました。
　> 一方、女子児童の１人は「私はパンよりもごはんのほうが好きなのでちょっとうれしいです。これからずっとごはんの給食でもいいです」と話していました。
　> このほか、「ごはんもパンも好きなので１か月に３回くらいはパンも出してほしいです」と話す男子児童もいました。

　これがもともとの宮崎発のストレートニュースだったわけですが、後日、全国ニュースになったときには、ラジオとテレビで、それぞれ「切り取り方」が違っていた。ラジオでは「ごはんのほうが好きなのでちょっとうれしいです」発言を紹介していたがテレビでは出していなかった。大人は先回りしてものすごく心配するきらいがあるが、子どもがあまり気にせず食べてくれているようすを伝えて関係者をほっとさせることも使命だとは思う。「シチューうどん」にならない限りは、とてもまともな給食である。（※個人の感想です。）

・（再掲）
　https://img.hmv.co.jp/image/jacket/800/81/9/5/176.jpg

　> 欲しいものを
　> ていねいに
　> 言ってみよう！
　> 切り取って使える

・[4812]
　> …「切り取って使える」切り取って使えるっ。

　> > 切り取って使える

　> …「切り取って使える」切り取って使えるぅ！

・「t(mycmp22$rotation[c(7, 14, 17),])」

	V8	V15	V18

PC1	-0.223756877	-0.21631746	-0.216475842
PC2	-0.117136335	0.05880634	0.258124020
PC3	0.213766254	-0.38431037	0.120364632
PC4	-0.228986802	0.13871243	0.310552867
PC5	-0.057073308	-0.09152180	-0.090958583
PC6	0.080666513	-0.14197527	-0.191852947
PC7	0.027273701	0.38636660	-0.715599357
PC8	0.357443482	-0.07051401	-0.004597833
PC9	0.360493350	0.48763541	0.311649472
PC10	-0.140150600	0.10064362	0.295874699
PC11	0.418064478	-0.24975682	0.044377759
PC12	0.270140461	0.45496925	-0.043457661
PC13	-0.038794705	0.05066940	0.071214733
PC14	-0.386244512	0.15657883	0.006541998
PC15	0.119417447	-0.09268694	-0.090809502
PC16	0.147540836	-0.16790449	-0.082209885
PC17	0.043995095	0.02232099	-0.050849074
PC18	0.008410034	-0.04710903	0.052207192
PC19	-0.253233607	0.05129913	0.013888549
PC20	0.221318942	0.11135875	0.064592163
PC21	0.024921789	-0.03344388	0.008617757

　これは相関係数の行列のようなものと思っても（大ざっぱに結果を自分だけで見るときは）よいと思うので、ここに並ぶ数字は相関係数と同じ見かたをすれば、とりあえずよいでしょう。ああ、あの「ほとんど相関がない」みたいな言葉で書いてあるやつね！（きらーん

　https://kdsv.jp/news/wp-content/uploads/2015/07/20150713_sg_04.png

※いい感じに気の抜けた言いかた。（※言いかた）そもそも相関係数ごときで最終の結論など出すものじゃないから気が抜けてていいんですよ。（ぼかーん

　https://pixta.jp/audio/78544231
　https://pixta.jp/audio/98109770
　https://pixta.jp/audio/81134078
　https://audio16.pimg.jp/mp3/616/930/100/1039616_sample.mp3
　https://audio12.pimg.jp/mp3/274/093/100/1390472_sample.mp3
　https://audio16.pimg.jp/mp3/615/180/100/1081516_sample.mp3
　https://tk.ismcdn.jp/mwimgs/4/7/-/img_47d2b879a7347d322bb75393e49b3b7c110510.jpg

　> 本当の駅では、つかえません

・[4606]
　> 多次元の空間のイメージなど、じぶんがわかれば（≒わかった気になれて、それ以上、特に気にならないようにできれば）それでいい（げふ）どうしてもといえば「重力レンズ」のイメージでいい。ただし「重力レンズ効果」のイメージではなく「重力」そのもの＝ベクトル（風向・風速のイメージ！）を3次元の空間にプロットしたようなイメージで「プラスワン」の次元をイメージすれば“御の字”じゃないか。

　算数の「比例と反比例」の単元と混同して「正の相関」「負の相関」（つまり符号）を強く意識するかたもおられましょうが、これは多変量解析ですから符号は気にしないで絶対値で見ていきます。

　V18のほうから見て、最もV18を大きく見ようという主成分はPC7なんだけれども、PC9というのは、PC7に次いで大きくV18を見ようという主成分であることがわかります。（※微妙な言いかた）これに対してV8とV15のほうは、これを突出して大きく見ようという主成分はないということがわかります。（※さらに微妙な言いかた）

・「printcp(myrpartdowo2202)」

　> Root node error: 1611.5/47 = 34.287

　> n= 47

　> CP nsplit rel error xerror xstd
　> 1 0.764741 0 1.000000 1.04457 0.76656
　> 2 0.178553 1 0.235259 1.02740 0.76736
　> 3 0.030756 2 0.056706 0.68475 0.60775
　> 4 0.015214 3 0.025950 0.64989 0.60846
　> 5 0.010000 4 0.010736 0.69840 0.65868

・「cp = 0.001」でやりなおし
　https://neorail.jp/forum/uploads/todowork21_cmp_rpart_cp.png

　圧倒的にPC2じゃないかっ（げふ）PC7の次にはPC6を見よとおっしゃる。

5	東京富山福井山梨京都大阪奈良鳥取徳島香川
6	秋田山形神奈川石川滋賀和歌山島根岡山山口佐賀沖縄
7	福島栃木群馬埼玉岐阜三重兵庫広島愛媛高知福岡大分
10	青森宮城新潟長崎熊本
11	千葉静岡
12	岩手茨城長野愛知宮崎鹿児島
13	北海道

・「mycmp22$rotation[, c(2, 6, 7)]」

	PC2	PC6	PC7

V2	-0.079581266	-2.352665e-01	-0.092484137
V3	0.910888340	-1.073853e-05	0.139103256
V4	-0.065088464	1.644734e-01	-0.013714780
V5	-0.021371859	2.163353e-01	-0.055535717
V6	-0.060014748	-1.783049e-01	0.148469126
V7	-0.037104897	1.973429e-02	-0.009850346
V8	-0.117136335	8.066651e-02	0.027273701
V9	-0.031876703	-3.267771e-01	0.363463683
V10	0.055648783	5.532303e-02	-0.003801695
V11	-0.200614193	2.595448e-02	-0.063096504
V12	0.063604134	7.782460e-01	0.098658684
V13	-0.067686519	-6.226023e-02	0.048912445
V14	-0.033304720	-5.634185e-02	-0.035992013
V15	0.058806337	-1.419753e-01	0.386366602
V16	0.052487340	-1.757704e-01	-0.040646300
V17	0.006316915	-5.436425e-02	0.059872153
V18	0.258124020	-1.918529e-01	-0.715599357
V19	-0.062074080	1.082263e-01	-0.312361914
V20	-0.008560642	-1.911175e-02	-0.101855269
V21	0.013012827	-3.575929e-02	0.056191059
V22	0.097388790	6.856221e-02	0.136812098

　はにゃーん。なぜ指数表記になるのだ。（※遠い目）

	PC2	PC6	PC7

V2	-0.080	-0.235	-0.092
V3	0.911	-0.000	0.139
V4	-0.065	0.164	-0.014
V5	-0.021	0.216	-0.056
V6	-0.060	-0.178	0.148
V7	-0.037	0.020	-0.010
V8	-0.117	0.081	0.027
V9	-0.032	-0.327	0.363
V10	0.056	0.055	-0.004
V11	-0.201	0.026	-0.063
V12	0.064	0.778	0.099
V13	-0.068	-0.062	0.049
V14	-0.033	-0.056	-0.036
V15	0.059	-0.142	0.386
V16	0.052	-0.176	-0.041
V17	0.006	-0.054	0.060
V18	0.258	-0.192	-0.716
V19	-0.062	0.108	-0.312
V20	-0.009	-0.019	-0.102
V21	0.013	-0.036	0.056
V22	0.097	0.069	0.137

　Excelで整形した。（※恐縮です。）PC6まで持ち出してきて3次元で見るということは、V2「農林漁業者」とV9「技術者」をもっと見るということと、V12「管理職」を見ようということでした。…なんてこったい。（※遠い目）官公庁に関しては東京とそれ以外という違い以外はあまり違わないかなということにしておくとして（ぎゃふん）、民間企業の本社や工場が多く立地していれば「管理職」も多い。えー…（てんてんてん）。

　ただ、これはやはり回帰木も重回帰分析のなかま（※言いかた）なので、PC6まで使って見分けているのは、木の下のほうの狭いところだけなんです。全域でPC6を考慮したわけではない。「青森・宮城・新潟・長崎・熊本」ではPC6が小さくて「千葉・静岡」では大きい。この2群を見分けるためにしかPC6は使われてこないんです。そんなことがわかってだれがよろこぶというのでしょうか。PC2とPC7で見えるところまでを見るだけでよかった。（※音声を変えています。）

・「管理職」とは
　https://www.jil.go.jp/institute/zassi/backnumber/2005/12/pdf/004-017.pdf

　> しばしば，国勢調査の日本標準職業分類の「管理的職業従事者（大分類）」の約200万人程度をもって管理職とされているが，その3分の2は会社・団体等の役員であるため, 注意を要する。

　> 社会経済分類は，職業および従業上の地位を考慮して作成した区分である。1970年以降集計され，2000年は，22 の区分がある。「管理職」は，標準職業分類の大分類の「管理的職業従事者」のうち，中分類の「公務員」と，中分類の「その他の管理的職業従事者」のうち従業上の地位が「家族従業者」または「雇用者」であるものとしている。

　お父ちゃんが社長でお母ちゃんが専務である。（息子が専務というタイプとは違う。お母ちゃんがバリバリである。…だって、男どもは海に出ちゃうから！）

　> なお中分類は他に「会社団体等」の「役員」しかない。
　> 「その他の管理的職業従事者」は，日本標準職業分類の中分類で，会社・公益法人・組合・特殊法人などの法人・団体における課（課相当を含む）以上の内部組織の業務を管理・監督する仕事に従事するものなどをいう。

・（♪～）
　https://pbs.twimg.com/media/FSTSInVUcAAkWwL.png
　https://guide.jr-odekake.net/spot/13684/image/no/1/size/10.jpg
　https://www.tsjiba.or.jp/kankou/images/icon/ogp-twitter.png

　新潟で工場といえば米菓と鍋！（ぐぇ）工場は大きいが工場の種類や数は少ない。それに比べると千葉や静岡は水産会社や食品加工会社の種類が（まぐろだけとかいわしだけとかみたいに）多い。1つ1つは小さいけれど会社が多いから「管理職」が多い。静岡では漁船の数だけ会社があるんじゃ（ぐぇ）＆千葉では成田と幕張に本社のある会社が多いのでは。（※言いかた）

・[4105]
　> 専門家はエキスパート！静岡のダイエーで売ってた激安パソコン（※当時）についてきたあの有名なソフト

・（再掲）
　https://www.dreamcast.nu/wp-content/uploads/2019/06/Compaq-Presario-CDS-520.jpg
　http://h10032.www1.hp.com/ctg/Manual/c01854458.pdf
　https://auctions.c.yimg.jp/images.auctions.yahoo.co.jp/image/dr000/auc0101/users/b197b7b5b7e0665f497fd2be36d6e4eb18dcac07/i-img640x480-1578902967flieoh598254.jpg
　https://auctions.c.yimg.jp/images.auctions.yahoo.co.jp/image/dr000/auc0101/users/b197b7b5b7e0665f497fd2be36d6e4eb18dcac07/i-img480x640-1578902978tfxcli602570.jpg

　何を隠そう「A列車で行こう4 for Windows」というソフトである。（※なぜかすごく照れながら！）

・（再掲）「Homepage Builder Version 6.0.3.0 for Windows」（※ソコジャナイ）
　http://www13.plala.or.jp/hiro1999/wakwak/hurettuai.htm

　> ７月の初旬、パソコンショップに行くと静岡市は７月２５日から常時接続で定額料金でインターネットができることを若いアルバイトの女の子が団扇を配りながら宣伝をしていた。

　http://sky-crews.com/promo/wp-content/uploads/2011/07/22.jpg

　コレジャナイ。

・（再掲）
　http://d.hatena.ne.jp/ekke/20070318/1174206043

　> たぶん1994年のことだったと思います。静岡のTOPOS(当時のダイエーの一業態)の電気製品売り場を何気なく見ていると、聞いたことのない外国製パソコンが無造作に山積みされ87,800円とかで売られていました。けばけばしいカラー印刷が施された外箱を見ると、カラー画面上になにかのプレゼン資料っぽい、かっちょいいグラフが描かれています。売り場の店員さんに「このパソコン、カラーなの?」と訊くと、そうだと言います。即決して当時乗っていたホンダ・ドマーニの後部座席に押し込んで持ち帰りました。

　こういう感じが静岡と同じくらい千葉でもあるんでしょうね。

・（2009年7月18日）
　https://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q1328431283

　> ブログなどで「かっちょいい」をよく目にするのですが、
　> 若者言葉ですか？

　えー…（てんてんてん）。「ブログ」というものを出始めの時期（2003年まで）に始めた世代の人は多用するよ。うん。（※個人の感想です。）

・[4526]
　> うっかり「ＡＲＸヤングがんがん（4969）」が出てしまった。ひらがなだし「ＡＲＸ紅の源さん（17881）」に免じて、ここはどうかお許しください。

　半蔵さんの甘栗モンテがとまらない。

・[3574]
　> 主成分分析（ひいてはMDS）を使いながら、（可視化の都合だという言い訳をしながら）あらかじめ第2主成分までしか使わないと決めつけてしまうような分析例も散見されましょう。

・[4628]
　> 「黒板のメタファー」に縛られ続ける「学校の数学」と同様に、▼論文やスライドに載せられる（平面の）図表と、▼見栄えのする可視化、それに▼ほんのわずかな時間の口頭発表で発表できてしまうような（わかりやすい＝割り切った）内容ばかりが横行するという悪循環。

　15分で発表しろという形式だけになってしまっては研究活動が「いわば大衆化」しすぎて、学生には発表の場が『公平に』与えられはするけれども研究者が育っていかない。時間も形式も無視して好きなだけ議論させろやい。…お、おぅ！（※私見です。）

・[4967]
　> 「荻窪消防署つき」：「トルコ行進曲つき」「合唱つき」の「つき」をひらがなで表記する流儀がある。なんでもかんでも漢字で書くのが絶対に正しいなどと思わないように。

　そのノリで「主成分分析つき回帰木」とひらがなで表記してみた。いかがだっただろうか。（棒読み）

・（参考）いますぐ「RでPLS回帰」（※恐縮です）
　https://www.rdocumentation.org/packages/pls/versions/2.6-0
　http://www014.upp.so-net.ne.jp/acremaker/r2.html

　> RMSEP値は小さい程よい回帰式が得られているといえます。

　「R²値（決定係数）」の代わりにこれを見よということですね、わかります！（棒読み）

　https://www.jstage.jst.go.jp/article/jacc/54/0/54_0_420/_pdf/-char/ja

　> 取り込む潜在変数の増加に対する予測値の平方平均二乗誤差（RMSEP:root mean squared error of prediction）の減少推移にも注意して判断

　> 縦軸に「RMSEP値」を取ったグラフで，この折れ線の減少推移から

　…だめじゃん！あらぶる二荒山神社…じゃなくて、ふれねる主成分分析でいう「スクリープロット」（[3587]）と同じことを言っていてホイヘンスだよおねーちゃん！（※表現は演出です。）

・[3587]
　> > 6.1.3 The Scree Graph and the Log-Eigenvalue Diagram
　> > An alternative to the scree graph, which was developed in atmospheric science, is to plot log(lk), rather than lk, against k; this is known as the log-eigenvalue (or LEV) diagram (see Farmer (1971), Maryon (1979)).

　> デスヨネ～…。対数でプロットしないで「どやぁ」みたいなの低～い！（※感想は小町です。）

　> 固有値で見ると（44変数からの主成分分析で）第7主成分まで採るべしと示唆されていながら「スクリープロット」を見て結局、2つだけでいいんだというのは、ドイツの地ビールの『バリアシオン！』をぜんぶ無視する（※ハイネケンと、地ビールというものが半分ずつあるんだね、といって、個々の地ビールには目を向けない）に等しいといえましょう。

　そういうやわなことには頼らずに潜在変数の数を決めるか、決めかねるならぜんぶ使ひたまへよしょくん（「恣意的に変数選択」せず「ぜんぶ使う」ときは特に根拠はいらない？：「スクリープロット」を使って決めたと言い張るのはかえって信頼性を下げませんかねぇ）みたいなことを誰か言ってくださいオネガイシマス。（※主成分分析で出てくる成分をぜんぶ使うというのは、多重共線性の解消だけに着目したときにはまともな方法でしょうが、しかし、ぜんぶといってその数が44もあると、その後の工程でだめになるっぽいよね、の意。）

※この「PLS回帰」に関する箇所は、なんと2018年4月の日付で下書きしたまま塩漬けになっていたものをそのまま掲載しました。「PLS回帰」でなければいけないというまでの例題のうまいのを考案できなかった。「主成分回帰」より『いいやつ！』というノリしかないなら、「PLS回帰」なんて必要ないだろうということなんじゃないですか。…知らんけど！（※恐縮です。）

・MathWorksの説明です
　https://jp.mathworks.com/help/stats/plsregress.html

・「クリスティアーン・ホイヘンス」ご近影のイメージです
　https://ja.wikipedia.org/wiki/%E3%82%AF%E3%83%AA%E3%82%B9%E3%83%86%E3%82%A3%E3%82%A2%E3%83%BC%E3%83%B3%E3%83%BB%E3%83%9B%E3%82%A4%E3%83%98%E3%83%B3%E3%82%B9

　「重回帰分析」より『いいやつプリーズ！』（※直訳）というノリで「主成分回帰」を知った人が、すぐにまた『もっといいやつプリーズ！』（※直訳）というノリで「PLS回帰」を見つけ、まるで冬用タイヤに取り替えるみたいに（「取り替え」という方法ですぐに使えると思って）やってみたら、ぜんぜんできない。問題設定から見直さないと、じぶんの仕事には「PLS回帰」を導入できない。…だー・かー・らー！！（ぎゃふん）「PLS回帰」というものを自分で調べて自分で導入しなきゃいけないなんてシーン自体が（学習者が誤って迷い込むという意味で）荒唐無稽なんです。たぶんですけどね。別の言葉で言えば、オンライン学習（※オンライン学習って意味じゃないです）やデータ同化といった、実験方法も評価の方法もぜんぜん変わらざるを得ない、そういうふうに問題のとらえ方自体を変える必要があるのが、「PLS回帰」を導入するということだと思うんです。（※あまりよくわかってないまま書いてます。）

・（再掲）「主成分分析」元デンソー氏の見解です（2016年9月11日）
　https://xtech.nikkei.com/dm/atcl/column/15/415548/091100016/?P=4
　https://xtech.nikkei.com/dm/atcl/column/15/415548/091100016/?P=5

　> 多変量解析を使わないあなたは、電流値を変える効果の大きさを知らず、時間しか見ていなかった。それでもめっき処理はでき、製品を造ることはできる。しかし、生産効率を落としていることには気付いていません。ここでは時間、すなわち生産効率に着目しましたが、品質に対しても同じです。多変量解析を使わなければ、生産効率も品質も高めることができないのです。

　> 確かに、多変量解析には難解な数式が出てきます。重回帰式や判別式、主成分分析、クラスター分析などなど。多変量解析をこうした数式を使って理論を中心に学ぶと挫折しがちです。計算も手計算で大変なのです。

　> 実は、かつてトヨタグループもそうでした。理論的な説明が中心の多変量解析の研修を行っていたところ、難しくて、技術者といえども実務で使いこなせなかった。研修の講座として学んでおしまいで、実践には至らない。それでは多変量解析を学ぶ意味はありません。

　> こうして理論を学んだ上で手計算する方法をやめ、計算を自動化できるソフトウエアを使うことにしました。加えて、実践形式の研修を始めました。講義に加えて、職場から持ち寄った課題をテーマにグループワークを行う方法を取り入れたのです。すると、現場での多変量解析の活用率が飛躍的に伸びました。

　> 使うのは、統計的品質管理（SQC）解析ソフトウエア「JUSE-StatWorks」。とても簡単に解析できます。

・[4014]
　> 「JUSE-StatWorks」なら「これを使っておけ（おれについてこい）方式」もとい「ホワイトリスト方式」みたいなものだから安心である。
　> 「JUSE-StatWorks」なら「これを使っておけ（おれについてこい）方式」もとい「ホワイトリスト方式」みたいなものだから安心である。

　> （マニュアルを含めて）至れり尽くせりすぎるパッケージ（ソフト）だから、変なありがたみがついてまわるけれど、本来「R」で同じことができる上で「JUSE-StatWorks」を使うという“2段構え”であってほしい。「JUSE-StatWorks」を使えるだけでは危うい。

・「オンライン学習って意味じゃないオンライン学習」の検索のしかた「オンライン学習機械学習」で！
　https://www.ai-gakkai.or.jp/resource/my-bookmark/my-bookmark_vol30-no5/

　> オンライン学習は，機械学習における学習の枠組みの一つである．オンライン学習の枠組みでは，全データを一度に用いること無く，データが一つ（あるいは全データの一部）与えられるたびに，与えられたデータのみを用いて逐次的にモデルを改良する．

　> そのデータのみを用いて逐次的にモデルを改良する．このデータ処理方式の性質から，メモリやキャッシュに全データが乗らない規模のデータ解析や永続的にデータが生成される環境下での学習が効率化できる．

　そこに改行文字だったのかなと思われる半角空白があったので改行してみました。（※ソコジャナイ。）

・[3669]
　> 「PLS回帰」（※説明変数と目的変数の全体でPCAしてから主成分を説明変数として目的変数を説明しようとする回帰＝ちょっと『答え！』も見てからフィッティングする感じが「データ同化」に片脚を載せている感じでＧＯＯＤ！！）

　自分の理解を確かめるために例題を作ろうとして、それが作れないんだから、自分は理解できていないのだ。（※恐縮です。）

・（2015年5月21日）
　http://b.hatena.ne.jp/entry/252706915/comment/elu_18

　> Hellinger距離に対してPCAを行い，単語の意味表現を作っても深層学習で作ったのと同程度の性能が得られるという論文．

　ほぉお。（以下略）一応、「階層的クラスタリング（ウォード法）」による「デンドログラム」も描いてみます。やったらその通りに描けるわけだけれども、それはどういう意味なのか。えー…（てんてんてん）。

・[4359]
　> バンクーバーは京都である。お茶漬けはいただくべきか断るべきか。バンクーバーである。（※白目）もっといえばウゲゲな洋食でアンカレッジは西船橋である。○か×か。

　> スケールを変換すれば西船橋もまたアンカレッジである。もっと○か×か。

　PCAを行なってから（PC1からPC21まで軸が21ある21次元の空間上の「点」としての47都道府県の相互の距離を総当たりで求めてつくる行列＝）「距離行列」でウォード法。それはさすがにウゲゲとしか…（てんてんてん）。

　https://www.ouj.ac.jp/mijika/tokei/xml/k3_06004.xml

　> 多次元尺度構成法（MDS）と共通点の多い各手法がある．
　> 数量化III類はアルゴリズムが異なるが，ダミー変数を用いて主成分分析や因子分析を行っても似たような目的が達成できる．

　> 解析者が勝手に質的データに数値を与えて間隔尺度のように扱い，既存の多変量解析手法を適用していることに対する反省を出発点としている．
　> 同氏のグループによる啓蒙普及活動は特筆に値する．このため日本においては，質的データの解析が日常茶飯事となった．このように，林の数量化は日本におけるデータ解析を豊かなものとしたが，現場技術者の間に多少の混乱が認められる．すなわち，一部では数量化といえば林の数量化を指しているきらいがあり，他の数量化に無関心である傾向がみられる．

　ここなんですよね。そこまで言及しておいてなお「林の数量化理論」という名前と体系（[3469]）で教えちゃうんですよね。（※音声を変えています。）「林の数量化理論」でいう「IV類」「Ｖ類」あたりの問題意識が、今回の話と近いかなとは思います。そこで必要になるのは、だれそれが提唱したなになに法を使いましたというのでなく、数理面がクリアーで（アカデミックに）『合意のある』方法（いわばプリミティヴな方法）だけを使って（せいぜい組み合わせる程度で）いかに鮮烈に解析してみせて考察しきるかということでは、ないんですかねぇ。（ねちねち）

■「R with Excel」（続き）

階層的クラスタリングを実行する
（ウォード法）

myhccmp22 <- hclust(dist(mycmp22$x),method="ward.D2")
plot(myhccmp22, cex=0.7)
rect.hclust(myhccmp22, k=5, border="red")

　https://neorail.jp/forum/uploads/todowork21_cmp_hclust.png

　うーん。

　https://neorail.jp/forum/uploads/todowork21_cmp_hclust9.png

　「k=9」にしてプロット。これは強引に階層的クラスタリングしちゃった上で機械的にどこで切るというだけの操作であるので、所望の数に分けることはできるが、意味があるのかはこれだけを見ていてもさっぱりわからないとだけ…（てんてんてん）。

※恐縮です。

・「mycmp22$rotation[, c(1, 2, 3, 4)]」に「社会経済分類」を補ったもの

		PC1	PC2	PC3	PC4

V2	農林漁業者	-0.22831668	-0.079581266	0.107877383	-0.032534836
V3	農林漁業雇用者	-0.04089941	0.910888340	0.053002860	-0.332873389
V4	会社団体役員	-0.22624047	-0.065088464	0.170915013	-0.283777419
V5	商店主	-0.22260890	-0.021371859	-0.048338127	-0.229887304
V6	工場主	-0.22656791	-0.060014748	-0.177848743	-0.172074421
V7	サービス・その他の事業主	-0.23039418	-0.037104897	-0.039965379	-0.086450925
V8	専門職業者	-0.22375688	-0.117136335	0.213766254	-0.228986802
V9	技術者	-0.22723968	-0.031876703	0.080869157	0.204850665
V10	教員・宗教家	-0.22967060	0.055648783	-0.051090246	0.146353417
V11	文筆家・芸術家・芸能家	-0.21111716	-0.200614193	0.314600457	-0.458276685
V12	管理職	-0.22269523	0.063604134	0.057590745	0.355895053
V13	事務職	-0.22943164	-0.067686519	0.082641853	0.007451948
V14	販売人	-0.23061564	-0.033304720	0.033242650	0.086324174
V15	技能者	-0.21631746	0.058806337	-0.384310366	0.138712434
V16	労務作業者	-0.23022541	0.052487340	-0.000746473	0.108033746
V17	個人サービス人	-0.23082427	0.006316915	0.052968180	-0.050946477
V18	保安職	-0.21647584	0.258124020	0.120364632	0.310552867
V19	内職者	-0.17116016	-0.062074080	-0.767090561	-0.256277723
V20	学生生徒	-0.23047459	-0.008560642	0.033395510	0.099931141
V21	家事従事者	-0.22987366	0.013012827	0.029900906	0.185486911
V22	その他の非就業者	-0.22673826	0.097388790	-0.016756113	0.132854789

　うーん。いわゆる主成分分析や、いわゆる「MDS」で、PC1とPC2だけを見たときには、V19を無視するということになるようすが見えます。V19を考慮する必要がないならそれでよく、V19を考慮する必要があるとかV19こそに注目したいんだということがあれば、PC3も使えということです。PC1は、なるほどV2からV22までだらーんと薄く広い相関を持つ（※そのように作られるのが第1主成分もとい「主成分というもの」ですけど）とはいえ、なんといっても薄い。（※トートロジー）PC4まで進むと、いくつかの変数についてはかなり大きな情報（≒相関）を持つわけです。自分はどこを見たいのか。それをまったく考えないままPC1とPC2だけを見ていて、本当にいいんでしょうか。（※投げかけ）

　主成分分析という呼びかたで習って「バイプロット」で見るのに慣れているかたは、もちろんそれでいいんです。でもまあ、データによっては「バイプロット」を人の目で見てああだこうだとは、言う気がなくなってきます。

・「biplot(mycmp22)」
　https://neorail.jp/forum/uploads/todowork21_cmp_biplot.png

・「biplot(mycmp22, choices=c(2,7))」
　https://neorail.jp/forum/uploads/todowork21_cmp_biplot_2-7.png

　ここでPC1だけではV3を見ないからPC2を、PC1とPC2だけではV19を見ないからPC3を見ようというと、それはそれでまた「重回帰分析」の変数選択のような“粗雑さ”（微調節が効かない感じ）が出てしまうわけです。V3とV19が、何かすごく特徴的なものであるかのように錯覚させてしまう。でも、それはPC1というものをそういうふうにこしらえたときの残りかすということであって、V3やV19そのものに大きな特徴があるというわけではない。ここをCART法に任せると、PC1はPC1すぎるから見ないということにしてスキップして、PC2の次は、どんどんスキップしてPC7を見よというんです。V3やV19がうまくブレンドされた主成分をとってきて、『PC1とそれ以外』（「直交する」）という平面とは違う、ぽやんとした平面を見せてくれるわけです。（※言いかた）

　https://t15.pimg.jp/034/308/385/1/34308385.jpg

※画像はイメージです。

　あと、ここで回帰木に説明させた被説明変数V1は「人口集中地区人口（率）」でした。ここを、冒頭に挙げたほかの2つに変えてみるとか、そもそも被説明変数（目的変数）を3次元に『拡張！』するとか、そういうことを試していきながら（以下略）それはさすがに…（てんてんてん）。

・『拡張！』とは
　https://service.nikkei-r.co.jp/glossary/path-analysis
　https://www.nikkei-r.co.jp/files/user/images/glossary/1650_01.png
　https://service.nikkei-r.co.jp/glossary/covariance-structure-analysis

　> 重回帰分析は目的変数が1個の統計モデルである。パス解析はそれを発展させた、複数の目的変数を含む統計モデルである。モデルが複雑になるため、方程式ではなくパス図で表現するため、パス解析という名前がついている。

　> パス解析は観測変数のみのモデルであったが、SEMは潜在変数と観測変数の両方を、目的変数（従属変数）にも説明変数（独立変数）にも設定できる柔軟性を持つ。

　わあぃ共分散構造分析。（※悲鳴）ニワトリと卵を区別しない。ニワトリが卵になり、卵がニワトリになる。（※言いかた）こういうところが、機械学習や「AI（人工知能）」の文脈でいえばオンライン学習やデータ同化っぽい（…POI！）と感じるところです。あと、日本語を整理して「説明する」「説明される」「説明変数」「被説明変数」に一本化する（「説明」という言葉だけでぜんぶ言う＝単語を減らす！大統領の演説！！セクシー構文っ！わくわくするICT！！！）だけで初学者にはかなりやさしくなる。これは大学で習うものなので初等の（検定）教科書のような語彙の統制がないに等しい。数理的にほとんど同じ方法でありながら分野によって、ひいては先生によって呼びかたが違うのでは、たまったものではありません。（※個人の感想です。）

・[4109]
　> 「先生が間違えた！！」「出題ミス！！ ××しる！！」みたいなノリ

・[3821]
　> 教科書や辞書みたいに書け
　> 先生みたいに説明しる！
　> できないなら黙ってて！！

　> ※教科書も辞書も先生もどれだけすごいかわかってくると大人です。

・[4101]
　> > 塾講師やってるときに「こんな小さな塾の用意したテキストよりも学校の教科書の方が金かかってる」って話は教えてた子にはしてたからね。

　> いいねーいいねー。

　大学で使う『教科書』は、そういう意味ではまったく金がかかってないのである。（※事実）

・[4626]
　> > 身もフタもない。

　> 大学の教員の身もフタもなさというのは、高校生から見ると許しがたいものかもしれないとは思う。

　そういうところに『大学人』（※古い言いかた）は疎すぎたきらいがある。長閑な時代というものは、膨大な落第者の上に築かれていたのである。（※もっと言いかた）

・[4779]
　> 「わからないことは先生が全部知っていて、教えてくれる」を、大学の教員に求めてはいけない。高校でも、いくらかはそういうことになってくる。「わからないことは先生が全部知っていて、教えてくれる」は、せいぜい小学校のうちである。「わからないことは先生が全部知っていて、教えてくれる」から脱却するための『助走』が中学校でできていないと、高校に行ってから困るはずだ。

・（2022年8月25日）
　https://same.su-gaku.net/tanaka

　> 理数探究とは、生徒が自ら研究テーマを決めて問いを立て、さまざまな研究手法を用いて社会や学術の中にある “答えの用意されていない課題” に取り組むというものです。

　> 旭丘高校では、理科は物理・化学・生物・地学のすべてを、数学は数IIIまでを、全員が学ぶカリキュラムになっており、基本的に文系、理系の区分がありません。そしてSSH事業の課題研究においても、人文科学や社会科学など文系的なテーマも寛容に受け入れているのです。これらのテーマを選択した生徒は、実験ではなくデータ分析や統計的な手法などを使って研究を進めています。

　> 私はこの学校で教諭を務めるなかで、全員が全教科を学んでいることによる知識の豊富さや、ディスカッションにおける考え方の多様さ、さらに自分とは異なる考えや成果を寛容に受け入れる風土などを肌で感じています。
　> 文系、理系の区分のない探究的な学びがより多くの学校に広まって「文理融合」につながるとともに、こうした風土が育まれていくとよいかなと願っています。

　2022年度からの理数探究という文脈でいえば、理数探究で理科じゃないテーマを選んで、そこでわかりやすい多変量解析をすごくばっちりマスターして自信満々で文系の学部に進学したときに、大学の教員の多変量解析の知識と技能が『化石！』みたいに見えるということが、2025年度には起きるだろうということなんです。ありがとうございました。（棒読み）

※もちろん理由も意味もあって『化石！』になっている（している）側面もある。だけど、それが大学の新入生には『化石！』に見えてしまう。そこをうまく翻訳というか通訳するような「接続！」がないと困りますよ、という話でした。

　> まず生徒と教員の方々には、ぜひ探究を楽しんでいただきたいと思います。もちろんたいへんな場面もありますが、生徒にとって探究活動は「教えられる」ことから離れて、自分が見つけてきた課題に自由に取り組める、またとない貴重なチャンスですから。
　> また教員にとっても、自分の知らなかったテーマや、自分にはない視点と出合う機会といえます。ぜひ生徒がもってきた課題に対して価値を置き、一緒に楽しんだり、悩んだりしてほしいですね。

　> 旭丘高校では、課題研究を1日の終わりの6時間めに設け、実験が長くなったり課外調査に行ってそのまま自宅へ帰ったりしても、問題ないようなしくみにしています。

　おおー！（※感嘆）15分で発表しろという窮屈すぎる形式は、自然に廃れていくんじゃないかという大胆な予想をしておこうと思います。

この記事のURL　https://neorail.jp/forum/4969/

この記事を参照している記事

[4979]	「A列車で行こう10にあったらうれしいもの」とは（再）	2023/2/1
[5029]	【A9・Exp.】年齢別の楽しみ方	2023/6/1
[5070]	実例に見る日英対訳（40）「富と名声」と「山吹色のお菓子」	2023/8/1
[5078]	外房線を「テレトピア構想」ほかで読み解く（談）	2023/9/1
[5084]	【A9・Exp.】「ロールプレイ」とは	2023/9/1
[5090]	シャーウッドがピクミンしてパーティーバーレル	2023/9/29
[5104]	【すんぎゅうずかんだんかん】『京都肉』を斬る（DAN）【ジャイロキャノピー】	2023/10/10
[5105]	これからは参考文献の時代だ（談）	2023/10/10
[5174]	【アップル】「かわいい」は半蔵門線【歌舞伎】	2024/3/1

【自由研究】の話題

【研究ホワイトボックス】

【研究ホワイトボックス】

研究ホワイトボックス（49） とにかく「主成分分析つき回帰木」するには

■「人口集中率」と「人口密度」

■「人口集中地区人口」と「社会経済分類別15歳以上人口」

■「R with Excel」（※Excelでの操作については省略）

■「R with Excel」（続き）

■「R with Excel」（続き）

関連する記事

研究ホワイトボックス（49）とにかく「主成分分析つき回帰木」するには