419kfj/futools

---
output: github_document
---

<!-- README.md is generated from README.Rmd. Please edit that file -->

```{r, echo = FALSE}
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>",
  fig.path = "README-"
)
```

# futools

このPackageは、vcdが提供するmosaic などのグラフ生成ツールで日本語を使えるようにするものです。

カテゴリカルデータの可視化には、Michael Friendly先生たちのvcd（その名もずばり、Visualizing of Categorical Data：カテゴリカルデータの可視化）が有効なことはいろいろなところでこのパッケージが紹介されていることからもわかります。ただ、グラフィックがbase graphics ではなく、（latticeやggplot2でも使われている）gridであることもあり、日本語表示が簡単ではありませんでした。

しかし、gpar に日本語フォントを指定することでmosaicなどのvcd function で日本語がつかえるようになります。

当初は、一々mosaic()の中にパラメータで書いていたのですが、さすがに面倒になったので、wrapper をパッケージにしてみました。

Github からインストールできますので、使ってみてください。

## Installation

githubから以下のようにしてインストールできます：

```{r gh-installation, eval = FALSE}
# install.packages("devtools")
devtools::install_github("419kfj/futools")
```

## Example

This is a basic example which shows you how to solve a common problem:

```{r example}
library(vcd)
library(RColorBrewer)

# data set
data(HairEyeColor_jp)

# plain mosaic_jp
mosaic_jp0(HairEyeColor_jp)

# without cell color
mosaic_jp2(HairEyeColor_jp)

# set cell color by color matrix
cset <- t(matrix(rep(brewer.pal(4,"Blues"),2),ncol=2))
mosaic_jp2(HairEyeColor_jp,gp=gpar(fill=cset,col=0))

# Pearson residulas
mosaic_jp2(HairEyeColor_jp,shade=TRUE)
}
```

# 参考文献

- 藤本一男,2017, 「二つのmosaic plotと日本語表示」
  https://www.slideshare.net/kazuofujimoto/2mosaic-plot-80084536
- 藤本一男,2017, 「vcd/vcdExtra で日本語を使う その2」
    https://www.slideshare.net/kazuofujimoto/use-japanese-with-vcdvcdextra-package
- David Meyer, Achim Zeileis, Kurt Hornik , 2007, The Strucplot Framework: Visualizing Multi-way Contingency Tables with vcd, Journal of Statistical Software,Vol17,
    https://www.jstatsoft.org/index.php/jss/article/view/v017i03/v17i03.pdf
- Michael Friendly,2017, Working with categorical data with R and the vcd and vcdExtra packages,
    https://cran.r-project.org/web/packages/vcdExtra/vignettes/vcd-tutorial.pdf