Wrapper to use Japanse font with vcd::mosaic and build it as pakcage
0 likes576 views
This document discusses creating mosaic plot wrappers in R. It describes writing functions that wrap the base mosaicplot function to add customization options like color palettes, labels, and titles. Code examples are provided for wrapper functions that allow setting the color palette, margins, label formatting, and keeping or rotating labels. Instructions are given for packaging the wrapper functions into an R package and publishing it to GitHub.
![# colset is the col name of RColorbrewer ex: "Pastel1", "Blues"
# library(RColorBrewer)
# display.brewer.all(n=10, exact.n=FALSE) # you can see the color palette
mosaic_jp1 <- function(.tbl,main="mosaic_jp1",colset="Set3",...){
nc <- (dim(.tbl))[2]
mosaic(.tbl,gp=gpar(fill=brewer.pal(nc,colset),col=0),
margins = c(left = 5,top = 4),
labeling_args=my.largs,
main_gp = my.main, sub_gp = my.sub,
rot_labels = c(left = 0, top = 45,right=0),
keep_aspect_ratio=FALSE,
# main=main,
labeling = labeling_values)
}
mosaic_jp1
mosaic_jp2](https://image.slidesharecdn.com/tokyo-180420065359/85/Wrapper-to-use-Japanse-font-with-vcd-mosaic-and-build-it-as-pakcage-5-320.jpg)
Wrapper to use Japanse font with vcd::mosaic and build it as pakcage
- 2. mosaic plot • • • • n =xx
- 3. • 65 2 mosaic plot • 66 vcd/vcdExtra 2 • 67 vcd (3) long format Gateway • Slide share • vcd::mosaic base::mosaicplot • • • ….
- 4. my.largs <- list(gp_labels = gpar(fontsize =10, fon;amily = "sans"), gp_varnames = gpar(fontsize = 12, fon;amily = "sans"), gp_text=gpar(fontsize =10, fon;amily = "sans")) my.main <- gpar(fontsize = 14,fon;amily = "sans") # for main Ctle my.sub <- gpar(fontsize = 10,fon;amily = "sans") # for sub Ctle text_gp <- gpar(fontsize = 12,fon;amily = "sans")# for facet # wapper of mosaic basic wrapper # mosaic_jp <- funcCon(.tbl,...){ mosaic(.tbl, labeling_args=my.largs, main_gp = my.main, sub_gp = my.sub, ...) } mosaic
- 5. # colset is the col name of RColorbrewer ex: "Pastel1", "Blues" # library(RColorBrewer) # display.brewer.all(n=10, exact.n=FALSE) # you can see the color palette mosaic_jp1 <- function(.tbl,main="mosaic_jp1",colset="Set3",...){ nc <- (dim(.tbl))[2] mosaic(.tbl,gp=gpar(fill=brewer.pal(nc,colset),col=0), margins = c(left = 5,top = 4), labeling_args=my.largs, main_gp = my.main, sub_gp = my.sub, rot_labels = c(left = 0, top = 45,right=0), keep_aspect_ratio=FALSE, # main=main, labeling = labeling_values) } mosaic_jp1 mosaic_jp2
- 6. • • Wrapper • function • .R source() • Package
- 7. Package …. • R19.x Windows• … Mac• CRAN• • • ……
- 8. Package • CRAN GitHub • devtools • • • RStudio GitHub PUSH Git
- 10. (^^) • GitHub PUSH PUSH PUSH • Build • GitHub PUSH
- 12. • /R
- 13. mosaic_jp
- 14. • Build → Install & Restart
- 16. vcd::mosaic
- 18. GitHub OK • iMac SSD MacBook Dropbox • R/RStudio Git ( Mac ….) • vcdJp Git Build • Install & Restart vcdJp •
- 19. • mac RStudio Build • Dropbox • GitHub PUSH PUSH …. • CRAN
- 22. • ,2018, 2 mosaic plot 50 • ,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 • ,2017, vcd 3 long format Gateway https://www.slideshare.net/kazuofujimoto/vcd3-long-format- gateway • 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