Просто чтобы привести предложения из комментариев в ответ.
Решение левого соединения
library(dplyr)
refTbl <- data.frame(
Species = c("Andropogon ternarius", "Conyza canadensis"),
Func = c("Grass", "Forb")
)
Spp <- select(DOG, Sub.Plot., Species, CV) %>%
left_join(refTbl)
И решение кейса
library(dplyr)
Spp <- select(DOG, Sub.Plot., Species, CV) %>%
mutate(Func = case_when(
grepl("Andropogon ternarius", Species) ~ "Grass",
grepl("Conyza canadensis", Species) ~ "Forb",
TRUE ~ ""
))
или пошаговое без труб
library(dplyr)
Spp <- select(DOG, Sub.Plot., Species, CV)
Sapp$Func <- case_when(
grepl("Andropogon ternarius", refTbl$Species) ~ "Grass",
grepl("Conyza canadensis", refTbl$Species) ~ "Forb,
TRUE ~ ""
)