Import packages
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