What is the most efficient way to correct text type data in a column?

Question

fito <- c("forest", "savaaaana", "brae soil", "bare soil", "savanna", "froest")
id <- 1:6

df <- dat