Skip to content

Instantly share code, notes, and snippets.

@yutannihilation
Created October 26, 2015 15:35
Show Gist options
  • Select an option

  • Save yutannihilation/227a2b634a0b5fa117c7 to your computer and use it in GitHub Desktop.

Select an option

Save yutannihilation/227a2b634a0b5fa117c7 to your computer and use it in GitHub Desktop.
Nippon、文字化け...
library(Nippon)
data(prefectures)
kakasi(head(prefectures$name))
#> <NA> <NA> 蟯ゥ謇狗恁 螳ョ蝓守恁 <NA> <NA>
#> "NA" "NA" "gyouukenkujin" "touyoyushujin" "NA" "NA"
head(prefectures$name)
#> [1] "北海道" "青森県" "岩手県" "宮城県" "秋田県" "山形県"
kakasi(c("北海道", "青森県", "岩手県", "宮城県", "秋田県", "山形県"))
#> 北海道 青森県 岩手県 宮城県 秋田県 山形県
#> "hokkaidou" "aomoriken" "iwateken" "miyagiken" "akitaken" "yamagataken"
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment