この図は何を表しているでしょう part 1

この前、Twitterに上がってるのを見て、やってみようと思いました。暇な時にでも暇つぶしとしてクイズに答えてみてください。学校の出し物にも役に立ちますよ。mathematicaで作成しました。

今からあげる図は何を表しているでしょうか？（色は関係ありません）

問題1

問題2

図の作り方(Mathematicaのコード）

問題1

Export[“problem1.jpeg”,
Rasterize[
WordCloud[{{“北海道”, 4.18}, {"青森県", 1.}, {“岩手県”, 0.98}, {"宮城県", 1.83}, {“秋田県”, 0.78}, {"山形県", 0.86}, {“福島県”, 1.47}, {"茨城県", 2.28}, {“栃木県”, 1.54}, {"群馬県", 1.54}, {“埼玉県”, 5.8}, {"千葉県", 4.95}, {“東京都”, 10.93}, {"神奈川県", 7.26}, {“新潟県”, 1.78}, {"富山県", 0.83}, {“石川県”, 0.9}, {"福井県", 0.61}, {“山梨県”, 0.65}, {"長野県", 1.63}, {“岐阜県”, 1.58}, {"静岡県", 2.89}, {“愛知県”, 5.96}, {"三重県", 1.42}, {“滋賀県”, 1.12}, {"京都府", 2.05}, {“大阪府”, 6.97}, {"兵庫県", 4.34}, {“奈良県”, 1.06}, {"和歌山県", 0.74}, {“鳥取県”, 0.44}, {"島根県", 0.54}, {“岡山県”, 1.5}, {"広島県", 2.23}, {“山口県”, 1.08}, {"徳島県", 0.58}, {“香川県”, 0.76}, {"愛媛県", 1.07}, {“高知県”, 0.56}, {"福岡県", 4.04}, {“佐賀県”, 0.65}, {"長崎県", 1.06}, {“熊本県”, 1.39}, {"大分県", 0.9}, {“宮崎県”, 0.85}, {"鹿児島県", 1.28}, {“沖縄県”, 1.14`}}],
ImageResolution -> 1000]]

問題2

Export[“problem2.jpeg”,
Rasterize[
WordCloud[{{“北海道”, 3088550}, {“青森県”, 480990}, {“岩手県”,
515670}, {“宮城県”, 870040}, {“秋田県”, 329580}, {“山形県”,
503420}, {“福島県”, 971050}, {“茨城県”, 503900}, {“栃木県”,
757900}, {“群馬県”, 599250}, {“埼玉県”, 397260}, {“千葉県”,
2151280}, {“東京都”, 5725630}, {“神奈川県”, 1744320}, {“新潟県”,
900610}, {“富山県”, 326230}, {“石川県”, 782170}, {“福井県”,
310120}, {“山梨県”, 649030}, {“長野県”, 1308270}, {“岐阜県”,
574160}, {“静岡県”, 1589570}, {“愛知県”, 1403780}, {“三重県”,
727910}, {“滋賀県”, 375410}, {“京都府”, 1971130}, {“大阪府”,
3529430}, {“兵庫県”, 1091980}, {“奈良県”, 192470}, {“和歌山県”,
374450}, {“鳥取県”, 213140}, {“島根県”, 297300}, {“岡山県”,
491530}, {“広島県”, 1116800}, {“山口県”, 305510}, {“徳島県”,
236400}, {“香川県”, 394100}, {“愛媛県”, 359360}, {“高知県”,
251580}, {“福岡県”, 1485690}, {“佐賀県”, 213880}, {“長崎県”,
641060}, {“熊本県”, 674160}, {“大分県”, 686950}, {“宮崎県”,
363830}, {“鹿児島県”, 697090}, {“沖縄県”, 2224130}}],
ImageResolution -> 1000]]