ライブラリをインポートする

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=