subdivisionjp.R provides convSubdiv() function to convert the names of principal subdivisions in Japan and corresponding codes.
subdivisionjp.R requires iso3166-2jp.csv in the same directory.
convSubdiv(query, field = "code")
query is a vector or list containing numeric values or character strings to be converted.
field is a character string to specify a type of returned values.
Either of the following can be specified as field.
'code' (default. subdivision code)'romanIso' (ISO Roman name)'romanBs' (British Standards Roman name)'jaLong' (Japanese longer name)'jaShort' (Japanese shorter name)The following files are assumed to be in the current directory.
First, load subdivisionjp.R and example csv data (example.csv).
source("subdivisionjp.R")
example <- read.csv("example.csv")
example$subdivision represents principal subdivisions, but the data is messy.
To make them tidy, you can use convSubdiv() function as follows.
To get corresponding codes,
example$subdivision <- convSubdiv(example$subdivision, "code")
or simply,
example$subdivision <- convSubdiv(example$subdivision)
To get Roman names (ISO),
example$subdivision <- convSubdiv(example$subdivision, "romanIso")
To get Roman names (British Standards),
example$subdivision <- convSubdiv(example$subdivision, "romanBs")
convSubdiv(13, "romanBs") # 13 is Tokyo.
## [1] Tokyo
## 47 Levels: Aichi Akita Aomori Chiba Ehime Fukui Fukuoka Fukushima ... Yamanashi
To get Japanese names (Kanji, longer version),
example$subdivision <- convSubdiv(example$subdivision, "jaLong")
To get Japanese names (Kanji, shorter version),
example$subdivision <- convSubdiv(example$subdivision, "jaShort")
If the query doesn't match, the query itself is returned.
convSubdiv("unknown")
## unknown
## "unknown"
convSubdiv(100)
## [1] 100