Nothing
## ---- include = FALSE---------------------------------------------------------
knitr::opts_chunk$set(
collapse = TRUE,
comment = "#>"
)
## ----setup--------------------------------------------------------------------
library(tabularmaps)
library(ggplot2)
## -----------------------------------------------------------------------------
if (grepl("linux", version$os)) {
font_family <- "IPAPGothic"
} else {
font_family <- "IPAexGothic"
}
## ---- eval=FALSE, echo=TRUE---------------------------------------------------
# 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")
## ---- eval=FALSE, echo=TRUE---------------------------------------------------
# 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.