inst/doc/kanjistat.R

In kanjistat: A Statistical Framework for the Analysis of Japanese Kanji Characters

## ----setup, include = FALSE-------------------------------------------------------------
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)
oldopt <- options(width = 90)
if(capabilities("cairo"))
    knitr::opts_chunk$set(dev.args = list(png  = list(type = "cairo")))

## ----message=FALSE----------------------------------------------------------------------
library(kanjistat)
lookup("猫")  

## ----error=TRUE-------------------------------------------------------------------------
"\u732b"
lookup("\u732b")
# "\u{26951}" gives usually Error: invalid \u{xxxx} sequence
"\U26951"
"\U00026951"

## ---------------------------------------------------------------------------------------
codepointToKanji("26951")
kanjiToCodepoint("猫")  

## ---------------------------------------------------------------------------------------
lookup("猫")
lookup(c("猫","犬"), "basic")
lookup(c("猫","犬"), "morphologic")

## ----message = FALSE--------------------------------------------------------------------
kbase[kbase$strokes > 30,]

if (require(dplyr)) {
  kbase %>% filter(strokes > 30)
}

## ----eval=FALSE-------------------------------------------------------------------------
#  # Pregenerated output, run on the author's system. Your mileage may vary.
#  
#  # Locate the free kaisho font by Nagayama Norio (previously installed)
#  nagayama <- systemfonts::match_font("nagayama_kai")
#  nagayama
#  #> $path
#  #> [1] "/Users/dschuhm/Library/Fonts/nagayama_kai08.otf"
#  #>
#  #> $index
#  #> [1] 0
#  #>
#  #> $features
#  #> NULL
#  hsans <- systemfonts::match_font("Hiragino Sans")
#  hmincho <- systemfonts::match_font("Hiragino Mincho ProN")
#  yukyokasho <- systemfonts::match_font("YuKyokasho")
#  
#  # Add the font to the sysfonts database under the name given by `family`
#  sysfonts::font_add(family = "nagayama_kai", regular=nagayama$path)
#  sysfonts::font_add(family = "hiragino_sans", regular=hsans$path)
#  sysfonts::font_add(family = "hiragino_mincho", regular=hmincho$path)
#  sysfonts::font_add(family = "yu_kyokasho", regular=yukyokasho$path)
#  
#  # Display the fonts families in the sysfonts database
#  sysfonts::font_families()
#  #> [1] "sans"            "serif"           "mono"            "nagayama_kai"    "hiragino_sans"
#  #> [6] "hiragino_mincho" "yu_kyokasho"

## ----echo = FALSE, eval = FALSE---------------------------------------------------------
#  require(systemfonts)
#  # looking for the free kaisho font by Nagayama Norio we have previously installed
#  nagayama <- systemfonts::match_font("nagayama_kai")
#  nagayama
#  hsans <- systemfonts::match_font("Hiragino Sans")
#  hmincho <- systemfonts::match_font("Hiragino Mincho ProN")
#  yukyokasho <- systemfonts::match_font("YuKyokasho")
#  
#  sysfonts::font_add(family = "nagayama_kai", regular=nagayama$path)
#  sysfonts::font_add(family = "hiragino_sans", regular=hsans$path)
#  sysfonts::font_add(family = "hiragino_mincho", regular=hmincho$path)
#  sysfonts::font_add(family = "yu_kyokasho", regular=yukyokasho$path)
#  
#  sysfonts::font_families()
#  # showtext_auto()    # sees to it that showtext gets used when we say text below
#  # showtext_auto(enable = FALSE)

## ----eval=FALSE, fig.align='left', fig.height=5, fig.width=7, fig.showtext=TRUE, message=FALSE----
#  # Pregenerated output, run on the author's system. Your mileage may vary.
#  
#  showtext::showtext_auto()  # give control for displaying text in plots to package `showtext`
#  oldpar <- par(mai=c(0.8, 0.4, 0.8, 0.4))
#  
#  # data
#  petpercent <- c(11.1, 9.6, 3.5, 2.2, 1.6, 1.5, 1.4, 0.7, 0.6, 0.5, 0.4, 0.4, 0.3, 0.2, 0.1, 0.1, 0.5)
#  petshort <- c(petpercent[1:7], sum(petpercent[8:17]))
#  petnames <- c("犬", "猫", "メダカ", "金魚", "カメ", "小鳥", "熱帯魚", "その他")
#  
#  # plot and annotate
#  barplot(petshort, las=1, col="darkolivegreen3", # names.arg=petnames does not position nicely
#          main="ペット現在飼育状況 (2002年)\n (Pet Ownership 2022 in Japan)", family="hiragino_mincho")
#  mtext(petnames, side=1, line=0.35, at=-0.5 + 1.2*(1:8), family="hiragino_mincho")
#    # bars have width 1 and space 0.2
#  mtext("%", side=2, line=0.5, at=11, las=1, family="hiragino_mincho")
#  mtext("Source: ペットフード協会 (https://petfood.or.jp/data/)", side=1, line=2,
#        family="hiragino_mincho", cex=0.75)
#  
#  par(oldpar)
#  showtext::showtext_auto(enable = FALSE)  # give back control to the usual R code

## ----echo=FALSE, eval=TRUE--------------------------------------------------------------
 if (knitr::is_html_output()) {
   knitr::asis_output("![](./figures/japanese_pets.svg){width=90%}")
 } else {
   knitr::asis_output("![](./figures/japanese_pets.pdf){width=90%}")
 }

## ----message=FALSE, eval=FALSE, fig.align='left', fig.height=2, fig.width=8, fig.showtext=TRUE, message=FALSE----
#  # Pregenerated output, run on the author's system. Your mileage may vary.
#  plotkanji(rep("猫",4), family=c("hiragino_sans", "hiragino_mincho", "yu_kyokasho", "nagayama_kai"),
#            height=2)

## ----message=FALSE, echo=FALSE, eval=FALSE, fig.align='left', fig.height=2, fig.width=8, fig.showtext=TRUE, message=FALSE----
#  plotkanji(rep("猫",4), device="png", filename="four_cats.png",
#            family=c("hiragino_sans", "hiragino_mincho", "yu_kyokasho", "nagayama_kai"),
#            factor=40, width=1536, height=384)

## ----echo=FALSE, eval=FALSE, fig.align='left', fig.height=2, fig.showtext=TRUE, fig.width=8, message=FALSE----
#  # Pregenerated output, run on the author's system. Your mileage may vary.
#  fuji <- kanjimat(kanji="藤", family="nagayama_kai", size = 128)
#  fuji
#  str(fuji)
#  plot(fuji)

## ----message=FALSE, eval=FALSE----------------------------------------------------------
#  # Pregenerated output, run on the author's system. Your mileage may vary.
#  fuji <- kanjimat(kanji="藤", family="nagayama_kai", size = 128)
#  fuji
#  #> Kanjimat representation of 藤 (Unicode 85e4)
#  #> 128x128 bitmap in nagayama_kai font with 0 margin, antialiased
#  str(fuji)
#  #> List of 8
#  #>  $ char     : chr "藤"
#  #>  $ hex      : 'hexmode' int 85e4
#  #>  $ padhex   : chr "085e4"
#  #>  $ family   : chr "nagayama_kai"
#  #>  $ size     : num 128
#  #>  $ margin   : num 0
#  #>  $ antialias: logi TRUE
#  #>  $ matrix   : num [1:128, 1:128] 0 0 0 0 0 0 0 0 0 0 ...
#  #>  - attr(*, "call")= chr "kanjimat(kanji = \"藤\", family = \"nagayama_kai\", size = 128)"
#  #>  - attr(*, "kanjistat_version")=Classes 'package_version', 'numeric_version'  hidden list of 1
#  #>   ..$ : int [1:3] 0 8 0
#  #>  - attr(*, "Rversion")= chr "R version 4.3.0 (2023-04-21)"
#  #>  - attr(*, "platform")= chr "x86_64-apple-darwin20"
#  #>  - attr(*, "png_type")= chr "cairo"
#  #>  - attr(*, "class")= chr "kanjimat"
#  plot(fuji)

## ----eval = FALSE-----------------------------------------------------------------------
#  sysfonts::font_add(family = "nagayama_kai", regular="/Users/dschuhm/Library/Fonts/nagayama_kai08.otf")

## ----eval = FALSE-----------------------------------------------------------------------
#  kanjistat_options(ask_github = TRUE, default_bitmap_size = 64, default_font = "yu_kyokasho")

## ----eval = FALSE-----------------------------------------------------------------------
#  load("/path/to/the/data/kvec.rda", envir = .GlobalEnv)

## ----cleanup, include = FALSE-------------------------------------------------
  options(oldopt)