mjchar

mjcharは文字情報技術促進協議会による文字情報基盤整備事業で整備された漢字文字集合であるMJ文字についての情報検索を行うRパッケージです。

本パッケージが提供するMJ文字情報の一覧データは情報処理推進機構(IPA)ならびに文字情報技術促進協議会の著作物です。クリエイティブ・コモンズ 表示 – 継承 2.1 日本 ライセンスにより配布されています。

インストール

現在、mjcharはCRANには登録されていませんが、次のコマンドを実行することで インストールが可能です。

install.packages("mjchar", repos = "https://uribo.r-universe.dev")

利用方法

library(mjchar)

(x <- "\U74dc")
#> [1] "瓜"

(y <- "\U771f")
#> [1] "真"

MJ文字情報

漢字についての情報を確認することができます。

# 文字情報基盤検索システムへのリンクを表示します
search_mojikiban(x, input_type = "font")
#> <cli_ansi_string>
#> [1] ]8;;https://moji.or.jp/mojikibansearch/info?MJ文字図形名=MJ017521瓜]8;;

moji_to_mjcode(x)
#> [1] "MJ017521"

moji_information(y)
#> $font
#> [1] "真"
#> 
#> $MJ文字図形名
#> [1] "MJ018173"
#> 
#> $対応するUCS
#> [1] "U+771F"
#> 
#> $実装したUCS
#> [1] "U+771F"
#> 
#> $実装したMoji_JohoコレクションIVS
#> [1] "771F_E0102"
#> 
#> $実装したSVS
#> [1] NA
#> 
#> $戸籍統一文字番号
#> [1] "259890"
#> 
#> $住基ネット統一文字コード
#> [1] "J+771F"
#> 
#> $入管正字コード
#> [1] "0x771F"
#> 
#> $入管外字コード
#> [1] NA
#> 
#> $漢字施策
#> [1] "常用漢字"
#> 
#> $対応する互換漢字
#> [1] NA
#> 
#> $X0213
#> [1] "1-31-31"
#> 
#> $`X0213 包摂連番`
#> [1] NA
#> 
#> $`X0213 包摂区分`
#> [1] 0
#> 
#> $X0212
#> [1] NA
#> 
#> $MJ文字図形バージョン
#> [1] 1
#> 
#> $`登記統一文字番号(参考)`
#> [1] "00259890"
#> 
#> $`部首1(参考)`
#> [1] 109
#> 
#> $`内画数1(参考)`
#> [1] 5
#> 
#> $`部首2(参考)`
#> [1] NA
#> 
#> $`内画数2(参考)`
#> [1] NA
#> 
#> $`部首3(参考)`
#> [1] NA
#> 
#> $`内画数3(参考)`
#> [1] NA
#> 
#> $`部首4(参考)`
#> [1] NA
#> 
#> $`内画数4(参考)`
#> [1] NA
#> 
#> $`総画数(参考)`
#> [1] 10
#> 
#> $`読み(参考)`
#> [1] "シン・ま・まこと"
#> 
#> $更新履歴
#> [1] NA
#> 
#> $備考
#> [1] NA

漢字の使われ方

• 読み
• 漢字施策: 対象の漢字が常用漢字・人名用漢字に含まれるかを判定します。
• 画数、部首の確認

moji_to_yomi(x)
#> $on
#> [1] "カ"
#> 
#> $kun
#> [1] "うり"
moji_to_yomi(y)
#> $on
#> [1] "シン"
#> 
#> $kun
#> [1] "ま"     "まこと"

is_jyouyou_kanji(x)
#> [1] FALSE
is_jyouyou_kanji(y)
#> [1] TRUE

is_jinmeiyou_kanji(x)
#> [1] TRUE
is_jinmeiyou_kanji(y)
#> [1] FALSE

kakusu("\U74DC")
#>       内画数1(参考) 内画数2(参考) 内画数3(参考) 内画数4(参考) 総画数(参考)
#> 16891             0            NA            NA          <NA>            6
busyu("\U74DC")
#>       部首1(参考) 部首2(参考) 部首3(参考) 部首4(参考)
#> 16891          97          NA          NA        <NA>

そのほか

set.seed(20220622)
sample_moji(1)
#> [1] "駂"