|
・「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 ]」
昇順で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)」
| V1 | V2 | V3 | V4 | | | | | | 1 | 0 | 0 | -50 | 22 | 2 | 1 | 0 | -50 | 22 | 3 | 2 | 0 | -40 | 22 | 4 | 3 | 0 | -30 | 22 | 5 | 4 | 0 | -20 | 22 | 6 | 5 | 0 | -20 | 22 | 7 | 6 | 0 | -20 | 22 | 8 | 7 | 0 | -10 | 22 | 257 | 0 | -1 | -30 | 22 | 258 | 1 | -1 | -30 | 22 | 259 | 2 | -1 | -20 | 22 | 260 | 3 | -1 | -20 | 22 | 261 | 4 | -1 | -10 | 22 | 262 | 5 | -1 | -10 | 22 | 263 | 6 | -1 | -10 | 22 | 513 | 0 | -2 | -20 | 22 | 514 | 1 | -2 | -20 | 22 | 515 | 2 | -2 | -10 | 22 | 516 | 3 | -2 | -10 | 22 | 517 | 4 | -2 | -10 | 22 | 769 | 0 | -3 | -10 | 22 | 770 | 1 | -3 | -10 | 22 |
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]に続きます。
| |