#' Rescale 4-level effectiveness evaluation level
#'
#' Rescale Eurobarometer 4-level effectiveness evaluation, i.e.
#' \code{"Very effective"} and \code{"Fairly effective"} and
#' \code{"Not very effective"}, \code{"Not at all effective"}.
#' This is a wrapper function around the \code{\link{rescale_categories}} function.
#' @param column A column from a survey data frame where level of effectiveness
#' is being evaluated.
#' @param from Defaults \code{"Very effective"}, \code{"Fairly effective"} and
#' \code{"Not very effective"}, \code{"Not at all effective"}.
#' @param to Defaults to \code{c(2,1,-1,-2)}. If \code{return_class = "character"} or
#' \code{return_class = "factor"} is selected it returns the abbreviated category
#' names \code{("very_effective", "fairly_effective",
#' "not_very_effective", "not_effective")}.
#' @param na_labels Defaults to \code{"default"}.
#' @param exact_from Deafults to \code{TRUE}. If \code{FALSE} you can use the
#' partial matching, but beware that in this case, \code{"twenty"} will be replaced by
#' @param return_class Default is \code{"numeric"}, alternatives \code{"character"} or
#' \code{"factor"}.
#' @param underscore Defaults to \code{TRUE} in which case factor names or character strings
#' contain underscore_between_words. This is a better approach for further programming,
#' but you can choose \code{FALSE} for nicer printing results. See examples.
#' @examples
#' rescale_effective_4 (column =
#' c("Very effective",
#' "Fairly effective",
#' "Not very effective",
#' "Not at all effective",
#' "DK", "NT/NV"),
#' na_labels = "default",
#' return_class = "character")
#'
#' rescale_effective_4 (column =
#' c("Very effective",
#' "Fairly effective",
#' "Not very effective",
#' "Not at all effective",
#' "DK", "NT/NV"),
#' na_labels = "default",
#' return_class = "numeric")
#' @export
rescale_effective_4 <- function ( column,
from = c("Very effective",
"Fairly effective",
"Not very effective",
"Not at all effective"),
to = c(2,1,-1, -2),
na_labels = "default",
underscore = TRUE,
exact_from = TRUE,
return_class = "numeric") {
if ( return_class %in% c("character", "factor")) {
to <- c("very_effective", "fairly_effective",
"not_very_effective", "not_effective")
if (underscore == FALSE) {
to <- gsub("_", " ", to)
}
}
return(surveyreader::rescale_categories(column = column,
from = from, to = to,
na_labels = na_labels,
exact_from = exact_from,
return_class = return_class))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.