Instead of grouping values using break function , you can replace the values using recode() function
Try the below code:
## a: ages from 18-57 b: ages from 58-68 c: ages from 69-92
install.package(car)
library(car)
age <- 18:92
age<-recode(age,"18:57='A'")
age<-recode(age,"58:68='B'")
age<-recode(age,"69:92='C'")
factor(age)
factor(age)
## [1] A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A
## [39] A A B B B B B B B B B B B C C C C C C C C C C C C C C C C C C C C C C C C
## Levels: A B C