---
title: "tabularmaps01"
output: rmarkdown::html_vignette
vignette: >
%\VignetteIndexEntry{tabularmaps01}
%\VignetteEngine{knitr::rmarkdown}
%\VignetteEncoding{UTF-8}
---
```{r, include = FALSE}
knitr::opts_chunk$set(
collapse = TRUE,
comment = "#>"
)
```
```{r setup}
library(tabularmaps)
library(ggplot2)
```
```{r}
if (grepl("linux", version$os)) {
font_family <- "IPAPGothic"
} else {
font_family <- "IPAexGothic"
}
```
**Japan**
```{r, 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")
```
**Global** (ISO 3166 code)
```{r, 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))
```