swap <- function(vec, from, to) { tmp <- to[match(vec, from)] tmp[is.na(tmp)] <- vec[is.na(tmp)] return(tmp) }
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.