R/PhylaList.R

In mikemahoney218/BeaverForaging:

#' Add data on stem groups to the InventoryData dataset.
#'
#' @param x the InventoryData dataframe
#' @return a vector of transformed values
#'

PhylaList <- function(x){

  HWSWList <- list("SA" = "Deciduous",
                   "BF" = "Coniferous",
                   "RM" = "Deciduous",
                   "RS" = "Coniferous",
                   "BH" = "Deciduous",
                   "AB" = "Deciduous",
                   "STM" = "Deciduous",
                   "YB" = "Deciduous",
                   "EH" = "Coniferous",
                   "SM" = "Deciduous",
                   "MM" = "Deciduous",
                   "WP" = "Coniferous",
                   "PB" = "Deciduous",
                   "HW" = "Deciduous",
                   "SB" = "Deciduous",
                   "BB" = "Deciduous",
                   "SW" = "Coniferous",
                   "WA" = "Deciduous",
                   "AE" = "Deciduous",
                   "SIM" = "Deciduous",
                   "FC" = "Deciduous",
                   "RO" = "Deciduous",
                   "BC" = "Deciduous",
                   "ET" = "Coniferous",
                   "BS" = "Coniferous",
                   "WC" = "Coniferous",
                   "QA" = "Deciduous")

  x <- x %>%
    mutate(Phyla = x$Species)
  for(i in 1:length(HWSWList)){
    x$Phyla <- gsub(paste0("\\b", names(HWSWList)[i], "\\b"), HWSWList[[i]], x$Phyla)
  }
  x$Phyla
}