replace_NA: Replaces NA

Description

Replaces NA in characters, factors and data.frames.

Usage

replace_NA(x, ...)
# S3 method for character
replace_NA(x,
  replacement = atable_options("replace_NA_by"), ...)
# S3 method for factor
replace_NA(x, ...)
# S3 method for ordered
replace_NA(x, ...)
# S3 method for data.frame
replace_NA(x, ...)
# S3 method for list
replace_NA(x, ...)
# S3 method for default
replace_NA(x, ...)

Arguments

An object.

...

Passed to methods.

replacement

A character of length 1. Default value is defined in atable_options('replace_NA_by'), see atable_options.

Value

Same class as x, now with NA replaced by replacement.

Methods (by class)

character: replaces NA with replacement.
factor: applies replace_NA to the levels of the factor. A factor with length > 0 without levels will get the level replacement.
ordered: as factor.
data.frame: applies replace_NA to all columns.
list: applies replace_NA to all elements of the list.
default: return x unchanged.

Details

The atable package aims to create readable tables. For non-computer-affine readers NA has no meaning. So replace_NA exists.

Methods for character, factor, ordered, list and data.frame available. Default method returns x unchanged.

Gives a warning when replacement is already present in x and does the replacement.

Silently returns x unchanged when there are no NA in x.

Silently returns x unchanged when replacement is not a character of length 1 or when replacement is NA.

Examples

Run this code

# NOT RUN {
Character <- c(NA,letters[1:3], NA)
Factor <- factor(Character)
Ordered <- ordered(Factor)
Numeric <- rep(1, length(Factor))
Factor_without_NA <- factor(letters[1:length(Factor)])

DD <- data.frame(Character, Factor, Ordered,
                Numeric, Factor_without_NA,
                stringsAsFactors = FALSE)
# }
# NOT RUN {
DD2 <- replace_NA(DD, replacement = 'no value')

summary(DD)
summary(DD2) # now with 'no value' instead NA in column Character, Factor and Ordered

atable_options(replace_NA_by = 'not measured') # use atable_options to set replacement
DD3 <- replace_NA(DD)
summary(DD3) # now with 'not measured' instead NA

atable_options_reset() # set 'replace_NA_by' back to default
# }

Run the code above in your browser using DataCamp Workspace