recode | R Documentation |

`recode`

substitutes old values of a factor or a numeric
vector by new ones, just like the recoding facilities in some
commercial statistical packages.

```
recode(x,...,
copy=getOption("recode_copy",identical(otherwise,"copy")),
otherwise=NA)
## S4 method for signature 'vector'
recode(x,...,
copy=getOption("recode_copy",identical(otherwise,"copy")),
otherwise=NA)
## S4 method for signature 'factor'
recode(x,...,
copy=getOption("recode_copy",identical(otherwise,"copy")),
otherwise=NA)
## S4 method for signature 'item'
recode(x,...,
copy=getOption("recode_copy",identical(otherwise,"copy")),
otherwise=NA)
```

`x` |
An object |

`...` |
One or more assignment expressions, each
of the form Each In case of the method for If the |

`copy` |
logical; should those values of |

`otherwise` |
a character string or some other value
that the result may obtain. If equal to |

`recode`

relies on the lazy evaluation mechanism of *R*:
Arguments are not evaluated until required by the function they are given to.
`recode`

does not cause arguments that appear in `...`

to be evaluated.
Instead, `recode`

parses the `...`

arguments. Therefore, although
expressions like `1 <- 1:4`

would cause an error action, if evaluated
at any place elsewhere in *R*, they will not cause an error action,
if given to `recode`

as an argument. However, a call of the
form `recode(x,1=1:4)`

, would be a syntax error.

If John Fox' package "car" is installed, `recode`

will also be callable
with the syntax of the `recode`

function of that package.

A numerical vector, factor or an `item`

object.

`recode`

of package "car".

```
x <- as.item(sample(1:6,20,replace=TRUE),
labels=c( a=1,
b=2,
c=3,
d=4,
e=5,
f=6))
print(x)
codebook(
recode(x,
a = 1 <- 1:2,
b = 2 <- 4:6))
codebook(
recode(x,
a = 1 <- 1:2,
b = 2 <- 4:6,
copy = TRUE))
# Note the handling of labels if the recoding rules are bijective
codebook(
recode(x,
1 <- 2,
2 <- 1,
copy=TRUE))
codebook(
recode(x,
a = 1 <- 2,
b = 2 <- 1,
copy=TRUE))
# A recoded version of x is returned
# containing the values 1, 2, 3, which are
# labelled as "A", "B", "C".
recode(x,
A = 1 <- range(min,2),
B = 2 <- 3:4,
C = 3 <- range(5,max), # this last comma is ignored
)
# This causes an error action: the sets
# of original values overlap.
try(recode(x,
A = 1 <- range(min,2),
B = 2 <- 2:4,
C = 3 <- range(5,max)
))
recode(x,
A = 1 <- range(min,2),
B = 2 <- 3:4,
C = 3 <- range(5,6),
D = 4 <- 7
)
# This results in an all-missing vector:
recode(x,
D = 4 <- 7,
E = 5 <- 8
)
f <- as.factor(x)
x <- as.integer(x)
recode(x,
1 <- range(min,2),
2 <- 3:4,
3 <- range(5,max)
)
# This causes another error action:
# the third argument is an invalid
# expression for a recoding.
try(recode(x,
1 <- range(min,2),
3:4,
3 <- range(5,max)
))
# The new values are character strings,
# therefore a factor is returned.
recode(x,
"a" <- range(min,2),
"b" <- 3:4,
"c" <- range(5,6)
)
recode(x,
1 <- 1:3,
2 <- 4:6
)
recode(x,
4 <- 7,
5 <- 8,
otherwise = "copy"
)
recode(f,
"A" <- c("a","b"),
"B" <- c("c","d"),
otherwise="copy"
)
recode(f,
"A" <- c("a","b"),
"B" <- c("c","d"),
otherwise="C"
)
recode(f,
"A" <- c("a","b"),
"B" <- c("c","d")
)
DS <- data.set(x=as.item(sample(1:6,20,replace=TRUE),
labels=c( a=1,
b=2,
c=3,
d=4,
e=5,
f=6)))
print(DS)
DS <- within(DS,{
xf <- recode(x,
"a" <- range(min,2),
"b" <- 3:4,
"c" <- range(5,6)
)
xn <- x@.Data
xc <- recode(xn,
"a" <- range(min,2),
"b" <- 3:4,
"c" <- range(5,6)
)
xc <- as.character(x)
xcc <- recode(xc,
1 <- letters[1:2],
2 <- letters[3:4],
3 <- letters[5:6]
)
})
DS
DS <- within(DS,{
xf <- recode(x,
"a" <- range(min,2),
"b" <- 3:4,
"c" <- range(5,6)
)
x1 <- recode(x,
1 <- range(1,2),
2 <- range(3,4),
copy=TRUE
)
xf1 <- recode(x,
"A" <- range(1,2),
"B" <- range(3,4),
copy=TRUE
)
})
DS
codebook(DS)
DF <- data.frame(x=rep(1:6,4,replace=TRUE))
DF <- within(DF,{
xf <- recode(x,
"a" <- range(min,2),
"b" <- 3:4,
"c" <- range(5,6)
)
x1 <- recode(x,
1 <- range(1,2),
2 <- range(3,4),
copy=TRUE
)
xf1 <- recode(x,
"A" <- range(1,2),
"B" <- range(3,4),
copy=TRUE
)
xf2 <- recode(x,
"B" <- range(3,4),
"A" <- range(1,2),
copy=TRUE
)
})
DF
codebook(DF)
```

memisc documentation built on March 31, 2023, 7:29 p.m.

Embedding an R snippet on your website

Add the following code to your website.

For more information on customizing the embed code, read Embedding Snippets.