Hi @pratibha12,
The cut() function can do what you require. You can also set your own breakpoints, if preferred.
# make some dummy data
birthwt <- rnorm(20, 3.0, 0.5)
birthwt
cut(birthwt, breaks=4,
labels=c("small","medium",
"large","very_large"))
help(cut)