Nigeria has 774 Local Government Areas (LGAs). There a number of factors that can make working with them particularly challenging:
fix_region is designed to address spelling
errors in sub-national administrative regions of Nigeria, with an
emphasis on States and LGAs.
For the States this is quite straightforward; common minor mistakes
can be corrected automatically by this function and since there are only
36 of them, they can otherwise be corrected via an inspection of the
output of the function
LGA spelling fixes are designed to occur in 3 incremental phases. If the user cannot effect the corrections at a particular level s/he can proceed to the next stage. The phases are as follows:
When the spelling error is slight and unambiguous, the function automatically effects the repair of the name.
library(naijR) fix_region("Legos Island") #> Error: Incorrect region name(s); consider reconstructing 'x' with `states()` or `lgas()` for a more reliable fix
When there is only a single misspelt LGA, and especially if it is supplied to the function as a plain string, the function will signal an error. The thinking is that for a single value that is probably provided interactively, an automated solution may not be necessary.
We will now add another LGA to the function:
fix_region(c("Legos Island", "Amuwo-Odofin")) #> Successful fix(es): #> ------------------- #> * Legos Island => Lagos Island
On Windows machines and during an interactive R session, the function preferentially utilizes the native graphics interface for messaging and user interaction. The above line of code would appear like this:
Sometimes when we use a character vector to perform this check, the
fix_region may encounter difficulty deciding what
fixes to apply. In such instances, the best thing to try first is to
convert the vector into an
lgas object. Note that
lgas() will by default signal a warning when the vector we
are supplying has misspelt strings, but if the function is nested in a
fix_region(), this warning is suppressed.
This is to reduce the tautology warnings even after fixes have been duly
fix_region(c("Legos Island", "Amuwo Odofin")) #> Error: Incorrect region name(s); consider reconstructing 'x' with `states()` or `lgas()` for a more reliable fix
fix_region(lgas(c("Legos Island", "Amuwo Odofin")))
This displays the following dialog:
When the spelling mistakes depart very far from the function’s partial matching capability, the user is told the fixes that could not be made. A possible solution lies in the next level of name repair.
fix_region(lgas(c("Orange County", "Amuwo Odofin")))
When the automatic fixes are not feasible, the user has the option of
doing it interactively by calling
fix_region and setting
interactive argument to
TRUE. By following
the prompts, the misspelt LGA as well as possible replacements are
presented. All the user needs to do is to select the desired replacement
value. This is particularly useful when the user is not sure of what the
correct spelling might be.
When a misspelt LGA has more than one match, the interactive approach is the viable option for effecting fixes.
<- c("Fufore", "Demsa", "Machika", "Fufure", "Ganye", "Hong") adamawa ## ## # check for misspelt LGAs and, if necessary, attempt to fix ## if (!all(is_lga(adamawa))) ## adamawa <- fix_region(adamawa)
We see that the purported LGA ‘Machika’ matches more than one LGA in
the country. The original intent was to use “Michika”. To address it, we
fix_region interactively. This method of the function
is for class
<- fix_region(lgas(adamawa), interactive = TRUE)adamawa
Next, the user is provided with a prompt to provide a search item for likely LGAs that would be an appropriate replacement for the misspelt one:
We now enter in the search term:
Upon clicking “OK”, a list of possible matches comes up; in this instance, only one option is provided. The option ‘RETRY’ allows the user to reset the search term, ‘SKIP’ is to try out another misspelt item (where there are more than one) and ‘QUIT’ is to exit the interactive session.
When we broaden the search possibilities, more items are listed among the LGA candidates for the edit. In our example, we will provide Mi instead of Mich, so that more LGAs are matched:
At the end of it all, the spellings are fixed.
all(is_lga(adamawa)) #>  TRUE
When spelling errors are identified and the correct one is known,
then a manual fix can be applied. For this, we use the function
fix_region_manual and its use is pretty
<- fix_region_manual(adamawa, "Machika", "Michika")adamawa