#' Convert plot names
#'
#' This function converts plotnames between their "true" names and their "code" names.
#'
#' @param x The vector of plotnames
#' @param colname The new column name
#' @param realnames Whether or not to return the real names. E.g., if false, then code names are returned from a realname list.
#'
#' @export
convertPlotNames <- function(x, colname="", realnames=F){
plotconversion <- data.frame(plotname=c("BBBPIPO", "FRPIJE", "EMRIDGE",
"SUPILA", "POFLABMA", "PGABMA",
"SFTRABMA", "WTABMA", "EMSLOPE",
"SUABCO", "CCRPIPO", "CRCRPIPO"),
key=c("crackers", "octane", "bellow",
"rigid", "distress", "sodium",
"gravy", "chestnut", "reclusive",
"trigger", "trinity", "realtor"), stringsAsFactors = F)
if(realnames==F){
colnames(plotconversion)[2] <- colname
} else{
colnames(plotconversion)[1] <- colname
}
tempdf <- merge(x, plotconversion, by=colname, all=T)
tempdf[, colname] <- list(NULL)
if(realnames==F){
tempcols <- colnames(tempdf)
tempcols[tempcols=="plotname"] <- colname
colnames(tempdf) <- tempcols
}else{
tempcols <- colnames(tempdf)
tempcols[tempcols=="key"] <- colname
colnames(tempdf) <- tempcols
}
tempdf <- tempdf[!is.na(tempdf[,1]),]
rownames(tempdf) <- 1:nrow(tempdf)
return(tempdf)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.