フォーラム - neorail.jp R16

「A列車 色がおかしい」を越えて進もう


発行:2020/5/21
更新:2024/2/29

[4074]

【A9R:データで遊ぶA列車】

「照焼大橋」不滅なれ(AA横横編)


「R with Excel」(続き)
「R with Excel」(続き)
「R with Excel」(続き)
「R with Excel」(がっちゃんこ)
「R with Excel」(がっちゃんこ)
「R with Excel」(続き)

(約9000字)

 [4069],[4071],[4072],[4073]の続きです。


[3988]
 > いでよ! テリヤキサーモンスシボウル!! 217およよ。

 バナナピーマンがたおせない。(違)

[3213]
 > > エターナルフォースブリザード
 > > 試される大地

 ただよう暗雲。ながされるぼくら。食事だ兄弟。(※誤訳)

 > > 食べ終わった直後、さくらの方がきて「ここは撮影OKで、それは山わさびだから気を付けてください」とおしえていただいた、実にお役立ち情報である、知ってた。

 申し遅れましたが、この記事は「A列車で行こう9 攻略」なんですよ。なかなか「A列車で行こう9 攻略」だと思ってもらえないのが難点です。本件ゲームが地味に誇る「地形の自動生成」は本物以上に本物なんです。これを活かして、ゲーム(※マップコンストラクションではあるけれど、自分ではなく他人にプレーしてもらうための「創作ゲーム」を仕上げるつもりでつくるなら「ゲーム」と呼ぼう)を進めるうえでの「ヒント」「アドバイス」となる、いわば『補助線』のようなものを、有名なアルゴリズムを組み合わせて使ってお手軽に描いてみようというコーナーなんです。これがホントの『ガイド付きマップ』だ兄弟。(※誤訳)あらやだ本当だわ!!(※うれしそうに。)

※『ガイド付きマップ』は株式会社アートディンクしか使わない変な日本語だから要注意だ。ここでいう「マップ」は「地図(というモノ)」ではなく「旅の目的地」や「旅程(を書いた書類ではなく旅程というものそのもの)」という意味に近い。あえていえば「ガイドが同行するツアー(初心者向けの安っぽい旅行商品で自由時間もろくにない)」という意味なのが『ガイド付きマップ』である。…右手をごらんくださぁい! おっと、自分の右手をまじまじと観察しだすフレンズはいねがー? きゃー。(※ジト目)

 じぶんはすでに熟達した老練のプレーヤーだから不要だ。…とんでもない! アルゴリズムが出してくる『補助線』というのは、いわば“最大公約数”的な、このマップに取り組むプレーヤーの多くがきっと一瞬で自然に、あるいは想像を絶するまでの膨大な試行錯誤の末に到達するであろう“結論”を一瞬で描いたものなのだ。(どやぁ

 「創作ゲーム」に必要なのは一に自然さ、そして十までぜんぶ自然さである。恣意的で不自然な、あるいはまったくランダムな「さいしょのむら」を配置されてしまうと、自然な想像を広げていくことが邪魔されてしまうので、プレーヤーは困惑するのである。そんなことではいけない。ありそでなかった…じゃなくて、「いかにもありそうな」を『途中までつくってある』とか、ほんの“序の口”だけをつくってあるとか、そういうつくりかたをするのが「創作ゲーム」であり、そもそも「ニューゲーム」(シナリオマップ)もそのようになっているべきだったのだ。「A9V1」は最初から道を間違えた。メーカーが間違えたから客も間違えた。違いますか。いまさらガイドさんを呼ぼうとしても遅い。…『ガイドさん』!!(※ソコジャナイ。)

 > > 小さい入れ物にはいった茶色とも黄色ともいえるよくわからないもの

 もういちどいいましょうか。(違)

■「R with Excel」(続き)

k-meansを実行する
(k=26、nstart=100)
mykmakari26 <- kmeans(myakari3dumi, 26, nstart=100)
散布図を描くlibrary(mclust)
clPairs(myakari3dumi, cl=mykmakari26$cluster)
# プロットされた図を右クリックしてコピーや保存をします


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

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


 > 警告メッセージ:
 > clPairs(myakari3dumi, cl = mykmakari26$cluster) で: more colors needed

 うそーん。目が白黒した。セイコーマートではなくローソン。実にお役立ち情報である、知ってた。

 https://www.rdocumentation.org/packages/mclust/versions/3.4.7/topics/clPairs

■「R with Excel」(続き)

小さい入れ物にはいった
茶色とも黄色ともいえる
よくわからないもの
clPairs(myakari3dumi[ , c(1, 2)], cl=mykmakari26$cluster, CEX=0.2)


 https://www.bunka.go.jp/pr/publish/bunkachou_geppou/2013_02/series_10/images/img_01.jpg
 https://lh5.ggpht.com/-yyw0dY9nhjE/TeJ0kvg8gfI/AAAAAAAGB80/La8iy1mE53I/l8151.png
 https://neorail.jp/forum/uploads/r_river2_3dumi_km26_aa.png

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

 https://stat.ameba.jp/user_images/20130829/16/emd-kosuke/0f/1a/j/t02200131_0722042912665729984.jpg

 きょうも東舞鶴でFreeBSD(違)はーいアルファベットは何文字ありますかー。(※“変な声”で!)『26文字』ですねー(大巾に中略)Windowsでフォントがアンチエイリアスだからできる芸当よ。…え? エクセルが『横長』で27列目に「AA」とかいう列が出てきたって? あなた「エクセル方眼紙」とかしちゃってません? あらあら、まあまあ!(※笑っていない。)

※「も」に傍点。エクセルをまともに使ってデータが27列にもなるようならRDBMSに移行するべき。(キリッ

[3477]
 > > 貧乏な日本の国立大学では FreeBSD(98)を使ってインターネットに接続している例がいくつもあります。

 > > FreeBSD(98)をフロッピーディスク1枚で運用することはできますか?

 さすがにそれは…(てんてんてん)。

・「mykmakari26$size」

502
503
253
233
54
628
700
469
571
627
416
317
668
355
478
762
538
476
22
623
379
452
610
589
278
288


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

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

 https://www.calbee.co.jp/jagarico/products/images/barcode/ph_salt_goma_bar.gif

 ここで、『小さすぎるクラスター』(少ない点しか持たないクラスター)は“なかったこと!”にしてあげようじゃないか。なあにいいってことよ。(違)

・「cbind」で4列目に「size」の値を持たせて「subset」しようか
・「size」の下位6つのクラスターはなかったことにしようじゃないか(300とか256とか数字で決めるのはいまいちだからクラスターの個数だけで考えようじゃないか)
・最終的に「k=2」したいんだからなんでも偶数にしておけばいいじゃない

 ほぅ…? そこで「偶数の概念」とやらを持ち出してくる。いい度胸だ。数学の先生のペン回しが加速する。超加速である。防御力じゃなくてね。(違)

 https://dime.jp/genre/722925/

 > 退屈な会議中に、なんとなくペンを回してしまうのは、無意識のうちにやる気を高めようとするためなのかもしれない。

 数学の先生のペン回しが速すぎて、ふつうのわれわれには止まって見える。次の瞬間、ペンが消えた。同時に、隣の部屋で床にペンが落ちる音がしたので、われわれはぎょっとした。壁をすり抜けたとでもいうのか。(げふ)

 http://cse.naro.affrc.go.jp/takezawa/r-tips/r/43.html

 > 関数 order(昇順の対象となる列) で順番を作成し,それを使ってデータフレームにアクセスすればよい.

・「sort(mykmakari26$size)[ 7 ]」

317


 昇順で7位の「size」の値『未満』(つまり昇順で1位から6位まで)だったら“なかったことにする!”という「subset」するのである。

 https://www.calbee.co.jp/jagarico/products/images/barcode/ph_yuzukosho_bar.gif

[3868]
 > なんでもない、こういうことをぜんぜん暗記していないんで手間がかかります。この子がね(略)大目に見てやってくださいっス。

 https://img.mandarake.co.jp/aucimg/4/1/2/1/0001514121.octet-stream

 すんませんっス。

■「R with Excel」(続き)

4列目にクラスターのサイズを追加したデータフレームを作成myakari3d26size <- cbind(myakari3dumi, mykmakari26$size[mykmakari26$cluster])
colnames(myakari3d26size) <- c("V1", "V2", "V3", "V4")
# 4列目の列名を「V4」にしておく


 しょせんわたしたちはきのう「R」に入門したばかりでよちよち歩きなので、やりたいことができたかどうかを逐一、確かめるのである。これを「対話的」という。(キリッ

・「subset(myakari3d26size, V4 == 22)」

V1V2V3V4
100-5022
210-5022
320-4022
430-3022
540-2022
650-2022
760-2022
870-1022
2570-1-3022
2581-1-3022
2592-1-2022
2603-1-2022
2614-1-1022
2625-1-1022
2636-1-1022
5130-2-2022
5141-2-2022
5152-2-1022
5163-2-1022
5174-2-1022
7690-3-1022
7701-3-1022


 https://www.kyounoryouri.jp/upfile/new_xl_1492412582_3927.jpg

 よーしレモンしぼっちゃうぞー@やめてーやめてー。(違)

■「R with Excel」(がっちゃんこ)

よいやさーmyakari3dumi20 <- subset(myakari3d26size, V4> sort(mykmakari26$size)[ 6 ])[, c(1, 2, 3)]
点群をプロットして確かめるplot(myakari3dumi20[, c(1, 2)])


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

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

 https://news.walkerplus.com/article/117623/649073_615.jpg

 ほー!!(※夜に目が利く池袋のフレンズみたいに!)あと2つくらい消したい。

■「R with Excel」(がっちゃんこ)

よいやさーmyakari3dumi18 <- subset(myakari3d26size, V4> sort(mykmakari26$size)[ 8 ])[, c(1, 2, 3)]


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

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


 うーん。(※すごく満足げに!)

■「R with Excel」(続き)

k-meansを実行する
(k=9、nstart=50)
mykmakari9 <- kmeans(myakari3dumi18, 9, nstart=50)
散布図を描くlibrary(mclust)
clPairs(myakari3dumi18, cl=mykmakari9$cluster)
# プロットされた図を右クリックしてコピーや保存をします
主成分分析を実行するmycmpakari3d <- prcomp(myakari3dumi18, scale=TRUE)
主成分分析の結果のサマリーを表示するsummary(mycmpakari3d)
# 各主成分の累積寄与率が表示されます
散布図行列を描くlibrary(mclust)
clPairs(mycmpakari3d$x, cl=mykmakari9$cluster)
# プロットされた図を右クリックしてコピーや保存をします


 「V4」までつけたままのを放り込まないように。…放り込まないよっ!?(※疑問形)

※つけたままだったと気づいたら、こちらで「myakari3dumi18[, c(1, 2, 3)]」とする。

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

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

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

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

 https://www.atpress.ne.jp/releases/121578/img_121578_4.jpg
 https://pbs.twimg.com/media/EDilYQHUYAAGjIV.png
 https://goo.gl/maps/Uk6sG9oqFNdTjzgu5
 https://twitter.com/tkb_akb/status/789347988820807681
 https://tezukaosamu.net/jp/other/img/poster/o0059_main.jpg
 https://backnumber.dailyportalz.jp/2017/05/16/a/img/pc/cosmo010.jpg
 https://img.aucfree.com/390085663.1.jpg

 ゆんゆん!(※意訳)

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

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


 超がびーん。それなら「V4」も使おうか。えー…(てんてんてん)。

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

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

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

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

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

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


 そういうことでもなかった。4アチャー。

・(♪〜)
 https://media-cdn.tripadvisor.com/media/photo-s/09/1a/22/35/caption.jpg
 https://www.doboku-watching.com/images/20141006214436_76_1.jpg
 https://www.kajima.co.jp/news/digest/june_2002/site/site.htm
 https://www.kajima.co.jp/news/digest/june_2002/site/image/s04.gif

 「空港大橋(仮称)」のイメージでした。ありがとうございました。

・(再掲)大津市科学館の展示です
 http://www.otsu.ed.jp/kagaku/02_exhibition/3f/arch.html
 http://www.otsu.ed.jp/kagaku/02_exhibition/3f/images/3-16.jpg

 > ここでは、橋の作り方から圧縮力のしくみを学習します。

 > 橋の部材を組み合わせて橋を組み立て、その上を歩いてみましょう。
 > 橋の部材を組み合わせて橋を組み立て、その上を歩いてみましょう。

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

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

 https://image.biccamera.com/img/00000003286039_A01.jpg
 https://lion-corp.s3.amazonaws.com/uploads/grn/product/normal_image/107/031-02.png
 https://i.pinimg.com/originals/86/ed/dc/86eddc588073e007823ca6bacbb11ae5.png

 かわいいからこれでいいや。(違)

 https://backnumber.dailyportalz.jp/2017/01/25/b/img/pc/i004_03.jpg
 https://www.saladclub.jp/recipe/images/img_easter_locomoco.jpg

 …かわいいからいいってもんじゃないやい。あの有名なキャラクター(※仮名)に似すぎていませんか。…え? おばあちゃんにつくってもらったからしかたないって? えー…(てんてんてん)。

※おばあちゃんはイメージです。

[3652]
 > だいたいよさげな地形が生成されてくるパラメータって、あるじゃないですか。しかし、本当によさげかどうかはやはり、生成されたものを実際に見ないとわからないじゃないですか。ちょっとでもよさげだと思ったら保存しておいて、どんどん無数にランダム生成させていくんですよ。

 > 名前のつけようがなくて「平地」のままになっているものも多数。…うーん。「卓越○○」([3543],[3403])みたいなの(※何か1つの目立つやつ)がないと名前に困るんですけど、地形として魅力がないわけではないんですよ。「一部の人にわかりやすく言えば、京王線の府中の先あたりから調布くらいまでの感じである。」からの「これまた普通の市街地といった様相で、強いて言ったら相模原、町田あたりに似た風景がつづく。」については[3213]を参照。…そこがいいんですよっ!

 あのエターナルフォースブリザードをもういちど。きゃー。(違)

[3574]
 > > カタストロフ

[3688]
 > …カタストロフ! なんだか とっても おいしそう。

・「カタストロフ」のイメージです
 https://mai-sen.com/news/37391dcf3c4e043fec21351a543fb80a760e7223.jpg
 https://mai-sen.com/news/adfbe08e4b6691fd561657ce2ba9b4f73c4dd490.jpg
 https://www.yamazakipan.co.jp/lunch-p/images/item/large_1001.jpg
 https://www.yamazakipan.co.jp/lunch-p/shop/interview/img/img20.jpg

 肩透かしな味が生々しく想像されてくるところまでが「カタストロフ」です!(キリッ

 https://www.yamazakipan.co.jp/lunch-p/assets/images/shop/img_shop_b_02.png

 左が東武で右が西武だという。池袋である。目が白黒した。…山手線だけに。(しーん)

[3680]
 > 海老名市内某所でうえうえしたしたAB海老っ(違)「(前略)成田線成田さわらほーめんは9番線、10番線に、お乗り換えください。」みたいに朗々と読み上げてみせるとGOOD!!

 https://youtu.be/XsEJGP7uH0A




 ▼「AB海老」「鬼が島BASIC」からの「?!」については[3129]、それに▼「タイトー海老名開発センター」については[3141],[3180]を参照。

・マップの中心から見て「北の湖」「西の川」「南の海」「はるか沖」みたいな(げふ)
・平面の座標を角度と半径(rとΘ)に変換すればいいじゃないか(「4隅」を“適当に”軽く見る=遠いとみなす=ことになる)

 https://www.nedo.go.jp/fuusha/imgs/public/c_01_02_fig.png

 えー…(てんてんてん)。

・「マップの中心」というのも、きれいに折り紙したみたいに中心でもいいけれど、点群の重心を使ってもいいのでは…(てんてんてん)

 ありがとうございました。(棒読み)


 [4075]に続きます。


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


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


[4072]

「照焼大橋」不滅なれ(ゆんゆん編)

2020/5/21

[4073]

「照焼大橋」不滅なれ(タルタル編)

2020/5/21

[4075]

「照焼大橋」不滅なれ(モスクワ編)

2020/5/21

[4077]

「照焼大橋」不滅なれ(上流足尾編)

2020/5/21

[4078]

「照焼大橋」不滅なれ(ばりばり編)

2020/5/21

[4079]

「照焼大橋」不滅なれ(ぱりぱり編)

2020/5/21

[4080]

「照焼大橋」不滅なれ(かりかり編)

2020/5/21

[4081]

「照焼大橋」不滅なれ(クラスト編)

2020/5/21

[4082]

「照焼大橋」不滅なれ(高速旅情編)

2020/5/21

[4228]

「データベース」とは何か

2020/10/1

[4234]

きょうは南栗橋でぎゃふん。

2020/10/1

[4321]

「照焼大橋」不滅なれ(再起動編)

2020/12/1

[4665]

きょうは堀田善衞でメルヘン街道。

2021/12/1

[4795]

ハイソになろうよ(たいやき編)

2022/6/1

[4856]

拙作「ABC電鉄(XQDK-R21)」が往く(再)

2022/9/1

[4864]

「A列車で行こう3D 路線図」こもごも(談)

2022/9/1

[4995]

【A9・Exp.】ウィキの「整列配置」を「物理学術語和英仏独対訳字書」(1888年)で斬る(試)【浮動小数点はご容赦ください】

2023/3/3

[5118]

【DQ3】「ほこら」を「トマゾ・アルビノーニ」で読み解く【イーハトーヴの風あり】

2023/11/1


関連する記事


[4235]

きょうは天下茶屋で有楽町層。 tht - 2020/10/1


[5240]

実例に見る総合評価(5) N県立高:理数探究基礎の5段階評価 tht - 2024/5/31


[4634]

ふれねる「自由研究 数学」の計(KEI) tht - 2021/8/25


[4983]

ベクトル海百山百のうたげ(宴) tht - 2023/2/1


[4049]

いつかどこかの「新橋立」で(インサイト編) tht - 2020/5/7


[4973]

【A9・Exp.】発掘「三都物語」(再) tht - 2023/2/1


[4496]

【A9V2】シャイニング「夕日町計画」かがやけ(R編) tht - 2021/4/1


[4546]

春日井熊野町店は17分「三菱←→ドンキ」と「羽犬塚←→黒木」の違い【パスコあり】 tht - 2021/5/13






neorail.jp/は、個人が運営する非営利のウェブサイトです。広告ではありません。 All Rights Reserved. ©1999-2025, tht.