Using ifelse and base R:
ifelse
dat <- data.frame(Count = round(runif(100, 1, 100))) dat$even_or_odd <- ifelse(dat$Count %% 2 == 0, "even", "odd")