Suppose I have some data like this:
library(dplyr) a = data.frame( "col" = c("red", "red", "green"), "coll"
