Nothing
#' Combine label_both and label_parsed in \pkg{ggplot2}. Also added a rename function to it
#' see label_both and label_parsed in \pkg{ggplot2} for details.
#' @name label_both_parsed_recode
#' @aliases label_both_parsed_recode
#' @title Combine label_both and label_parsed in \pkg{ggplot2}.
#' @param display_name A vector contains the display name. Names of the vector are the original name.
#' @return A function similar to label_both and label_parsed in \pkg{ggplot2} for details.
#' @author TszKin Julian Chan \email{ctszkin@@gmail.com}
#' @references \url{http://cran.r-project.org/web/packages/ggplot2/index.html}
#' @export
label_both_parsed_recode <-
function(display_name){
function(variable, value){
variable=recode(variable,from=names(display_name),to=display_name)
v<-paste(variable, value, sep = "==")
lapply(as.character(v), function(x) parse(text = x))
}
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.