Import packages

library(dplyr)


Use mutate and ifelse syntax to create a new variable

iris_mutate <- mutate(iris, SepalLengthCat = ifelse(Sepal.Length > mean(Sepal.Length), "High", 
                                    ifelse(Sepal.Length < mean(Sepal.Length), "Low", "Equal"))) 
head(iris_mutate)
##   Sepal.Length Sepal.Width Petal.Length Petal.Width Species SepalLengthCat
## 1          5.1         3.5          1.4         0.2  setosa            Low
## 2          4.9         3.0          1.4         0.2  setosa            Low
## 3          4.7         3.2          1.3         0.2  setosa            Low
## 4          4.6         3.1          1.5         0.2  setosa            Low
## 5          5.0         3.6          1.4         0.2  setosa            Low
## 6          5.4         3.9          1.7         0.4  setosa            Low