Nothing
knitr::opts_chunk$set( collapse = TRUE, comment = "#>" )
library(tabularmaps) library(ggplot2)
if (grepl("linux", version$os)) { font_family <- "IPAPGothic" } else { font_family <- "IPAexGothic" }
Japan
tabularmap(jpn77, fill = region_kanji, label = prefecture_kanji, family = font_family) + theme_tabularmap(base_family = font_family) + scale_fill_jpregion(lang = "jp") + guides(fill = guide_legend(title = "8地方区分", nrow = 1, title.position = "top",title.hjust = 0.5)) + theme(legend.title = element_text(size = 12), legend.text = element_text(size = 10), legend.position = "bottom")
Global (ISO 3166 code)
tabularmap(iso3166, fill = continent, label = iso3c, size = 2) + theme_tabularmap() + guides(fill = guide_legend(title = "Continent")) + theme(legend.title = element_text(size = 10), legend.text = element_text(size = 8))
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.