factoextra with showtext

• FactoMineR v2.0
• factoextra 1.0.6
• important info: “showtext: Using Fonts More Easily in R Graphs” https://cran.rstudio.com/web/packages/showtext/vignettes/introduction.html

knitr::opts_chunk$set(echo = TRUE)
library(FactoMineR)
library(factoextra)
library(showtext)

.tbl2.1 <- matrix(c(395, 2456,1758,
                    147, 153, 916, 
                    694, 327, 1347),byrow=T,3,3,
                  dimnames = list(地域=c("オスロ","中部地域","北部地域"),
                                    犯罪=c("強盗", "詐欺","破壊") ))

.tbl2.1

##           犯罪
## 地域     強盗 詐欺 破壊
##   オスロ    395 2456 1758
##   中部地域  147  153  916
##   北部地域  694  327 1347

showtext_auto()
res.CA <- CA(.tbl2.1, graph=FALSE)
fviz_ca_biplot(res.CA)