@u_riboありがとう！
http://rpubs.com/uri-sy/nippon_kana2roma
やりたいことは対応を知りたいだけなので、完全に一致させなくてもsortだけすれば意外といける？と思ったのでちょっとやってみる。
library(Nippon)## Loading required package: maptools
## Loading required package: sp
## Checking rgeos availability: TRUElibrary(choroplethrAdmin1)
library(magrittr)
data("prefectures")
# WindowsではいちどSJISにしないとkakasiがうまく動かない（ヘルプにこうしろとかいてある。。。）
prefectures.cp932 <- iconv(prefectures$name, from = "UTF-8", to = "CP932")
pref_alpha <- kakasi(prefectures.cp932)
names(pref_alpha) <- NULL
pref_choro <- get_admin1_regions("japan")$region
data.frame(npn = sort(pref_alpha), choro = sort(pref_choro), stringsAsFactors = FALSE) %>%
knitr::kable(.)| npn | choro |
|---|---|
| aichiken | aichi |
| akitaken | akita |
| aomoriken | aomori |
| chibaken | chiba |
| ehimeken | ehime |
| fukuiken | fukui |
| fukuokaken | fukuoka |
| fukushimaken | fukushima |
| gifuken | gifu |
| gunmaken | gunma |
| hiroshimaken | hiroshima |
| hokkaidou | hokkaido |
| hyougoken | hyogo |
| ibarakiken | ibaraki |
| ishikawaken | ishikawa |
| iwateken | iwate |
| kagawaken | kagawa |
| kagoshimaken | kagoshima |
| kanagawaken | kanagawa |
| kouchiken | kochi |
| kumamotoken | kumamoto |
| kyoutofu | kyoto |
| mieken | mie |
| miyagiken | miyagi |
| miyazakiken | miyazaki |
| naganoken | nagano |
| nagasakiken | nagasaki |
| naraken | nara |
| niigataken | niigata |
| okayamaken | oita |
| okinawaken | okayama |
| ooitaken | okinawa |
| oosakafu | osaka |
| sagaken | saga |
| saitamaken | saitama |
| shigaken | shiga |
| shimaneken | shimane |
| shizuokaken | shizuoka |
| tochigiken | tochigi |
| tokushimaken | tokushima |
| tottoriken | tokyo |
| toukyouto | tottori |
| toyamaken | toyama |
| wakayamaken | wakayama |
| yamagataken | yamagata |
| yamaguchiken | yamaguchi |
| yamanashiken | yamanashi |
大分とか鳥取あたりがあやしい。おしい！
ooとかouをなんとかすればどうにかなりそう。
pref_alpha2 <- pref_alpha %>%
stringr::str_replace_all("o[ouh]", "o")
data.frame(npn = sort(pref_alpha2), choro = sort(pref_choro), stringsAsFactors = FALSE) %>%
knitr::kable(.)| npn | choro |
|---|---|
| aichiken | aichi |
| akitaken | akita |
| aomoriken | aomori |
| chibaken | chiba |
| ehimeken | ehime |
| fukuiken | fukui |
| fukuokaken | fukuoka |
| fukushimaken | fukushima |
| gifuken | gifu |
| gunmaken | gunma |
| hiroshimaken | hiroshima |
| hokkaido | hokkaido |
| hyogoken | hyogo |
| ibarakiken | ibaraki |
| ishikawaken | ishikawa |
| iwateken | iwate |
| kagawaken | kagawa |
| kagoshimaken | kagoshima |
| kanagawaken | kanagawa |
| kochiken | kochi |
| kumamotoken | kumamoto |
| kyotofu | kyoto |
| mieken | mie |
| miyagiken | miyagi |
| miyazakiken | miyazaki |
| naganoken | nagano |
| nagasakiken | nagasaki |
| naraken | nara |
| niigataken | niigata |
| oitaken | oita |
| okayamaken | okayama |
| okinawaken | okinawa |
| osakafu | osaka |
| sagaken | saga |
| saitamaken | saitama |
| shigaken | shiga |
| shimaneken | shimane |
| shizuokaken | shizuoka |
| tochigiken | tochigi |
| tokushimaken | tokushima |
| tokyoto | tokyo |
| tottoriken | tottori |
| toyamaken | toyama |
| wakayamaken | wakayama |
| yamagataken | yamagata |
| yamaguchiken | yamaguchi |
| yamanashiken | yamanashi |
なんとかなってるぽいです。