ライブラリをインポートする
library(ggplot2)
library(treemap)
library(treemapify)
library(knitr)
’treemapify’に含まれるG20のサンプル
# show sample data
G20
G20のグラフを作成
# draw the tree map of G 20
ggplot(G20, aes(area = gdp_mil_usd, fill = region, label = country)) +
geom_treemap() +
geom_treemap_text(grow = T, reflow = T, colour = "black") +
facet_wrap( ~ econ_classification) +
scale_fill_brewer(palette = "Set1") +
theme(legend.position = "bottom") +
labs(
title = "The G-20 major economies",
caption = "The area of each country is proportional to its relative GDP
within the economic group (advanced or developing)",
fill = "Region"
)

LS0tCnRpdGxlOiAiVHJlZW1hcCBTbXBsZSBHMjAiCnN1dGhvcjogInNoaWJhdGF1IgpkYXRlOiAiV2ludGVyIDIwMTgiCm91dHB1dDogaHRtbF9ub3RlYm9vawotLS0KCuODqeOCpOODluODqeODquOCkuOCpOODs+ODneODvOODiOOBmeOCiwpgYGB7cn0KIyBpbXBvcnQgbGlicmFyaWVzCmxpYnJhcnkoZ2dwbG90MikKbGlicmFyeSh0cmVlbWFwKQpsaWJyYXJ5KHRyZWVtYXBpZnkpCmxpYnJhcnkoa25pdHIpCmBgYAoKJ3RyZWVtYXBpZnkn44Gr5ZCr44G+44KM44KLRzIw44Gu44K144Oz44OX44OrCmBgYHtyfQojIHNob3cgc2FtcGxlIGRhdGEKRzIwCmBgYAoKRzIw44Gu44Kw44Op44OV44KS5L2c5oiQCmBgYHtyfQojIGRyYXcgdGhlIHRyZWUgbWFwIG9mIEcgMjAKZ2dwbG90KEcyMCwgYWVzKGFyZWEgPSBnZHBfbWlsX3VzZCwgZmlsbCA9IHJlZ2lvbiwgbGFiZWwgPSBjb3VudHJ5KSkgKwogIGdlb21fdHJlZW1hcCgpICsKICBnZW9tX3RyZWVtYXBfdGV4dChncm93ID0gVCwgcmVmbG93ID0gVCwgY29sb3VyID0gImJsYWNrIikgKwogIGZhY2V0X3dyYXAoIH4gZWNvbl9jbGFzc2lmaWNhdGlvbikgKwogIHNjYWxlX2ZpbGxfYnJld2VyKHBhbGV0dGUgPSAiU2V0MSIpICsKICB0aGVtZShsZWdlbmQucG9zaXRpb24gPSAiYm90dG9tIikgKwogIGxhYnMoCiAgICB0aXRsZSA9ICJUaGUgRy0yMCBtYWpvciBlY29ub21pZXMiLAogICAgY2FwdGlvbiA9ICJUaGUgYXJlYSBvZiBlYWNoIGNvdW50cnkgaXMgcHJvcG9ydGlvbmFsIHRvIGl0cyByZWxhdGl2ZSBHRFAKICAgIHdpdGhpbiB0aGUgZWNvbm9taWMgZ3JvdXAgKGFkdmFuY2VkIG9yIGRldmVsb3BpbmcpIiwKICAgIGZpbGwgPSAiUmVnaW9uIgogICkKYGBgCgo=